بعد اذن استاذي @kkhalifa1960
لماذا لا تضيفه مباشرة من مربع التحرير الخاص بالبحث..ان كان لديك مربع تحرير ..استخدم الكود التالي
Private Sub cboNumber_NotInList(NewData As String, Response As Integer)
Dim strTmp As String
strTmp = "Add '" & NewData & "' as a new EmpNumber?"
If MsgBox(" هذا الرقم لم يتم تسجيله", vbCritical + vbYesNo, "تنبيه") = vbYes Then
strTmp = "INSERT INTO Employee ( EmpNumber ) " & _
"SELECT """ & NewData & """ AS EmpNumber;"
DBEngine(0)(0).Execute strTmp, dbFailOnError
Response = 0
Me.cboNumber = ""
Me.Requery
Else
Response = 0
Me.cboNumber = ""
End If
End Sub
ولاتنسى..
limit to list=yes