Date Error in VBA Query /Table not found Error

[tasmontique]

I have a form where the arrival date is entered then all the info is exported to excel. However I can not seem to spot my error I keep getting query not found or tablename incorrect. Can someone please take a look at my code to see where I am going wrong.

Below is the Code THANKS

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

'validations
If IsNull(txtStart Date.Value) Or Len(Trim(txtSta rtDate.Value)) = 0 Then

MsgBox " Invalid Report Date(s)", vbCritical, "Report Type"

ElseIf Not IsNull(txtStart Date.Value) Or Len(Trim(txtSta rtDate.Value)) = 0 Then

MsgBox "Exporting daily RON flight report for " & CStr(txtStartDa te.Value)
Set dbase = CurrentDb()
Set rsSchedules = dbase.OpenRecor dset(querystrin g)

'not sure why this query or tbl is not being recognized[/b]
querystring = "select * from tblflight1 where # Arrivaldate =#" & txtStartDate.Va lue & "#;)"
'I also tried this code
querystring = "select * from tblflight1 where tblflight1.Arri valdate Between Forms!frmexport adhocron.txtSta rtDate.Value"


DoCmd.RunSQL querystring

If Not (rsSchedules.EO F = True) Then
CreateDailyRepo rt rsSchedules
rptcnt = 1
End If
rsSchedules.Clo se

dbase.Close
If (rptcnt = 0) Then
MsgBox "No Reports Found for Excel Export", vbExclamation, "Export"
Else
MsgBox "Export to excel file(s) completed", vbExclamation, "Export Complete"
End If
Set rsSchedules = Nothing
Set dbase = Nothing
End If

Exit Sub
FinalStep:
MsgBox Err.Description , vbCritical, "Error"
End Sub


I think that my problem lies somewhere here

'not sure why this query or tbl is not being recognized[/b]
querystring = "select * from tblflight1 where # Arrivaldate =#" & txtStartDate.Va lue & "#;)"
'I also tried this code
querystring = "select * from tblflight1 where tblflight1.Arri valdate Between Forms!frmexport adhocron.txtSta rtDate.Value"

[JConsulting]

I have a form where the arrival date is entered then all the info is exported to excel. However I can not seem to spot my error I keep getting query not found or tablename incorrect. Can someone please take a look at my code to see where I am going wrong.

Below is the Code THANKS

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

'validations
If IsNull(txtStart Date.Value) Or Len(Trim(txtSta rtDate.Value)) = 0 Then

MsgBox " Invalid Report Date(s)", vbCritical, "Report Type"

ElseIf Not IsNull(txtStart Date.Value) Or Len(Trim(txtSta rtDate.Value)) = 0 Then

MsgBox "Exporting daily RON flight report for " & CStr(txtStartDa te.Value)
Set dbase = CurrentDb()
Set rsSchedules = dbase.OpenRecor dset(querystrin g)

'not sure why this query or tbl is not being recognized[/b]
querystring = "select * from tblflight1 where # Arrivaldate =#" & txtStartDate.Va lue & "#;)"
'I also tried this code
querystring = "select * from tblflight1 where tblflight1.Arri valdate Between Forms!frmexport adhocron.txtSta rtDate.Value"


DoCmd.RunSQL querystring

If Not (rsSchedules.EO F = True) Then
CreateDailyRepo rt rsSchedules
rptcnt = 1
End If
rsSchedules.Clo se

dbase.Close
If (rptcnt = 0) Then
MsgBox "No Reports Found for Excel Export", vbExclamation, "Export"
Else
MsgBox "Export to excel file(s) completed", vbExclamation, "Export Complete"
End If
Set rsSchedules = Nothing
Set dbase = Nothing
End If

Exit Sub
FinalStep:
MsgBox Err.Description , vbCritical, "Error"
End Sub


I think that my problem lies somewhere here

'not sure why this query or tbl is not being recognized[/b]
querystring = "select * from tblflight1 where # Arrivaldate =#" & txtStartDate.Va lue & "#;)"
'I also tried this code
querystring = "select * from tblflight1 where tblflight1.Arri valdate Between Forms!frmexport adhocron.txtSta rtDate.Value"

give this a go

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
 
'validations
If Nz(Me.txtStartDate, 0) = 0 Or Len(Trim(Me.txtStartDate)) = 0 Then
 
MsgBox " Invalid Report Date(s)", vbCritical, "Report Type"
End If 'End of validation
    MsgBox "Exporting daily RON flight report for " & CStr(txtStartDate.Value)
    Set rsSchedules = CurrentDb.OpenRecordset(querystring)
    'not sure why this query or tbl is not being recognized[/b]
    querystring = "select * from tblflight1 where Arrivaldate = #" & Me.txtStartDate & "#;"
    'I also tried this code
    'querystring = "select * from tblflight1 where tblflight1.Arrivaldate Between Forms!frmexportadhocron.txtStartDate.Value"
    DoCmd.RunSQL querystring
    If Not (rsSchedules.EOF = True) Then
        CreateDailyReport rsSchedules
        rptcnt = 1
    End If
    rsSchedules.Close
    If (rptcnt = 0) Then
        MsgBox "No Reports Found for Excel Export", vbExclamation, "Export"
    Else
        MsgBox "Export to excel file(s) completed", vbExclamation, "Export Complete"
    End If
    Set rsSchedules = Nothing
    Set dbase = Nothing
Exit Sub
FinalStep:
MsgBox err.Description, vbCritical, "Error"
End Sub
 

J