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 |