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

[Ms-Office-Development Team]

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