11-11-09, 10:39
|
| Υπηρεσία υποστήριξης Όνομα: °°°°°°°°°°°°°°°°°° Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010 Γλώσσα λογισμικού Office: Αγγλική, Γερμανική, Γαλλική | | Εγγραφή: 10-11-2009
Μηνύματα: 42
| |
 Ιδιαίτερος τρόπος αναζήτησης
Ιδιαίτερος τρόπος αναζήτησης με βάση 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
Τελευταία επεξεργασία από το χρήστη Ms-Office-Development Team : 12-11-09 στις 03:08.
|
Αλλαγή σε γραμμικό τρόπο
