Đá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
  Xin trợ giúp tính lại giá xuất ledangvan 10 337 6 Giờ trước
Bài mới nhất: ongke0711
  Giúp dùm bài tập query nguyentrunghoadh 3 106 17-08-17, 01:00 PM
Bài mới nhất: ongke0711
Video [Hỏi] Mong các anh chị giúp đỡ tính ngày trả kết quả trong access thequyennguyen 2 85 14-08-17, 02:44 PM
Bài mới nhất: thequyennguyen
  Tìm record lớn nhất trong Query có sẵn BESTKI522 6 295 18-07-17, 10:03 AM
Bài mới nhất: BESTKI522
  [Help] Sử dụng hàm DSum trong query mainguyenthinh79 12 2,693 05-07-17, 03:26 PM
Bài mới nhất: vkaccess

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ơ