bu kodu aynen yaz
Private Sub HizmetVerenKişi_NotInList(NewData As String, Response As Integer)
Dim strSQL As String
Dim i As Integer
Dim Msg As String

If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' listenizde yok." & vbCr & vbCr
Msg = Msg & "Eklemek ister misiniz?"

i = MsgBox(Msg, vbQuestion + vbYesNo, "Bilinmeyen Hizmetveren...")
If i = vbYes Then
strSQL = "Insert Into HizmetVerenler ([HizmetVerenAdı]) " & _
"values ('" & NewData & "');"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

kişi listede yokssa sen liste içine yaz o seni uyarıp eklemek istiyormusun diye soracak eve diyince artık eklenmiş ve ve tabloya kaydedilmiş olacak