Dim db As DAO.Database

Dim rs As DAO.Recordset

 

 

If MsgBox("Kaydetmek istiyor musunuz?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then

 

    

    Set db = CurrentDb

    Set rs = db.OpenRecordset("Tablo")

    With rs

        .AddNew

        .Fields("Ad") = Me.Adı

        .Fields("Soyad") = Me.Soyadı

        .Fields("EPostaAdresi") = Me.EPostaAdresi

        .Update

    End With

    

    MsgBox "Kayıt İşlemi Başarılı"



Else



    DoCmd.Close acForm, "KayıtFormu"



End If

Kaydet butonunun tıklandığında olayına üstteki kodu yazarak deneyiniz.