[marios1984]

παιδια βοηθεια ...θα μου σπασει τα νευρα...ηδη εχω μπει στον πειρασμο να το σπασω το pc ...εχω αυτο τον κωδικα αλλα οταν χρησιμοποιω και τα 3 κριτηρια μου βγαζει σφαλμα

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

ευχαριστω εκ των προτερων