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.EO F = 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...En d If Statements to make any logical sense of it.