www.MsAccess.gr

Έχουμε ένα πεδίο Payee σε μία φόρμα που είναι combo box όπου το Payee είναι οι δικαιούχοι πληρωμών. Σ'αυτό έχουμε την ιδιότητα Limit to List = Yes. Επομένως όταν το στοιχείο που εισάγουμε στο Combo box δεν υπάρχει μας εμφανίζει μήνυμα "Να προστεθεί η καινούργια εγγραφή;" Με επιλογή ναι στο πίνακα tblpayees και στο πεδίο payee του πίνακα εισάγετε η καινούργια τιμή (NewData) και αυτόματα με το acDataErrAdded στο response έχουμε την εμφάνιση της καινούργια τιμής και στο Combo box.

Βασική προϋπόθεση της αυτόματης εισαγωγής σε ένα πίνακα μίας τιμής είναι να μην χρειάζεται ο πίνακας και άλλα πεδία να συμπλήρωσει στην τρέχων εγγραφή του αλλά ως required να έχει μόνο το πεδίο που εισάγουμε αυτόματα με το παρακάτων Event.

Private Sub payee_NotInList(NewData As String, response As Integer)
 response = MsgBox("Να προστεθεί η καινούργια εγγραφή ;", vbExclamation + vbDefaultButton1 + vbYesNo, "Δεν υπάρχει αυτό το στοιχείο")
    If response = vbYes Then
            Dim db As ADODB.Connection
            Dim rstname As ADODB.Recordset
            Set db = CurrentProject.Connection
            Set rstname = New ADODB.Recordset
            rstname.Open "select * from tblpayees", db, adOpenDynamic, adLockOptimistic
            rstname.AddNew
            rstname![payee] = NewData
            rstname.Update
            response = acDataErrAdded
            rstname.Close
            db.Close
            Set rstcounter = Nothing
            Set cncurrent = Nothing
            response = acDataErrContinue
    Else
        Screen.ActiveControl.Undo
        response = acDataErrAdded
    End If
       rstname.Close
       Set db = Nothing
       Set rstname = Nothing
End Sub