Set dbD = OpenDatabase(strDBName)
Set rs = dbD.OpenRecordset("Select distinct [Date] from [tblTreasury]", dbreadonly)
y = -1
Do While Not rs.EOF
y = y + 1
ReDim Preserve temp(y)
temp(y) = rs.Fields(0).Value
For i = 0 To UBound(temp)
....i have this executing on the on_open event - it does work, but its very slow - there's about 3000 dates and the for loop takes a few minutes to loop - there has to be a faster more efficient way to do this - can anyone help?
thanks for your help but i think the combo box properties you've used in your code are for applicable to combos in Access, not Excel, which i'm using - i'm just pulling the values from access into a combo on a spreadsheet - that looks like a nice smooth way to execute this - would you possibly know the analogous syntax for excel?