Mükerrer Kayıt Sorunu

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 Hatalar
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ı?