Đá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
  Lọc query có điều kiện để tạo report honglv157 3 152 01-12-16, 05:15 PM
Bài mới nhất: maidinhdan
  [Help] Xin giúp đỡ về sử dụng hàm Dlookup với nhiều điều kiện dangh5 1 72 30-11-16, 10:44 PM
Bài mới nhất: dangh5
  [Help] ẩn nút ""Close Windown" khi mở query tronghieu9792 4 84 30-11-16, 09:36 PM
Bài mới nhất: tronghieu9792
Question [Help] Cần giúp đỡ tạo query lấy giá trị của dòng liền trước để tính giá trị trung bình luonguct 4 86 23-11-16, 12:33 AM
Bài mới nhất: luonguct
  Hướng Dẫn hướng dẫn làm query tieuho828 6 143 21-11-16, 12:36 AM
Bài mới nhất: toancvp

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ơ