[nasos23]

Καλημέρα σε όλους
Χρήστο δοκίμασε τον παρακάτω κώδικα όταν δεν υπάρχει στη λίστα.

Private Sub cboSelect_NotInList(NewData As String, Response As Integer)
    On Error GoTo cboSelect_NotInList_Err
    Dim intAnswer As Integer
    Dim strSQL As String
    intAnswer = MsgBox("Η επιλεγμένη εγγραφή " & Chr(34) & NewData & _
        Chr(34) & " δεν υπάρχει στη λίστα." & vbCrLf & _
        "Θέλετε να την προσθέσετε τώρα?" _
        , vbQuestion + vbYesNo)
    If intAnswer = vbYes Then
        strSQL = "INSERT INTO tbl1([Πεδίο1]) " & _
                 "VALUES ('" & NewData & "');"
        DoCmd.SetWarnings False
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
       
        Response = acDataErrAdded
     Else
         Me.cboSelect.Undo
        
        MsgBox "Παρακαλώ επιλέξτε μια εγγραφή απο τη λίστα."
           
        Response = acDataErrContinue
     
    End If
cboSelect_NotInList_Exit:
    Exit Sub
cboSelect_NotInList_Err:
    MsgBox Err.Description, vbCritical, "Error"
    Resume cboSelect_NotInList_Exit
End Sub