Please help this rookie

[mms180]

Hello, If anyone can help me, I will greatly appreciate it...I have a database and would like to select an entire column and assign it to an array....Can someone show me how to do this? Thank you

 

[charityg]

Dim db As Database
Dim rst As Recordset
Dim myarray() As Variant
Dim i As Integer


Set db = CurrentDb
Set rst = db.OpenRecordset("YourTable", dbOpenSnapshot)

rst.MoveFirst
i = 0
Do Until rst.EOF
ReDim Preserve myarray(i)
myarray(i) = rst.Fields("YourColumn")
i = i + 1
rst.MoveNext
Loop

 

[mms180]

Thank you CharityG

Thank you very much, I really appreciate this....