Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Mükerrer Kayıtı Engellemek

1tk
1tk
Access Cevaplanmış Soruları
3
1677

Mükerrer Kayıtı Engellemek

#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,10:24
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Merhaba,
tabloda Ogrencinin_Adi_Soyadi alanı birincil anahtar olmaz, birincil anahtar S/N alanı olmalıdır. 

Kaydet butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Dim Key_Adet As Integer
Dim kriter
kriter = Me.Ogrencinin_Adi_Soyadi & Me.Ogrencinin_Okul_Numarasi & Me.Ogrencinin_Cep_Telefonu_Numarasi
Key_Adet = DCount("*", "Ana_Tablo", "Ogrencinin_Adi_Soyadi&Ogrencinin_Okul_Numarasi&Ogrencinin_Cep_Telefonu_Numarasi='" & kriter & "'")
If Key_Adet > 0 Then
    MsgBox "Dikkat..! Bu öğrenci bilgilerine sahip bir kayıt zaten var olduğundan tekrar kaydedemezsiniz."
    Me.Undo
    Exit Sub
End If

'*******KAYDET**********
DoCmd.RunCommand acCmdSaveRecord
'******YENI KAYIT********
DoCmd.GoToRecord , , acNewRec

Ayrıca, aynı veriyi girdikten sonra uyarı verdirip Me.Undo kodu ile eski haline getirirseniz aynı verileri tekrar yazmak zorunda kalırsınız.
Me.Undo yerine

Ogrencinin_Adi_Soyadi.setfocus


 kodlarını ekleyerek uyarı sonrası düzeltme yapılabilmesi için öğrenci adı soyadı alanına odaklanılmasını sağlayabilirsiniz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Mükerrer Kayıtı Engellemek - Yazar: 1tk - 03/01/2018, 01:31
Cvp: Mükerrer Kayıtı Engellemek - Yazar: ozanakkaya - 03/01/2018, 14:33
Cvp: Mükerrer Kayıtı Engellemek - Yazar: 1tk - 03/01/2018, 15:05
Cvp: Mükerrer Kayıtı Engellemek - Yazar: 1tk - 03/01/2018, 15:47