nguyenbalai > 01-02-12, 04:13 PM
domfootwear > 01-02-12, 04:36 PM
DoCmd.SetWarnings (False) ' Tat hop thoai thong bao
'Code xoa
DoCmd.SetWarnings (True) 'Tra lai binh thuong
nguyenbalai > 02-02-12, 08:25 AM
domfootwear > 02-02-12, 10:51 AM
(02-02-12, 08:25 AM)nguyenbalai Đã viết: Mình làm như vậy nhưng không thấy hiệu quả, nó vẫn cứ hiện thông báo anh ạ!
Noname > 02-02-12, 10:55 AM
(02-02-12, 10:51 AM)domfootwear Đã viết:(02-02-12, 08:25 AM)nguyenbalai Đã viết: Mình làm như vậy nhưng không thấy hiệu quả, nó vẫn cứ hiện thông báo anh ạ!
Bạn vào Click Vào Đây để tham khảo nhé.
nguyenbalai > 03-02-12, 08:30 AM
nguyenbalai > 03-04-12, 10:54 PM
dtv197 > 03-04-12, 11:15 PM
Private Sub cmdXOA_Click()
On Error GoTo Err_cmdXOA_Click
TRALOI = MsgBox("BAN THAT SU MUON XOA PHIEU THU NAY?", 20, "CANH BAO!")
If TRALOI = vbYes Then
DoCmd.SetWarnings False 'Cái này chặn thông báo mặc định của Access
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
MsgBox "BAN DA BO QUA HANH DONG NAY", , "THONG BAO"
End If
Exit_cmdXOA_Click:
Exit Sub
Err_cmdXOA_Click:
MsgBox "KHONG CO DU LIEU BAN DAU!", vbOKOnly, "THONG BAO"
Resume Exit_cmdXOA_Click
End Sub
nguyenbalai > 19-04-12, 11:33 AM
nhoc77 > 05-02-13, 03:57 PM