Kayıt Bul Butonu Hatası

17/12/2017, 15:34

1tk

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.
18/12/2017, 15:18

direnist

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
18/12/2017, 17:27

1tk

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.
19/12/2017, 00:06

direnist

Merhaba;
Ekli örneği inceler misiniz?
19/12/2017, 10:01

1tk

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

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