?
********
I get an error "Object variable or With block variable not set (Error 91)"
on this statement in the code Set rs = db.OpenRecordset(strSQL).
What's wrong? Thanks.
Private Sub db_betw_dates_obj_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "select * FROM roncheck_access" _
& "where [DATE] Between " _
& "#[start_date_cal.value]# And #[end_date_cal.value]#;"
Set rs = db.OpenRecordset(strSQL)
End Sub
on this statement in the code Set rs = db.OpenRecordset(strSQL).
What's wrong? Thanks.
Private Sub db_betw_dates_obj_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "select * FROM roncheck_access" _
& "where [DATE] Between " _
& "#[start_date_cal.value]# And #[end_date_cal.value]#;"
Set rs = db.OpenRecordset(strSQL)
End Sub