Sn.coskun_cakal Kaydı Hiç Sorusormadan Silsin İstiyorsanız Botonun Tıklandığında Olayına

DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True


Kontrollü Silmek İstiyorsanız.
Aynı Şekilde Botonun Tıklandığında Olayına

Dim onay As String
onay = MsgBox("Kaydı silmek istediğinize emin misiniz?", vbYesNo, "e-Lo Yazılım")
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, "e-Lo Yazılım"
End If
DoCmd.SetWarnings True


Kodlarını Kullanabilirsiniz.
Saygılar.