Kayıt Bul Butonu Hatası

iyi günler arkadaşlar,
ekteki çalışmamda; ana tablo kayıt ekranında verileri girdiğimde öğrenci adı soyadı, öğrenci okul numarası ve öğrenci cep telefonu numaralarını kontrol ederek mükerrer kayıt yapılmasını engellemek istiyorum. bu arada yıllar sonra aynı okul numarasının başka bir öğrenciye verilebilecek olduğunu da göz önünde bulundurmamız gerekir.

Merhaba;
Aşağıdaki kodu Öğrenci Adı Soyadı metin kutusunun Güncelleştirme Sonrası olay yordamına eklemeniz durumunda aynı isimde bir kayıt var ise bir uyarı mesajı verip kaydı geri alır ve mükerrer kayıt yapılmasını önler. 
Kodu inceleyerek, araştırarak aynı mantık ile diğer alanlara sizde uygulayabilirsiniz.
İyi çalışmalar.

Dim OgrenciAdSoyad_Adet As Byte

    OgrenciAdSoyad_Adet = DCount("[Öğrencinin Adı Soyadı]", "Ana_Tablo")

If OgrenciAdSoyad_Adet > 0 Then

    MsgBox "Bu isimli öğrenci zaten kayıtlı. Tekrar kaydedemezsiniz..!"

    Me.Undo

    Exit Sub

End If

sn. direnist
öneriniz için teşekkürler. çalışmama uyguladım ve başarılı ancak; veli kayıtları farklı olsa bile aynı isimli ögrenci adını kaydetmiyor. kod yazımını hiç bilmediğimden işin içinden çıkamıyorum. buradaki püf noktası bütün kayıtlardaki bilgilerin aynı olması yani mükerrer kayıt yapmamak üzerine idi.

Merhaba;
Ekli örneği inceler misiniz?

(19/12/2017, 00:06)direnist yazdı: Merhaba;
Ekli örneği inceler misiniz?

sn. direnist emeğinize sağlık güzel olmuş