Kod:
DoCmd.SetWarnings False
Me.Alt_Form_Adi.SetFocus
With Me.Alt_Form_Adi
If MsgBox("Kayıt silinecek!! Emin misiniz?", vbYesNo, "Uyarı!") = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBox "Kayıt Silindi!", vbOKOnly, "Bilgi!"
Else
Exit Sub
End If
End With