Help with DAO record schedule EOF File Error

[accessvbanewbie]

I keep getting an error stating OBJECT VARIABLE OR WITH BLOCK VARIABLE NOT SET.

This error just recently began to happen.
I am exporting some records to excel into a preformatted report.
The records are exported successfully but this error pops up before the export is completed.
When I run the debugger this line gives the error message(OBJECT VARIABLE OR WITH BLOCK VARIABLE NOT SET)

If Not (rsSchedules.EOF = True) Then

Below is my code.
1.
querystring is referring to the following query

SELECT *
FROM TblOneDayOnly
WHERE (ProgIn =3 OR ProgIn =1) AND (ProgOut =3 OR ProgOut =1);

Private Sub cmdExport_Click()
On Error GoTo Finalstep
Dim querystring As String
Dim dbase As DAO.Database
Dim rsSchedules As DAO.Recordset
Dim tempi As Integer
Dim rptcnt As Integer
rptcnt = 0
If (Me.Optgroup.Value = optScheduleweek.OptionValue Or _
Me.Optgroup.Value = optcharAdhweek.OptionValue) And _
(DateTime.Weekday(txtStartDate.Value, 2) <> 5) Then
MsgBox "The start date is not a Friday, Pls select a friday as start date", vbCritical, "Error"
Exit Sub
End If
 
querystring = GetQueryString
If (Len(Trim(querystring)) > 0) Then
Set dbase = CurrentDb
If (Me.Optgroup.Value = OptMonthly.OptionValue) Then
MsgBox "Exporting monthly report for " & CStr(txtStartDate.Value) & _
" to " & CStr(txtEndDate.Value), vbExclamation, "Export"
tempi = 1
Set rsSchedules = dbase.OpenRecordset(querystring)
If rsSchedules.RecordCount > 0 Then
rsSchedules.MoveLast
rptcnt = rsSchedules.RecordCount
 
End If
If rptcnt = 0 Then GoTo Message
CreateMonthlyReport rsSchedules, GetWeekDay(tempi)
 
 
ElseIf (Me.Optgroup.Value = optScheduleweek.OptionValue) Then
 
MsgBox "Exporting One Day Schedule Flight Activity for " & CStr(txtStartDate.Value) & _
" to " & CStr(txtEndDate.Value), vbExclamation, "Export"
Set rsSchedules = dbase.OpenRecordset(querystring)
If Not (rsSchedules.EOF = True) Then
CreateWeeklyScheduleReport rsSchedules
rptcnt = 1
End If
rsSchedules.Close
 
ElseIf (Me.Optgroup.Value = optcharAdhweek.OptionValue) Then
 
MsgBox "Exporting One Day Charter & Adhoc report for " & CStr(txtStartDate.Value) & _
" to " & CStr(txtEndDate.Value), vbExclamation, "Export"
Set rsSchedules = dbase.OpenRecordset(querystring)
If Not (rsSchedules.EOF = True) Then
CreateWeeklyAdhCharReport rsSchedules
rptcnt = 1
End If
rsSchedules.Close
ElseIf (Me.Optgroup.Value = OptArrivalDate.OptionValue) Then
 
MsgBox "Exporting One Day Daily Flight Activity for " & CStr(txtStartDate.Value)
Set rsSchedules = dbase.OpenRecordset(querystring)
If Not (rsSchedules.EOF = True) Then
CreateDailyReport rsSchedules
rptcnt = 1
End If
rsSchedules.Close
 
End If
Message:
dbase.Close
If Me.Optgroup.Value <> optcharAdhweek.OptionValue Then
If (rptcnt = 0) Then
MsgBox "No Repords Found for Excel Export", vbExclamation, "Export"
Else
MsgBox "Export to excel file(s) completed", vbExclamation, "Export Complete"
End If
End If
Set rsSchedules = Nothing
Set dbase = Nothing
End If
 
Exit Sub
Finalstep:
MsgBox Err.Description, vbCritical, "Error"
 
End Sub

[Scott Price]

You can change:

If Not(rsSchedules.EOF) Then

There should be absolutely no need to add the = True part.

However, from the way you framed your question, you imply that this was working before, but now is not?

If this is true, I would suspect corruption.

Regards,
Scott

[ADezii]

I'm not speaking for the other Moderators/Experts, but I can almost guarantee you that few will look at your code unless it is properly Formatted and Code Tagged. There are far too many If...End If and If..ElseIf...End If Statements to make any logical sense of it.