Private Sub sil_Click()
On Error GoTo Err_sil_Click
If Me.NewRecord = True Then MsgBox "Silinecek aktif kayıt yok", 48, "Kayıt Silme": Exit Sub
If MsgBox("Silmek İstediğinizden Emin misiniz?", 20, "Kayıt silme") = 6 Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
End If
Exit_sil_Click:
Exit Sub
Err_sil_Click:
MsgBox "kayıt silme işlemi yapılamadı", 48, "Kayıt silme"
End Sub
Form Üzerinde Kayıt Silinirken Onay İstesin.
Bu Konudaki Yorumlar |
Form Üzerinde Kayıt Silinirken Onay İstesin. - Yazar: burhanb - 20/06/2017, 08:34
Cvp: Form Üzerinde Kayıt Silinirken Onay İstesin. - Yazar: C*e*l*o*y*c*e - 20/06/2017, 09:51
Cvp: Form Üzerinde Kayıt Silinirken Onay İstesin. - Yazar: burhanb - 20/06/2017, 14:09
|
Konuyu Okuyanlar: 1 Ziyaretçi