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

Ιδιαίτερος τρόπος αναζήτησης με βάση 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