09-10-12, 23:57
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.011
| |
Καλησπέρα! Αν μου επιτρέπετε:
Ο κώδικας που θα αποθηκεύει το γράμμα της σειράς σε κάθε εγγραφή με το πάτημα του κουμπιού κλήρωση γίνεται με τον εξής απλό τρόπο: Κώδικας: CurrentDb.Execute "UPDATE Πίνακας1 SET Πίνακας1.ΣΕΙΡΑ = ChrW$(Int([ΔΙΑΔΡΟΜΗ]/3)+ Abs([ΔΙΑΔΡΟΜΗ] Mod 3<>0)+912)"
και πρέπει να μπει πριν από την γραμμή Me.Refresh (τελευταία γραμμή).
Καλό βράδυ!
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Τελευταία επεξεργασία από το χρήστη Tasos : 10-10-12 στις 00:10.
|