Şahıs Formunda,şahısın 5-6 tane kişisel bilgisini girip, mesleğini ekliyoruz. Meslek , meslekler tablosunda yoksa listeye ekliyor....Tblmeslek de, kimlik alanı otomatik sayı iken sorunsuz çalışıyordu..Ancak hazırladığım bir sorguda meslekleri RAKAM olarak gösterdiğinden, TBLMESLEK de ki KİMLİK alan türünü METİN olarak değiştirdim..Sorguda ki hata giderildi.. Ancak, şimdi de LİSTEDE YOKKEN kodu hata veriyor...Meslek KİMLİK alan türü otomatik sayı iken aşağıda ki kodu kullanıyordum...

Türü METİN olarak değiştirdim, aşağıda ki kodu, METİN türlü bir alana nasıl uygulayabilirim ?



Private Sub MESLEK_NotInList(NewData As String, Response As Integer)
Dim strsql As String, X As Integer
X = MsgBox("Girilen MESLEK Listede Yok. Listeye Eklensin mi?", 52, "Bence Eklensin")
If X = vbYes Then
strsql = "Insert Into TBLMESLEK ([MESLEK]) values ('" & NewData & "')"
MsgBox "Kaydetme İşlemi Tamamlandı.", 64, "Kaydedildi"
CurrentDb.Execute strsql, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me.MESLEK.Value = ""
End If
End Sub