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.
Application Engineer