Forum - Φόρμες Αυτόματη απόδοση αύξοντα αριθμού

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Φόρμες ] Αυτόματη απόδοση αύξοντα αριθμού (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1456-aytomati-apodosi-aiksonta-arithmoi.html)

Αυτόματη απόδοση αύξοντα αριθμού

Καλημέρα σας. Έχω βρει πολλές λύσεις στο forum αλλά αυτή τη φορά θέλω κάτι πιο σύνθετο. Συγκεκριμένα έχω μια φόρμα που περνάω πληρώματα σκαφών για αγώνες κωπηλασίας και θέλω, αν γίνεται, στο πεδίο "ΔΙΑΔΡΟΜΗ" να μου βάζει αυτόματα τον αριθμό διαδρομής, λαμβάνοντας υπ' όψιν δεδομένα από δύο άλλα πεδία. Δηλαδή αν στο πεδίο "ΚΑΤΗΓΟΡΙΑ" η τιμή είναι 'ΠΑΙΔΩΝ" και στο πεδίο "ΑΓΩΝΙΣΜΑ" η τιμή είναι "1Χ" το πρώτο πλήρωμα που θα εγγραφεί να πάρει τον αριθμό 1, το δεύτερο τον αριθμό 2 και ούτω καθ' εξής. Αν αλλάξει μια τιμή στα προαναφερθέντα πεδία, "ΚΑΤΗΓΟΡΙΑ" ή "ΑΓΩΝΙΣΜΑ" η αρίθμηση να αρχίσει από την αρχή. Αυτό περίπου γίνεται, με τη βοήθειά σας, στο πεδίο "ΑΡ ΠΛΗΡΩΜΑΤΟΣ", αλλά εκεί είναι μια απλή αρίθμηση χωρίς παραμέτρους. Δεν ξέρω αν έγινα κατανοητός, γιαυτό επισυνάπτω και το αρχείο.

Σας ευχαριστώ

Καλημέρα στην παρέα

Γιώργο, στη ΒΔ που επισυνάπτω, επιχείρησα μια προσέγγιση του ζητούμενου.
Συγκριμένα στη φόρμα «ΕΙΣΑΓΩΓΗ ΣΥΜΜΕΤΟΧΩΝ» πρόσθεσα τον παρακάτω κώδικα:

Κώδικας:

Private Sub ΑΓΩΝΙΣΜΑ_AfterUpdate()

        If Me.NewRecord Then NewPath

End Sub
 

Private Sub ΚΑΤΗΓΟΡΙΑ_AfterUpdate()

    If Me.NewRecord Then NewPath

End Sub
 

Public Sub NewPath()

    If IsNull(Me.ΚΑΤΗΓΟΡΙΑ) Or IsNull(Me.ΑΓΩΝΙΣΜΑ) Then Exit Sub

    Me.ΔΙΑΔΡΟΜΗ = Nz(DMax(" [ΔΙΑΔΡΟΜΗ]", "Πίνακας1", " [ΚΑΤΗΓΟΡΙΑ]='" & _

    Me.ΚΑΤΗΓΟΡΙΑ & "' And [ΑΓΩΝΙΣΜΑ]='" & Me.[ΑΓΩΝΙΣΜΑ] & "'")) + 1

End Sub

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

Τελικά δεν έχετε όρια! Ευχαριστώ πολύ, δουλεύει έτσι όπως ακριβώς ήθελα!