type mismatch error 13

[Compufreak]

Hi everyone

i know i have posted this before but i can't understand why i am getting this error:

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

the part thats in bold and is underlined is where i am getting my error , i have changed my code from the replies i got before but i am still getting this error

[recyan]

Did you check out

https://www.accessforums.net/queries...lex-27113.html

specially the reference to

1) the where clause appearing before the IF and then again appearing in the ELSE.
and
2) what is the result of the debug.print sql when the IF and then the ELSE gets executed.


In addition, have you tried setting breakpoints & see what is happening.

Thanks

[Compufreak]

i have tried that debug.print strSQL and nothing happens

[R_Badger]

Debug.print outputs to the immediate pane in the vb debugger.