Yani kaydet butonunu şöyle çalıştırabilir miyiz. Kayıt varsa yeni kayıt olmasın. Yoksa düzenle şeklinde çalışsa

Form yapısına göre kullanılabileceğiniz kod aşağıdadır.

Private Sub btnKaydet_Click()

Dim kayitadeti As Byte

If IsNull(txtkimlikno) Or txtkimlikno = "" Then

MsgBox " Lütfen Tc Kimlik No alanını doldurunuz", vbExclamation, "Uyarı"

Exit Sub

End If

If IsNull(txtadsoyad) Or txtadsoyad = "" Then

MsgBox " Lütfen Ad Soyad bilgisini giriniz", vbExclamation, "Uyarı"

Exit Sub

End If



If Me.Dirty = True Then



If MsgBox("Değişiklik Kaydedilsin mi?", vbExclamation + vbYesNo, "Kayıt Onayı") = vbYes Then



    DoCmd.RunCommand acCmdSaveRecord

    

Else



    Me.Undo

    

End If

End If



'kayıtlarda değişiklik yapılmış

'kayitadeti = DCount("*", "tbl_ogrenci", "adi_soyadi='" & txtadsoyad & "' ")

'If kayitadeti > 0 Then

'MsgBox "Bu Öğrenci Daha Önce Kaydetilmiştir.Kayıt İşlemi Yapılmayacaktır.", vbCritical, "Uyarı: Tekrar Eden Kayıt"

'DoCmd.CancelEvent

'Else



'MsgBox "Bilgiler Başarı İle Kaydedildi", vbInformation, "İşlem Tamam"

tmdenedimlerpasif

kisisayisi

'End If

'End If

End Sub

Sayın hocam;mükerrer kayıtı nasıl engelleyeceğim.

---

Kaydı kaydet ve Kaydet diye bir uygulama mı yapmam gerek? Çünkü aynı kişideyken yeni kayıtı tıklayıp kaydedince tekrar kaydediyor.

---

Aslında olay şu kayıt varsa düzenle-sil yapılabilecek yoksa yeni kayıt yapılacak gibi sanırım.

Merhaba, Uygulamanızda mükerrer kayıt kontrolünü tckimlik numarasından yaptırabilirsiniz. 

Dim kayitadeti As Byte

Dim GT

If IsNull(txtkimlikno) Or txtkimlikno = "" Then

MsgBox " Lütfen Tc Kimlik No alanını doldurunuz", vbExclamation, "Uyarı"

Exit Sub

End If

If IsNull(txtadsoyad) Or txtadsoyad = "" Then

MsgBox " Lütfen Ad Soyad bilgisini giriniz", vbExclamation, "Uyarı"

Exit Sub

End If



If Me.Dirty = True Then



If MsgBox("Değişiklik Kaydedilsin mi?", vbExclamation + vbYesNo, "Kayıt Onayı") = vbYes Then





    If Nz(DCount("*", "tbl_ogrenci", "tckimlik='" & txtkimlikno & "'"), 0) > 0 Then

    

        MsgBox "Bu Öğrenci Daha Önce Kaydetilmiştir.", vbCritical, "Uyarı: Tekrar Eden Kayıt"

        Exit Sub

        

    End If

        



    DoCmd.RunCommand acCmdSaveRecord

    

Else



    Me.Undo

    

End If

End If



tmdenedimlerpasif

kisisayisi

bu kod ile daha önceden tckimlik numarası girildiğinde kaydet butonuna tıkladığınızda uyarı verir. Veya TCKimlik yazdığınız metin kutusunun güncelleştirme sonrasında olayına 

If Nz(DCount("*", "tbl_ogrenci", "tckimlik='" & txtkimlikno & "'"), 0) > 0 Then

msgbox "bu öğrenci mevcut"

exit sub

end if

gibi kod ekleyerek kontrol sağlayabilirsin. Düzenlediğin kayıtta, yoksa yeni kayıt ekle olayı yapamazsın. Yaptığın değişiklik mevcut kaydı etkileyecektir.

Tamamdır efem. Bize kaydı kaydet yolu gözüktü