
17-03-09, 10:13
|
 | Όνομα: Ηλιάδης Κωνσταντίνος Έκδοση λογισμικού Office: Ms-Office 2000, Ms-Office 2003 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 13-12-2008 Περιοχή: Θεσσαλονίκη
Μηνύματα: 129
| |
Ιδιαίτερος τρόπος αναζήτησης
Ιδιαίτερος τρόπος αναζήτησης με βάση 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
__________________
Κωνσταντίνος / kon73 Τι δεν πρέπει να έχεις :*Πλούτο χωρίς μόχθο *Πολιτική χωρίς αρχές *Απόλαυση χωρίς συναίσθημα *Γνώση χωρίς χαρακτήρα *Εμπόριο χωρίς ήθος *Επιστήμη χωρίς ανθρωπιά *Λατρεία χωρίς θυσία. Μαχάτμα Γκάντι |