AccessTr.neT
Listede Yoksa Eklesin Ama Sormasın - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listede Yoksa Eklesin Ama Sormasın (/konu-listede-yoksa-eklesin-ama-sormasin.html)

Sayfalar: 1 2


Listede Yoksa Eklesin Ama Sormasın - remi - 16/07/2009

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


Cvp: Listede Yoksa Eklesin Ama Sormasın - C*e*l*o*y*c*e - 16/07/2009

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


Cvp: Listede Yoksa Eklesin Ama Sormasın - remi - 16/07/2009

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.


Cvp: Listede Yoksa Eklesin Ama Sormasın - C*e*l*o*y*c*e - 16/07/2009

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


Cvp: Listede Yoksa Eklesin Ama Sormasın - remi - 16/07/2009

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


Cvp: Listede Yoksa Eklesin Ama Sormasın - C*e*l*o*y*c*e - 16/07/2009

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