[Tasos]

Καλημέρα σε όλους!

Αγαπητέ Λευτέρη έχεις δίκιο που λες ότι δεν σου λειτουργεί γιατί ο κώδικας κάνει ακριβώς το αντίθετο από το ζητούμενο σου δηλαδή μετά την αφαίρεση του φίλτρου σε μεταφέρει στην εγγραφή που είχε επιλεγεί πριν την εφαρμογή φίλτρου!

Δεν κατάλαβα καλά το ζητούμενο παρόλο ήταν σαφές από πλευράς σου και έτσι σου πρότεινα το αντίθετο.

Για να μεταφερθείς με το πάτημα του κουμπιού cmdClearSearch στην τελευταία εγγραφή τη οποία είχες επιλέξει όταν η φόρμα είχε φιλτραριστεί,
η μόνη αλλαγή που θα χρειαστεί να κάνεις είναι να αντικαταστήσεις τον κώδικα του κουμπιού με τον παρακάτω κώδικα :

Private Sub cmdClearSearch_Click()
    Dim RecID As Long
    Me.txtSearch = vbNullString
    RecID = Nz(Me.ID)
    Me.FilterOn = False
    Me.Filter = vbNullString
    With Me.Recordset.Clone
        .FindFirst ("ID=" & RecID)
        If Not .NoMatch Then Me.Bookmark = .Bookmark
    End With
End Sub

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

Τάσος