S
Southern at Heart
Can I assign the below query to an array?
Dim strSQL As String
Dim db As DAO.Database
Dim qd As DAO.QueryDef
strSql = "SELECT DISTINCT tblName.Phone FROM tblName;"
Set db = CurrentDb
Set qd = db.CreateQueryDef("", strSQL) ' create an unnamed, unsaved query
qd.Execute
....maybe like:
dim PhoneArray() as string
PhoneArray={the above query?}
Dim strSQL As String
Dim db As DAO.Database
Dim qd As DAO.QueryDef
strSql = "SELECT DISTINCT tblName.Phone FROM tblName;"
Set db = CurrentDb
Set qd = db.CreateQueryDef("", strSQL) ' create an unnamed, unsaved query
qd.Execute
....maybe like:
dim PhoneArray() as string
PhoneArray={the above query?}