[Tasos]

Καλημέρα!
Μάριε, δες αυτό το παράδειγμα (βασισμένο στον κώδικα σου):

Μη χρησιμοποιείς ( ' ) όταν αναφέρεσαι σε αριθμητικά πεδία.

Private Sub cmdOpenReport_Click()



Dim strSql$

    If Not IsNull(Me.combo1) Then strSql = "[ΜΗΝΑΣ]= '" & Me.combo1 & "' AND "

    If Not IsNull(Me.combo2) Then strSql = strSql & "[ΚΩΔΙΚΟΣ ΛΟΓΑΡΙΑΣΜΟΥ]= '" & Me.combo2 & "' AND "

    If Not IsNull(Me.combo3) Then strSql = strSql & "[ΚΑΤΗΓΟΡΙΑ]= '" & Me.combo3 & "' AND "

    ' If Not IsNull(Me.combo4) Then strSql = strSql & "[....κοκ....

    '..................

    '..................

    If strSql <> vbNullString Then strSql = Left(strSql, Len(strSql) - 5)

    DoCmd.OpenReport "MINES", acViewReport, , strSql



End Sub