17-03-09, 10:13
|
| Όνομα: Ηλιάδης Κωνσταντίνος Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013 Γλώσσα λογισμικού Office: Αγγλική | | Εγγραφή: 13-12-2008 Περιοχή: Chicago
Μηνύματα: 119
| |
 Ιδιαίτερος τρόπος αναζήτησης
Ιδιαίτερος τρόπος αναζήτησης με βάση 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
|