kontrollü Kayıt

If MsgBox("Yeni kayıt eklemek istiyor musunuz?", vbYesNo + vbQuestion, "accesstr.net") = vbYes Then

    DoCmd.GoToRecord , , acNewRec

   Else

Me.Undo

End If

Kontrollü Sil

Dim onay As String

onay = MsgBox("Kaydı silmek istediğinize emin misiniz?", vbYesNo, "accesstr.net")

If onay = 6 Then

DoCmd.SetWarnings False

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Else

MsgBox "Kayıt Silme İptal edildi", vbOKOnly, "accesstr.net"

End If

DoCmd.SetWarnings True

kolay gelsin