[Meteora]

Καλημέρα...

Δεν έχεις σωστούς κανόνες ονοματολογίας. Μη χρησιμοποιείς έντονα χρώματα. Είδα πίνακες άσχετους με τη φόρμα Πελάτες και την υποφόρμα της.
Γιατί τόσες πληκτρολογήσεις για την ημερομηνία ;
Η υποφόρμα χρειαζόταν επιδιορθώσεις, ώστε να είναι 'Συνεχείς φόρμες' ουσιαστικά.
Ο κώδικας που θα κάνει τη δουλειά σου ενεργοποιείται μόλις επιλέξεις το ρούχο (comboBox).
Δες τι έχω κάνει και αν χρειαστεί τα ξαναλέμε...

Private Sub Σύνθετο_πλαίσιο17_AfterUpdate()
Dim timi As Integer
timi = DCount("[Α/Α]", "ΡΟΥΧΑ") + 1
Select Case Round(timi / 9999) Mod 2
Case 0
[ΣΕΙΡΑ] = "Α"
Case 1
[ΣΕΙΡΑ] = "Β"
End Select
[ΚΩΔΙΚΟΣ] = DCount("[Α/Α]", "ΡΟΥΧΑ") + 1 - Round(timi / 9999) * 9999
End Sub

Με εκτίμηση

Νίκος Δ.

Υστερολόγιο : βρήκα λίγο χρόνο για να δουλεύει εσαεί... νομίζω δηλαδή!