Having a brain lock today 1

[DeanConsulting]

Hi,

I cannot remember the answer to this and I have not had the time to really take a deep look, so, I thought I would ask the board and see what I get back..

Is there a way to return a UDT from a function?

Ex.

Function GetData() as custType
cust.name = "john doe"
cust.acct = "123456"
cust.bal = "$245.00"
GetData = cust
End Function

Thanks in advance and God Bless..

nb




---------------------------------------
Noble D. Bell

http://www.noblesoftware.com

http://www.noblebell.com

 

[Foada]

Do you mean something like this:

Private Type custType
    Name As String
    acct As Long
    bal As Currency
End Type

Private Function GetData() As custType
    Dim cust As custType

    cust.Name = "john doe"
    cust.acct = "123456"
    cust.bal = "$245.00"
    GetData = cust
End Function

Private Sub Command1_Click()
    Dim C As custType

    C = GetData
    Debug.Print C.Name
    Debug.Print C.acct
    Debug.Print C.bal
End Sub

If you choose to battle wits with the witless be prepared to lose.

 

[DeanConsulting]

Yup, that would be it.

Thanks very much..

nb


---------------------------------------
Noble D. Bell

http://www.noblesoftware.com

http://www.noblebell.com

 

[Foada]

No problem.

If you choose to battle wits with the witless be prepared to lose.