[Tasos]

Καλημέρα και χρόνια πολλά σε όλους και όλες!

Ο καλός μου φίλος Γιάννης πρότεινε μια υπέροχη λύση για Access < 2007 .

Μπράβο Γιάννη!

Για Access 2007+ μπορεί να γίνει έτσι:

Private Sub cmdOpenReport_Click()

    DoCmd.OpenReport "MINES", 5, , Mid( _

    IIf(IsNull(Me.combo1), "", " AND [ΜΗΝΑΣ]= '" & Me.combo1 & "'") & _

    IIf(IsNull(Me.combo2), "", " AND [ΚΩΔΙΚΟΣ ΛΟΓΑΡΙΑΣΜΟΥ]= '" & Me.combo2 & "'") & _

    IIf(IsNull(Me.combo3), "", " AND [ΚΑΤΗΓΟΡΙΑ]= '" & Me.combo3 & "'"), 6)

End Sub