Run time error

[sofiac]

I am receiving Run-time error '3075':
Syntax error (missing operator) in query expression 'Incident Date Between
#04/01/2008# And #04/28/2008#'.
The event procedure is:

Dim strReport As String 'Name of report to open.
Dim strField As String 'Name of your date field.
Dim strWhere As String 'Where condition for OpenReport.
Const conDateFormat = "\#mm\/dd\/yyyy\#"

strReport = "rptICUMidasDataTEST"
strField = "Incident Date"

If IsNull(Me.txtStartDate) Then
If Not IsNull(Me.txtEndDate) Then 'End date, but no start.
strWhere = strField & " <= " & Format(Me.txtEndDate,
conDateFormat)
End If
Else
If IsNull(Me.txtEndDate) Then 'Start date, but no End.
strWhere = strField & " >= " & Format(Me.txtStartDate,
conDateFormat)
Else 'Both start and end dates.
strWhere = strField & " Between " & Format(Me.txtStartDate,
conDateFormat) _
& " And " & Format(Me.txtEndDate, conDateFormat)
End If

Any clues why I'm receiving this message?

 

[boblarson]

Your line continuation character is in the wrong place (or the ampersand,
depending on how you look at it):

Change to this:

Else 'Both start and end dates.
strWhere = strField & " Between " & Format(Me.txtStartDate,
conDateFormat) & _
" And " & Format(Me.txtEndDate, conDateFormat)
End If

--
Bob Larson
Access World Forums Administrator

Tutorials at http://www.btabdevelopment.com

__________________________________

 

[sofiac]

The change didn't seem to work. I'm still getting the same error.

Is there a different way I can create a form to enter a date range for a
report?