AccessTr.neT

Tam Versiyon: Mükerrer Kayıt Sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayın hocalarım sizlerin yardımıyla bir şeyler yapmaya çalışıyorum. Forumda mükerrer kayıt ile ilgili bir kaç çalışma buldum Ancak kod konusunda bilgim olmadığından örnek çalışmaları kendi çalışmama uygulayamadım.
Bir şahsın bir kaç kaydı oluyor. Sadece dosya numaraları farklı oluyor. 
Bundan dolayı aynı TC kimlik numarası kişinin kayıt yapılacak aynı dosya numarası ile bir kayıt varsa bana uyarı vermesini ve kayıt yapmamasını istiyorum. Bu konuda yardımlarınızı talep ediyorum.
hem TC hem de Dosya numarası aynı ise mi uyarı verecek?
kaydetme butonuna da ekleyebilirsiniz TC ve dosyano metin kutularından çıkıldığında olayına da

Dim SayKayit As Integer
SayKayit = DCount("*", "tblŞahısBilgileri", [Tc Kimlik No] & "=" & Me.txtTcKimlikNo & " and " & "DosyaNo='" & Me.txtDosyaNo & "'")
 If SayKayit > 0 Then MsgBox (" Aynı TC ve Dosya No Var")
exit sub ' exit sub fonksiyondan çıkmanızı sağlar
Halil hocam bir kişinin mahkemelerden gelen farklı dosyaları var. Bazen aynı kişinin daha önceden kayıt yapılmış aynı dosya numaralı bir evrakı gelebiliyor. Bu nedenle tekrar aynı evraka farklı numara vermemek için kayıt yapınca uyarı vermesini istiyorum.
Öncelikle, Yapılmaması Gereken Ölümcül HatalarURL'ye Git konusunu inceleyiniz. Tablo ve form isimlerini, formdaki denetim isimlerini düzenleyiniz. Ayrıca, Vba bilginiz olmayabilir ama uğraşmadan öğrenemezsiniz. @haliliyas'ın yazdığı kodun uygulamanıza eklenmiş hali ektedir.
Teşekkür ederim. Forumda buldum örnek ne yaptıysam devamlı hata verdi ondan dolayı yardım istemiştim.
çalışmanızın son durumuyla ilgili bilgi verir misiniz?
Çözüme ulaştınız mı?