Private Sub Nationality_NotInList(NewData As String, response As Integer)
If IsNull(NewData) Or NewData = vbNullString Then Exit Sub
If MsgBox(NewData & " does not exists in the table. Would you like to add it now?", vbYesNo + vbQuestion, "Nationality....") = vbYes Then
response = acDataErrAdded
DoCmd.RunSQL ("INSERT INTO tblNationality (Nationality) VALUES ('" & NewData & "');")
response = acDataErrContinue
This is the customized message that I use when a value entered in the combobox that is not in the table.
Hope this helps.
There many be others on this forum who may make some other suggestions if my suggestion doenst work for you.