[marios1984]

παιδια συγγνωμη εδω που κανω λαθος ?

Private Sub ÅíôïëÞ4_Click()
If IsNull(combo1) And (cobo2) Then
DoCmd.OpenReport "MINES", acViewReport, , "[ΚΑΤΗΓΟΡΙΑ]= '" & combo3 & "'"
Exit Sub
End If
If IsNull(cobo2) And (combo3) Then
DoCmd.OpenReport "MINES", acViewReport, , "[ΜΗΝΑΣ]= '" & combo1 & "'"
Exit Sub
End If
If IsNull(combo1) And (combo3) Then
DoCmd.OpenReport "MINES", acViewReport, , "[ΚΩΔΙΚΟΣ ΛΟΓΑΡΙΑΣΜΟΥ]= '" & cobo2 & "'"
Exit Sub
End If

DoCmd.OpenReport "MINES", acViewReport, , "[ΜΗΝΑΣ]= '" & combo1 & "'" & "AND [ΚΩΔΙΚΟΣ ΛΟΓΑΡΙΑΣΜΟΥ]= '" & cobo2 & "'" & "AND [ΚΑΤΗΓΟΡΙΑ]= '" & combo3 & "'"
End Sub

δλδ οταν εχω γεματα 2 απο τα 3 ή και τα 3 μια χαρα μου βγαζει το report .οταν ομως ειναι μονο ενα γεματο και τα αλλα 2 κενα μου βγαζει λευκή σελιδα