RunTime error 3075

[Compufreak]

hi guys i am gettin an error called Runtime error 3075

here is my code:

Private Sub Command0_Click()
Dim strSQL As String

strSQL = "SELECT Cluster_Dept.ID, Cluster_Dept.Cluster_ID, Cluster_Dept.Dept_ID, Clusters.Cluster_Desc, Department.Dept_Desc, " & _
"Source.Day_Month_Year, Source.Original_Source, Source.Headline, Source.Issue, Source.Analysis, Source.Action " & _


"FROM Source INNER JOIN (Department INNER JOIN (Clusters INNER JOIN Cluster_Dept ON Clusters.Cluster_ID " & _
"= Cluster_Dept.Cluster_ID) ON Department.Dept_ID = Cluster_Dept.Dept_ID) ON Source.ID = Cluster_Dept.ID"



If IsNull(Combo1.Value) And IsNull([StartDate]) And IsNull([EndDate]) Then
'run report without any condition
strSQL = strSQL & ";"

Else
If ((Combo1.Value <> " ") And IsNull([StartDate]) And IsNull([EndDate])) Then
'run report by category
strSQL = strSQL & " " & "WHERE [Clusters].Cluster_Desc =" & Chr(34) & [Combo1] & Chr(34) & ";"
Else
If IsNull(Combo1.Value) And (([StartDate] <> " ") Or ([EndDate] <> " ")) Then
'run report by date recieved"
strSQL = strSQL & " " & "WHERE [Day_Month_Year] Between #" & [StartDate] & "# AND #" & [EndDate] & "#"
Else
If (Combo1.Value <> " ") And (([StartDate] <> " ") Or ([EndDate] <> " ")) Then
strSQL = strSQL & " " & "WHERE Source.Day_Month_Year #" & [StartDate] & "# AND #" & [EndDate] & "# AND [Clusters].Cluster_Desc =" & Chr(34) & [Combo1] & Chr(34) & ";"
parSelection = [Combo1] & ";" & "Day_Month_Year:" & [StartDate] & "-" & [EndDate]
End If
End If
End If
End If

' Assign SQL code to query that the entry form uses
CurrentDb.QueryDefs("Search_by_Clusters and date").SQL = strSQL
Code:
MsgBox strSQL
'Open the report
DoCmd.OpenReport "Search_by_Clusters and date", acViewReport
End Sub

the part i have highlighted is where i am getting the error

[Rawb]

You're missing the Keyword "Between" on the highlighted line.

strSQL = strSQL & " WHERE Source.Day_Month_Year Between #" & [StartDate] & "# AND #" & [EndDate] & "# AND [Clusters].Cluster_Desc =" & Chr(34) & [Combo1] & Chr(34) & ";"

[Compufreak]

thanks Rawb , i am not sure how i took that out. it works perfectly now

[uronmapu]

The same my problem below?

https://www.accessforums.net/access/...ing-26792.html

Please help