G
Guest
In the following code I get a "can't find program or library" error on this
statement Dim db As DAO.Database . Am I missing a library that doesn't come
with access? Please help. 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
Set db = OpenDatabase("roncheck1.mdb")
strSQL = "select * " _
& "where DATE Between " _
& "#[start_date_cal.value]# And #[end_date_cal.value]#;"
Set rs = db.OpenRecordset(strSQL)
End Sub
statement Dim db As DAO.Database . Am I missing a library that doesn't come
with access? Please help. 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
Set db = OpenDatabase("roncheck1.mdb")
strSQL = "select * " _
& "where DATE Between " _
& "#[start_date_cal.value]# And #[end_date_cal.value]#;"
Set rs = db.OpenRecordset(strSQL)
End Sub