[Tasos]

Καλημέρα Χρήστο!

Το συμβάν AfterUpdate() (Μετά την ενημέρωση) υπάρχει σε όλα τα στοιχεία ελέγχου μιας φόρμας Access που μπορούν να πάρουν τιμή.

Έστω ότι η φόρμα σου μεταξύ άλλων περιέχει τα πεδία:

ID = Αναγνωριστικό
και
Τμήμα = Πεδίο με μορφή "Κείμενο"

Χρησιμοποίησε τον παρακάτω κώδικα:

Private Sub Τμήμα_AfterUpdate()
    Dim RecID As Long
    Me.Dirty = False
    RecID = Me.ID
    Me.OrderBy = "[Τμήμα]"
    Me.OrderByOn = True
    With Me.Recordset.Clone
        .FindFirst ("ID=" & RecID)
        If Not .NoMatch Then
            Me.Bookmark = .Bookmark
        End If
    End With
End Sub

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

Τάσος