05-01-15, 09:01
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Καλημέρα
Αντώνη, αν υποθέσουμε ότι ο τύπος του παραστατικού αποθηκεύεται στο πεδίο ΤΥΠΟΣ, άλλαξε τον κώδικα με τον ακόλουθο:
1) Αν το πεδίο ΤΥΠΟΣ είναι αριθμητικό
If Nz(Me.Controls("Νο"), 0) = 0 Then Me.Controls("Νο") = Nz(DMax("[Νο]", "ΤΙΜΟΛΟΓΗΣΗ","ΤΥΠΟΣ=" & me.ΤΥΠΟΣ), 0) + 1
2) Αν το πεδίο ΤΥΠΟΣ είναι κειμένου
If Nz(Me.Controls("Νο"), 0) = 0 Then Me.Controls("Νο") = Nz(DMax("[Νο]", "ΤΙΜΟΛΟΓΗΣΗ","ΤΥΠΟΣ='" & me.ΤΥΠΟΣ & "'"), 0) + 1
Φιλικά/Γιώργος
|