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

[kapetang]

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

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

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

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