Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giúp em tạo cảnh báo Yes/No khi chạy Delete Query
#1
Lightbulb 
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
Chữ ký của dungsy.qt94 Xin chào, mình là Trần Dũng Sỹ, Tham gia http://thuthuataccess.com/forum từ ngày 17-12 -11.
Rất mong được giúp đỡ!Tongue_smile
Reply
Những người đã cảm ơn
#2
if msgbox ("Ban co chac chan xoa", vbYesNo, "Thong bao")=vbyes then
Lệnh xóa tại đây
End if
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(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
Chữ ký của muaphonui_2010 "Cần cù bù thông minh"
Reply
Những người đã cảm ơn
#4
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.Heart
Chữ ký của dungsy.qt94 Xin chào, mình là Trần Dũng Sỹ, Tham gia http://thuthuataccess.com/forum từ ngày 17-12 -11.
Rất mong được giúp đỡ!Tongue_smile
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Thiết lập query Nhập Xuất Tồn theo lệnh ChiMai 1 81 07-05-18, 08:38 PM
Bài mới nhất: ChiMai
  Điều chỉnh dữ liệu trong Query Union DooHoaangPhuuc 6 254 15-03-18, 10:43 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Sự ổn định của UNION QUERY ???? vkaccess 2 244 07-02-18, 08:51 PM
Bài mới nhất: vkaccess
  Nhờ giúp dùm bài tập access nguyentrunghoadh 6 369 26-01-18, 04:18 PM
Bài mới nhất: ongke0711
  Nhờ giúp dùm bài access tập làm nguyentrunghoadh 0 135 03-01-18, 05:26 PM
Bài mới nhất: nguyentrunghoadh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line