Listede Yoksa Eklesin Ama Sormasın

Sayın Hocalarım
İyi geceler benim bir sorunum var açılan kutuyla formdan bilgi giriyorum
bilgi açılan kutudan yoksa eklensin işlemini örneklerinizden yararlanarak yapabildim. Fakat listede yoksa açılan iki uyarı mesajı var kullanıcıya soruyor
ben bunları kaldıramadım. Açılan kutuya direk girdiğim bilgiyi yoksa kaynak tabloya eklesin ama kullanıcıya uyarı mesajı açmasını istiyorum.
yardımlarınızı bekliyorum

Saygılarımla

yaptığın kod veya örneği ekleyin ,onun üzerinden gidelim

Peki Hocam
birazdan ekleyecem

---

Sayın Celoyce Hocam
Örnek ektedir dosya açıldığında ilk gelen formda bilgi girmek için Firma satırlarında açılan kutular var buruya elle bilgi girdiğimde kaynak tabloya kayıt yapsın ama mesaj uyarı vermesin istiyorum.

sanırım istediğiniz bu örnek altta,belirttilen isme listede olmayan birşey girin

Celoyce hocam
elinize sağlık örnek için teşekkür ederim. yalnız kayıt esnasında gelen mesajı iptal edebiliyormuyuz onu iptal edebilirsek çok iyi olacak. kullanıcıya hiç birşey sormasın
satıra yazılanı direk kaydetsin istiyorum.
Saygılarımla

kodu şu şekilde değiştir

Dim strSQL As String
Dim I As Integer
Dim msg As String
If NewData = "" Then Exit Sub
strSQL = "Insert Into firmalar ([firma]) " & _
"values ('" & NewData & "');"

CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded