Private Sub MESLEK_NotInList(NewData As String, Response As Integer)
Dim strsql As String, X As Integer
X = MsgBox("Girmiş olduğunuz Meslek daha önce Kayıt Yapılmamış . Yeni Meslek Adı Eklemek İstermisiniz.", vbYesNo)
If X = vbYes Then
    strsql = "Insert Into Tbl_MESLEKLER  ([MESLEKADI]) values ('" & NewData & "')"
    'MsgBox strsql
    CurrentDb.Execute strsql, dbFailOnError
    Response = acDataErrAdded
Else
    Response = acDataErrContinue
End If
End Sub