+- 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ığı: İsime Göre Mükerrer Girişi Engelleme (/konu-isime-gore-mukerrer-girisi-engelleme.html)
İsime Göre Mükerrer Girişi Engelleme - mehmetb84 - 31/07/2018
Merhaba arkadaşlar;
Ekteki veritabanımda; isim bazında mükerrer fatura girişlerini önlemeyi amaçlıyorum.
Tablo özelliklerinde "yineleme yok" seçeneğiyle kriter olmaksızın mükerrer kayıt girişini önlemek mümkün fakat tablo düzenini değiştirmeksizin (yani alt tablo eklemeksizin) başka bir kritere bağlı olarak mükerrer kaydı önleyebiliyor muyuz?
Örnekle anlatacak olursam;
Tablomdaki kayıtlarda:
İsim: Ceren Faturano:12345
İsim: Ahmet Faturano:12345
kayıtları bulunmakta.
Yeni bir kayıt girişinde; "Mehmet" ismiyle "12345" fatura numarasının girişine izin verilmesini istiyorum fakat Ahmet ismiyle "12345" fatura numarasının bir daha girişini engellemek istiyorum.
Yani, farklı isimlerde aynı faturanın girilmesine izin verirken, isim bazında mükerrer kayıt girilmesini engellemek istiyorum.
Bu mümkün müdür?
Yardımlarınız için şimdiden teşekkür ederim.
Cvp: İsime Göre Mükerrer Girişi Engelleme - ozanakkaya - 31/07/2018
tofatura_isim açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazarak deneyiniz.
Dim AccessTrneT_Kontrol As Integer
AccessTrneT_Kontrol = DCount("tofatura_no", "toplafaturalarust", "[tofatura_isim] ='" & [tofatura_isim] & "' And [tofatura_fat2no]= '" & [tofatura_fat2no] & "'")
If AccessTrneT_Kontrol > 0 Then
MsgBox ("bu kayıt girilemez")
tofatura_isim = ""
Exit Sub
End IfCvp: İsime Göre Mükerrer Girişi Engelleme - mehmetb84 - 31/07/2018
Çok teşekkürler Ozan bey. Sorun çözüldü.