31-10-14, 12:59
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 443
| |
Καλησπέρα σε όλους
Βαγγέλη η δική μου πρόταση είναι αυτή
Στή φόρμα σου σε μορφή σχεδίασης
Στο πεδίο όνομα->συμβάν -> μετά την ενημέρωση
πρόσθεσε τον κώδικα.
Private Sub Όνομα_AfterUpdate()
Me.Κωδ_πελ = DMax("Κωδ_πελ", "Ο πίνακάς σου", "Κωδ_πελ") + 1
End Sub
|