runtime error 3075

[Compufreak]

Private Sub Command43_Click()
'namepo = [Combo1].Value
Dim strSQL As String
'
strSQL = "SELECT Department.Dept_Desc, Count(Source.Headline) AS NumberOfArticles, [Source].Analysis " & _
         "FROM (Clusters INNER JOIN (Department INNER JOIN Cluster_Dept ON Department.Dept_ID=Cluster_Dept.Dept_ID) " & _
         "ON Clusters.Cluster_ID=Cluster_Dept.Cluster_ID) INNER JOIN Source ON Cluster_Dept.ID=Source.ID " & _
         "WHERE (((Source.Analysis)=Forms!ViewReportsForm!Combo53) And ((Source.Day_Month_Year) " & _
         "Between Forms!ViewReportsForm!StartDate And Forms!ViewReportsForm!EndDate)" & _
         "And ((Clusters.Cluster_Desc)=Forms!ViewReportsForm!Combo1)) " & _
         "GROUP BY Department.Dept_Desc, Source.Analysis"
         'If IsNull(Combo1.Value) And IsNull([StartDate]) And IsNull([EndDate]) And IsNull([Search]) And IsNull([Combo53]) Then
            'run report without any condition
           'strSQL = strSQL & ";"
         'Else
'code:
     'MsgBox strSQL
   
                   If (Combo1.Value <> " ") And (([StartDate] <> " ") Or ([EndDate] <> " ")) And ([Combo53] <> " ") Then
                    strSQL = strSQL & " " & " WHERE Source.Day_Month_Year BETWEEN #" & [StartDate] & "# AND #" & [EndDate] & _
                            "# AND [Clusters].Cluster_Desc= " & [Combo1] & " and " & "[Source].Analysis = " & [Combo53] & ""
                            
                    parSelection = [Combo1] & ";" & "Day_Month_Year:" & [StartDate] & "-" & [EndDate] & [Combo53] & ";"
                   End If
                    Debug.Print strSQL
    'End If
    

    
'   Assign SQL code to query that the entry form uses
             CurrentDb.QueryDefs("Query1").SQL = strSQL
           
            'Open the report
            DoCmd.OpenReport "Report1", acViewReport
End Sub

so i have changed my code from the last post but now i recieve this error...

[John_G]

Which line of your code is giving you the error?

J.

[Compufreak]

i have a feeling that it has to be this line of code here:

If (Combo1.Value <> " ") And (([StartDate] <> " ") Or ([EndDate] <> " ")) And ([Combo53] <> " ") Then
                    strSQL = strSQL & " " & " WHERE Source.Day_Month_Year BETWEEN #" & [StartDate] & "# AND #" & [EndDate] & _
                            "# AND [Clusters].Cluster_Desc= " & [Combo1] & " and " & "[Source].Analysis = " & [Combo53] & ""

[R_Badger]

it looks like you are double declaring wheres you have one earlier


"WHERE (((Source.Analysis)=Forms!ViewReportsForm!Combo53) And ((Source.Day_Month_Year) " & _ "Between Forms!ViewReportsForm!StartDate And Forms!ViewReportsForm!EndDate)" & _ "And ((Clusters.Cluster_Desc)=Forms!ViewReportsForm!Com bo1)) "

then you follow it with a group by, then another where if the offending bit of code executes