[Tasos]

Καλησπέρα Χρήστο!
Είναι καλύτερο να αποφεύγομε τα λάθη του κώδικα αντί να τα προκαλούμε προκειμένου να επιτύχουμε το σκοπό μας.

Όταν η φιλτραρισμένη φόρμα δεν έχει εγγραφές, η γραμμή: RecID = Nz(Me.ProiontaID) θα προκαλέσει σφάλμα αφού το πεδίο ProiontaID δεν υπάρχει καν στη φόρμα.

Τροποποιούμε λοιπόν τον κώδικα έτσι:

Private Sub cmdShowAll_Click()
    On Error GoTo Err_cmdShowAll_Click

    Dim RecID As Long
    Me.txtSearch = vbNullString
    Me.combofiltro = vbNullString

  If Me.Recordset.Clone.RecordCount Then
        RecID = Nz(Me.ProiontaID)
   End If
    Me.FilterOn = False
    Me.Filter = vbNullString
    If RecID > 0 Then
        With Me.Recordset.Clone
            .FindFirst ("ProiontaID=" & RecID)
            If Not .NoMatch Then Me.Bookmark = .Bookmark
        End With
 End If
Exit_cmdShowAll_Click:
    Exit Sub

Err_cmdShowAll_Click:
    Resume Exit_cmdShowAll_Click
End Sub

Καλή συνέχεια!

Τάσος