AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Userform-mükerrer Kaydı Engelleme

14/06/2022, 14:03

H@K@N

Merhaba userform üzerinden veri kaydı gerçekleştiriyorum. Ancak aynı kaydı defalarca yapıyor. 2. kez kaydetmeye çalıştığımızda kaydı gerçekleştirmesin ve karşıma bir uyarı penceresi çıkarsın istiyorum.

Kaydet butonunun kodları şu şekilde

Kod:
Dim baglan As New Connection
Dim rs As New Recordset

    baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"
    rs.Open "SELECT * FROM personel where id", baglan, adOpenKeyset, adLockPessimistic
    
    rs.AddNew
    
    If Me.TextBox1.Text <> "" Then rs.Fields(1) = Me.TextBox1.Text
    If Me.TextBox2.Text <> "" Then rs.Fields(2) = Me.TextBox2.Text
    If Me.TextBox3.Text <> "" Then rs.Fields(3) = Me.TextBox3.Text
    If Me.TextBox4.Text <> "" Then rs.Fields(4) = Me.TextBox4.Text
        
    rs.Update
    rs.Close
    baglan.Close
        mesaj = MsgBox("Personel bilgileri veri tabanına kaydedildi.", vbOKOnly, "KAYIT MESAJI")
Call formtemizle
End Sub
14/06/2022, 14:23

berduş

Koddan anladigim kadarıyla zaten sorgunuz ID kosullu dolaysıyla
if rs.recordcount =0 ile kayıt sayısı kontrol edilebilir Eğer 0 ise kayıt yok demektir işleme devam edilir değilse bağlantılar kapatılıp yordamdan cikilir
14/06/2022, 14:58

H@K@N

(14/06/2022, 14:23)berduş yazdı: Koddan anladigim kadarıyla zaten sorgunuz ID kosullu dolaysıyla
if rs.recordcount =0  ile kayıt sayısı kontrol edilebilir  Eğer 0 ise kayıt yok demektir işleme devam edilir değilse bağlantılar kapatılıp yordamdan cikilir




if rs.recordcount =0 kontrolünü nerede kullanmalıyım.

Teşekkürler
14/06/2022, 15:19

berduş

Kaydı eklemeden önce koyacaksınız ki kayıt mükerrer olmasın yani rs.addnew komutundan önce