Tùy chọn
Giúp em tạo cảnh báo Yes/No khi chạy Delete Query
- Giúp em tạo cảnh báo Yes/No khi chạy Delete Query
-
Giúp em tạo cảnh báo Yes/No khi chạy Delete Query
dungsy.qt94 > 12-01-12, 06:04 PM
Em muốn tạo một cảnh báo khi người dùng chọn nút "xóa" chạy Query Xoa xóa các record trong table dshocsinh
Hộp thoại thông báo có 2 nút Yes/No -
RE: Giúp em tạo cảnh báo Yes/No khi chạy Delete Query
haquocquan > 13-01-12, 11:54 AM
if msgbox ("Ban co chac chan xoa", vbYesNo, "Thong bao")=vbyes then
Lệnh xóa tại đây
End if -
RE: Giúp em tạo cảnh báo Yes/No khi chạy Delete Query
muaphonui_2010 > 14-01-12, 12:09 PM
(13-01-12, 11:54 AM)haquocquan Đã viết: if msgbox ("Ban co chac chan xoa", vbYesNo, "Thong bao")=vbyes then
Lệnh xóa tại đây
End if
Mình bổ sung: vì ý của bạn trên hỏi là xóa bằng 1 query xóa, nên mình phải thêm vào dưới 1 dòng nữa để khỏi xuất hiện thông báo của access.
if msgbox ("Ban co chac chan xoa", vbYesNo, "Thong bao")=vbyes then
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q_xoa' ", acViewNormal
DoCmd.SetWarnings True
End if
Hoặc bạn có thể dùng lệnh này!
Dim X
X = MsgBox ( " Ban co' chac' xoa' ko? ", vbYesNo, "THONG BAO:")
If X = vbYes Then
On Error GoTo loi
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.GoToRecord , , acLast
DoCmd.SetWarnings True
loi:
MsgBox "Ban da xoa' 1 bang ghi"
End If -
RE: Giúp em tạo cảnh báo Yes/No khi chạy Delete Query
dungsy.qt94 > 14-01-12, 04:34 PM
Nhưng em không biết phải chèn code vào chỗ nào cả vì em chỉ mới biết sơ sơ thôi. Em thấy chỉ có chèn code cho 1 nút trên form thôi chứ chèn cho nút lệnh trên main menu thì phải làm như thế nào ạ?
Các anh chị chỉ rõ giúp em.