Ιδιαίτερος τρόπος αναζήτησης

[kon73]

Ιδιαίτερος τρόπος αναζήτησης με βάση ID (Unique Μοναδικού Κλειδίου)

Δηλαδή όταν αλλάζουμε τα στοιχεία ID να μεταβαίνει αυτόματα στα στοιχεία της εκάστοτε εγγραφής και όχι να το τροποποιεί. Έτσι λοιπόν στο BeforeUpdate του ID (Είναι textbox) έχουμε την εισαγωγή του κώδικα.

Private Sub Id_BeforeUpdate(Cancel As Integer) 
 If Me.NewRecord = False Then 
    Dim Rcdset As DAO.Recordset 
    Set Rcdset = Me.RecordsetClone 
    Rcdset.FindFirst ("Id=" & Me.Id) 
    Cancel = True 
    Me.Undo 
    Me.Bookmark = Rcdset.Bookmark 
 End If 
End Sub