I'm using
Code:
Dim rs As DAO.Recordset
Dim T As Integer
Dim strsql As String
strsql = "SELECT tblMessages.MessageID, tblMessages.MessageText, tblMessages.MessageSentDate, tblMessages.MessageReceivedDate, tblMessages.MessageOrganiserID " _
& "FROM tblMessages " _
& "WHERE (((tblMessages.MessageReceivedDate) Is Null) AND ((tblMessages.MessageOrganiserID)=[TempVars]![tmpTourOrganiserName]));"
Set rs = CurrentDb.OpenRecordset(strsql, dbOpenDynamic, dbReadOnly, dbOptimistic)
Do Until T = 1000
If rs.RecordCount > 0 Then
DoCmd.OpenForm "frmMessagesRecieved"
End If
T = T + 1
Loop
rs.Close
Set rs = Nothing
However I am not sure how to make a query into a recordset