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.