[AccessD] Function Return array?

Yes.

Function BuildArray() As Variant
Dim tmpArray(1 To 6)
tmpArray(1) = "This"
tmpArray(2) = "is"
tmpArray(3) = "how"
tmpArray(4) = "to"
tmpArray(5) = "do"
tmpArray(6) = "it."
BuildArray = tmpArray
End Function

Private Sub Command0_Click()
Dim tmp As Variant
Dim i As Long
Dim strTemp As String
tmp = BuildArray
For i = LBound(tmp) To UBound(tmp)
    strTemp = strTemp & tmp(i) & " "
Next i
strTemp = Trim(strTemp)
MsgBox strTemp
End Sub

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of S D
Sent: Friday, February 06, 2004 2:04 AM
To: accessd
Subject: [AccessD] Function Return array?


Hi group,
 
I have  a function that builds an array. Is it possible to let the function
return the array?
 
Any ideas?
 
TIA
Sander


---------------------------------
Do you Yahoo!?
Yahoo! Finance: Get your refund fast by filing online
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com