[ Φόρμες ] Αυτόματη Αρίθμηση σε τιμολόγηση

[AntonisSar]

Καλησπέρα… και Καλή χρονιά!!!

Για να έχω αυτόματη αρίθμηση τιμολογίου χρησιμοποιώ τον κώδικα(κάπου εδώ τον βρήκα):
Private Sub Form_BeforeInsert(Cancel As Integer)
If Nz(Me.Controls("Νο"), 0) = 0 Then Me.Controls("Νο") = Nz(DMax("[Νο]", "ΤΙΜΟΛΟΓΗΣΗ"), 0) + 1
End Sub

Όμως ο παραπάνω κώδικας παίρνει το μεγαλύτερο νούμερο της στήλης και προσθέτει ένα… Εαν θέλω να παίρνει αυτόματη αρίθμηση για το τιμολόγιο, άλλη για το δελτίο Αποστολής, άλλη για το Δ. Αποστ. Τιμ., κ.ο.κ… Τι πρέπει να προσθέσω στον κώδικα για να διαβάζει την στήλη του παραστατικού και να παίρνει μετά την μεγαλύτερη τιμή από την στήλη No?

[kapetang]

Καλημέρα


Αντώνη, αν υποθέσουμε ότι ο τύπος του παραστατικού αποθηκεύεται στο πεδίο ΤΥΠΟΣ, άλλαξε τον κώδικα με τον ακόλουθο:

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

Φιλικά/Γιώργος

[AntonisSar]

Γιώργο ευχαριστώ πολύ για την απάντηση... ΦΦυσικά ο τύπος παραστατικού ειναι κείμενο και με αυτόν τον κώδικα δίνει συνέχεια αρίθμηση 1...

[kapetang]

Είναι φανερό ότι δεν προσάρμοσες σωστά τον κώδικα στα δεδομένα σου.

Το λάθος δεν είναι δυνατόν να εντοπιστεί χωρίς να ανεβάσεις δείγμα της ΒΔ.

[AntonisSar]

Γιώργο είναι συνέχεια της προηγούμενης που είχα ανεβάσει... Μπορείς να δεις την παλιά... να μην την ανεβάζω συνέχεια!!!

[AntonisSar]

Αυτό έγραψα...
If Nz(Me.Controls("Νο"), 0) = 0 Then Me.Controls("Νο") = Nz(DMax("[Νο]", "ΤΙΜΟΛΟΓΗΣΗ", "ΠΑΡΑΣΤΑΤΙΚΟ='" & Me.ΠΑΡΑΣΤΑΤΙΚΟ & "'"), 0) + 1

[kapetang]

Το πεδίο ΠΑΡΑΣΤΑΤΙΚΟ, μολονότι εμφανίζει τιμές κειμένου, ενδέχεται να είναι αριθμητικό.

Δοκίμασε και τον κώδικα:

If Nz(Me.Controls("Νο"), 0) = 0 Then Me.Controls("Νο") = Nz(DMax("[Νο]", "ΤΙΜΟΛΟΓΗΣΗ", "ΠΑΡΑΣΤΑΤΙΚΟ=" & Me.ΠΑΡΑΣΤΑΤΙΚΟ ), 0) + 1

[AntonisSar]

Μου βγάζει λάθος Γιώργο...
η Βάση ειναι εδω... (εαν θες να κάνεις δοκιμές)
http://www.ms-office.gr/forum/access...se-pinaka.html

Υ.Γ. Ευχαριστώ για την βοήθεια!!!

[kapetang]

Καλησπέρα

Αντώνη, δοκίμασε τον παρακάτω κώδικα:

Private Sub ΠΑΡΑΣΤΑΤΙΚΟ_AfterUpdate()
    If Nz(Me.ΠΑΡΑΣΤΑΤΙΚΟ, "") <> "" Then
        Me.Νο = Nz(DMax("Νο", "ΤΙΜΟΛΟΓΗΣΗ", "ΠΑΡΑΣΤΑΤΙΚΟ='" & Me.ΠΑΡΑΣΤΑΤΙΚΟ & "'"), 0) + 1
    End If
End Sub

Φιλικά/Γιώργος

[AntonisSar]

Εισαι αστέρι!!!
Ευχαριστώ πολύ δουλεύει τέλεια!!!