24-10-14, 14:59
|
| Όνομα: Θωμάς Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 10-10-2014
Μηνύματα: 4
| |
βρηκα και εβαλα τον παρακάτω κώδικα στην εφαρμογή
Private Sub PARASTATIKO_AfterUpdate()
If Nz(Me.PARASTATIKO, "") > "" Then
If Me.NewRecord Then
Me.ARITHMISH = Nz(DMax("[ARITHMISH]", "[EPIKEFALIDA]", "[PARASTATIKO]= " & Me.[PARASTATIKO] & " "), 0) + 1
End If
End If
End Sub
Αυτο που θελω ειναι ανα παραστατικο να μου αλλαζει την αυξουσα αριθμηση.
Οντως δουλεύει μια χαρα αλλα οταν έφτασα στο παραστατικο νουμερο 10 δεν πάει στο 11 αλλα δίνει συνεχώς τον αριθμό 10. Μέχρι το 10 ομως δουλεύει μια χαρά !!!!!!!!!!!!
Και εκει που νόμιζα οτι ξεμπέρδεψα........ 
Καμία ιδέα??
|