[Χρήστος]

Καλημέρα σ' όλους.
Θα ήθελα την βοήθειά σας στο εξής:

Σε μια Φόρμα έχω τα πεδία ProiontaID, Proion
Η εμφάνιση των εγγραφών ελέγχεται από ένα Combobox (combofiltro) που λιτουργεί ως Φίλτρο.

Όλες οι εγγραφές εμφανίζονται όταν πατάμε το κουμπί cmdShowAll, στο οποίο αντιστοιχίζεται ο παρακάτω κώδικας:

On Error GoTo Err_cmdShowAll_Click

Dim RecID As Long
Me.combofiltro = vbNullString
RecID = Nz(Me.ProiontaID)
Me.FilterOn = False
Me.Filter = vbNullString
With Me.Recordset.Clone
.FindFirst ("ProiontaID=" & RecID)
If Not .NoMatch Then Me.Bookmark = .Bookmark
End With

Exit_cmdShowAll_Click:
Exit Sub

Err_cmdShowAll_Click:
MsgBox Err.Description
Resume Exit_cmdShowAll_Click
End Sub

Το πρόβλημα είναι το εξής :
ΟΤΑΝ χρησιμοποιώντας το φίλτρο ΔΕΝ εμφανίζεται καμμιά εγγραφή τότε το πάτημα του cmdShowAll ΔΕΝ εμφανίζει ΟΛΕΣ τις εγγραφές.
Θα μπορούσε να διορθωθεί αυτό;