Error 3075

[kavya]

I am working in MS Access 2010 and get a run time error 3075 when the SQL statement runs.


If Me.Combo46.Value = Inspection Then
WhereClause = ""
If Not (Me.InspectorFilter = "" Or IsNull(Me.InspectorFilter)) Then
WhereClause = WhereClause & "AND INDPERS.RacID=""" & Me.InspectorFilter & """ "


End If
If Not (Me.DistrictFilter = "" Or IsNull(Me.DistrictFilter)) Then
WhereClause = WhereClause & "AND County.DistrictLink=" & Me.DistrictFilter & " "
End If
If Not (Me.OperatorFilter = "" Or IsNull(Me.OperatorFilter)) Then
WhereClause = WhereClause & "AND owner.owncontid=" & Me.OperatorFilter & " "
End If
If Not (Me.CountyFilter = "" Or IsNull(Me.CountyFilter)) Then
WhereClause = WhereClause & "AND County.CountyNum=" & Me.CountyFilter & " "
End If
If Not (Me.TypeFilter = "" Or IsNull(Me.TypeFilter)) Then
If ((Me.TypeFilter = "Permanent")) Then
WhereClause = WhereClause & "AND ADSchedule.ADOwnerPermLoc=True "
End If
If ((Me.TypeFilter = "Temporary")) Then
WhereClause = WhereClause & "AND ADSchedule.ADOwnerPermLoc=False "
End If
End If
If IsNull(Me.Datefrom) Or IsNull(Me.Dateto) Then
Else
WhereClause = WhereClause & "([InspDate]>=#" & Me.Datefrom & "# And [InspDate]<=#" & Me.Dateto & "#)"
End If

DoCmd.OpenReport "InspReport", acViewPreview, , WhereClause, acWindowNormal
Me.SetFocus
DoCmd.Close




End If

Need help!

[davegri]

Maybe a missing AND
The added red lines will display the criteria. You can choose the msgbox or debug.print

If Me.Combo46.Value = Inspection Then
	WhereClause = ""
	If Not (Me.InspectorFilter = "" Or IsNull(Me.InspectorFilter)) Then
		WhereClause = WhereClause & "AND INDPERS.RacID=""" & Me.InspectorFilter & """ "
	End If
	If Not (Me.DistrictFilter = "" Or IsNull(Me.DistrictFilter)) Then
		WhereClause = WhereClause & "AND County.DistrictLink=" & Me.DistrictFilter & " "
	End If
	If Not (Me.OperatorFilter = "" Or IsNull(Me.OperatorFilter)) Then
		WhereClause = WhereClause & "AND owner.owncontid=" & Me.OperatorFilter & " "
	End If
	If Not (Me.CountyFilter = "" Or IsNull(Me.CountyFilter)) Then
		WhereClause = WhereClause & "AND County.CountyNum=" & Me.CountyFilter & " "
	End If
	If Not (Me.TypeFilter = "" Or IsNull(Me.TypeFilter)) Then
		If ((Me.TypeFilter = "Permanent")) Then
			WhereClause = WhereClause & "AND ADSchedule.ADOwnerPermLoc=True "
		End If
		If ((Me.TypeFilter = "Temporary")) Then
			WhereClause = WhereClause & "AND ADSchedule.ADOwnerPermLoc=False "
		End If
	End If
	If IsNull(Me.Datefrom) Or IsNull(Me.Dateto) Then
	Else
		WhereClause = WhereClause & "AND ([InspDate]>=#" & Me.Datefrom & "# And [InspDate]<=#" & Me.Dateto & "#)"
End If


debug.print WhereClause
'MsgBox WhereClause


DoCmd.OpenReport "InspReport", acViewPreview, , WhereClause, acWindowNormal
Me.SetFocus
DoCmd.Close

[kavya]

NO, It says syntax error(missing operator) in query expression

[davegri]

Is the recordsource for the report a query? Perhaps the problem is in that query.
Did you try the debug.print? Did the output of that look OK?
What code line causes the error? Can't help without clues, Dude.

[kavya]

yes, the record source for the report is a query
yes, i tried debug.print- it still shows up the same syntax error
its giving me error with each and every if condition in my code

[davegri]

DUDE you are not helping me here. The debug.print wasn't to fix the problem, it was to help diagnose the problem.
What was the result of the debug.print or msgbox?
Does the report recordsource query run OK on its own? Last chance.

[GinaWhipp]

Well, the first thing I see is this...

If Me.Combo46.Value = Inspection Then

...should be...

If Me.Combo46.Value = "Inspection" Then

I also see you are not using TEXT deliminators on the values which appear to be TEXT. You should fix that as well.

Not sure that will fix it. If not then please post the results of Debug.Print as no can run it without the database itself.

[kavya]

what do you mean by text deliminators?

[GinaWhipp]

See difference below...

Text = """ & Me.InspectorFilter & """
Numeric = " & Me.DistrictFilter & "

[orange]

kavya,

This "what do you mean by text deliminators" indicates a lack of basic familiarity with Access VBA. It would help you and readers if you could put your post/question into context.
Tell us in simple terms WHAT you are trying to do and readers will offer suggestions as to HOW it might be accomplished.
It might be more efficient if you also attached a copy of your database in zip format.
Good luck with your project.

[isladogs]

Of course 'text deliminators' should really read 'text delimiters'

[GinaWhipp]

Oops, so much for spell check but that is a word so...