[kapetang]

Καλημέρα

Θανάση, για να αποθηκεύεται αυτόματα η τιμή ενός στοιχείου ελέγχου μιας φόρμας στον υποκείμενο πίνακα το στοιχείο θα πρέπει να έχει προέλευση κάποιο πεδίο του πίνακα.
Δοκίμασε το εξής:
1. Στη φόρμα σβήσε τον τύπο από το πλαίσιο κειμένου Invoice και όρισε προέλευση το πεδίο Invoice του υποκείμενου πίνακα Orders.
2. Καταχώρησε στη φόρμα τον ακόλουθο κώδικα

Private Sub Status_AfterUpdate()
    If IsNull(Me.Invoice) Then
        If Me.Status = "INVOICE" Then
            Me.Invoice = Nz(DMax("Invoice", "Orders"), 0) + 1
            If Me.Dirty Then Me.Dirty = False
        End If
    End If
End Sub

Με τις παραπάνω ενέργειες όταν στη φόρμα αλλάξουμε, σε μία εγγραφή, την τιμή του πτυσσόμενου πλαισίου σε «INVOICE» θα εκτελεστεί ο κώδικας και στο πεδίο «Invoice» θα καταχωρηθεί η κατάλληλη τιμή (μέγιστη αποθηκευμένη +1).
Οι αλλαγές θα γίνονται μία-μία εγγραφή.

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