[ Φόρμες ] Ταξινόμηση και εύρεση της εγγραφής

[Χρήστος]

Γεια σας
Σε κουμπί φόρμας(με το κλικ) έχω βάλει τον παρακάτω κώδικα.
Έτσι πετυχαίνω:
Με την εισαγωγή της εγγραφής να γίνεται αύξουσα ταξινίμηση στο πεδίο Τμήμα και να βρίσκει την εγγραφή στην νέα της θέση (μετά την ταξινόμηση)

Που πρέπει να μπεί ο κώδικας αυτός (ϊσως να θέλει και αλλαγές) ώστε η διαδικασία να γίνεται αυτόματα δίχως κλικ;
(Το τμήμα δεν είναι σύνθετο πλαίσιοώστε να μπεί μετά από ενημέρωση!)

Κώδικας.................................... ..

Dim RecID As Long

If Me.Recordset.Clone.RecordCount Then
RecID = Nz(Me.ID)

End If
Me.OrderBy = "Τμήμα"
Me.OrderByOn = True

If Len(Nz(RecID)) > 0 Then
With Me.Recordset.Clone
.FindFirst ("ID=" & RecID)
If Not .NoMatch Then
Me.Bookmark = .Bookmark
Else
MsgBox "Δεν βρέθηκε.", vbInformation, "ΕΝΗΜΕΡΩΣΗ"
End If
End With
End If