Yani kaydet butonunu şöyle çalıştırabilir miyiz. Kayıt varsa yeni kayıt olmasın. Yoksa düzenle şeklinde çalışsa
Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin
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.
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.
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
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.
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ü
Konuyu Okuyanlar: 1 Ziyaretçi