[marios1984]

γιουπι το βρηκα και αυτο καπως ετσι το εκανα..
Private Sub Εντολή4_Click()
If IsNull(combo1) Then
DoCmd.OpenReport "MINES", acViewReport, , "[ΚΑΤΗΓΟΡΙΑ]= '" & combo3 & "'"
Exit Sub
End If
If IsNull(combo3) Then
DoCmd.OpenReport "MINES", acViewReport, , "[ΜΗΝΑΣ]= '" & combo1 & "'"
Exit Sub
End If
DoCmd.OpenReport "MINES", acViewReport, , "[ΜΗΝΑΣ]= '" & combo1 & "'" & "AND [ΚΑΤΗΓΟΡΙΑ]= '" & combo3 & "'"
End Sub

τωρα μια ερωτηση γιατι για κωδικο λογαριασμου μου βγαζει οτι θελει τιμη παραμετρου?ειναι κειμενο και συνδεεται με ενα προς πολλα με τον κυριο πινακα οπως και οι μηνες...ο κωδικος μπορει να ειναι 610010508αβ γιαυτο το εχω βαλει σαν κειμενο μηπως γιαυτο κολλαει?