Cho mình hỏi Tạo msgbox xác nhận trước khi xoá bản ghi trên form

[vanniemtin]

Mình mới học Access nên không biết gì về VB
Các bạn có thể chỉ giúp mình đoạn code gán cho 1 nút ,khi nhấn nút này trên Form sẽ hiện ra 1 message xác nhận Yes/ No để xoá 1 bản ghi đi không ?
:k5798618:
Thanks

View more random threads:

• Mã hóa trong Access !
• Hỏi về kiểu dữ liệu trong access
• Sử dụng hàm xây dựng như thế nào?
• làm sao để lấy 1 record trong access
• Về các bài hướng dẫn tạo một phần mềm quản lý bán hàng bằng Access
• Nhờ các cao nhân giúp đỡ cách chạy phần mềm kế toán Access.
• Xin code VBA
• Hiển thị Tiếng việt tại các MsgBox
• Làm thế nào để biến *** thành @@@...?
• Một số câu hỏi trắc nghiệm về VBA trong access

[dtbaongoc0]

Ðề: Cho mình hỏi Tạo msgbox xác nhận trước khi xoá bản ghi trên form

Bạn tự chế trên dòng code nay nhé :
If MsgBox("shgfs", vbYesNo, "Thông báo") = vbYes Then

[thapchidao]

Ðề: Cho mình hỏi Tạo msgbox xác nhận trước khi xoá bản ghi trên form

Bạn ơi trong Marco này có cách nào để thêm Msg xác nhận không ?
Vì mình muốn dùng marco này để xoá bản ghi trên Form,chứ viết code thay cho toàn bộ marco này thì mình chịu.


Thanks

[changmin629x]

Ðề: Cho mình hỏi Tạo msgbox xác nhận trước khi xoá bản ghi trên form

Bạn tự chế trên dòng code nay nhé :
If MsgBox("shgfs", vbYesNo, "Thông báo") = vbYes Then

Đây là đoạn code chứ không phải phải Macro. Bạn áp dụng cách trên cũng rất hay, để tìm hiểu hay hơn bạn lên Google câu "How to delete ...." (mình VD thế)

Còn đây mình làm một cách khác cũng chạy tốt

Dim dbX As Database, rsX As Recordset, DKX As String
Set dbX = CurrentDb
Set rsX = dbX.OpenRecordset("tblSKT", dbOpenDynaset)
DKX = "CT_Thu = '" & Me!txtSCT & "'"
rsX.FindFirst DKX
If Not rsX.NoMatch Then
rsX.Delete
End If
rsX.Close
Set dbX = Nothing
MsgBox "Đã xoá thành công, dzeeee....", vbInformation, "Thong bao !"

Nếu hổng hiểu pốt-sờ lên nhé, anh em cùng nhau bàn lụn tiếp

[manangiam]

Ðề: Cho mình hỏi Tạo msgbox xác nhận trước khi xoá bản ghi trên form

Cho mình hỏi là làm thế nào để tạo 1 hộp thoại

Ban có muốn tiếp tục nữa hay ko?

Nếu nhấn Có thì đóng bảng hiện tại và mở 1 bảng A
Nếu nhấn Không thì đóng bảng hiện tại và mở bảng B

Private Sub Save_Click()
MsgBox ("Saved")
If MsgBox("shgfs", vbYesNo, "Thông báo") = vbYes Then
 DoCmd.Close acForm, Me.Name
    DoCmd.OpenForm "A"
 Else
 DoCmd.Close acForm, Me.Name
    DoCmd.OpenForm "B"
    End If
End Sub

Cảm ơn