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

[glasseggs]

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 ?

Thanks

 

[haocaocu]

Ðề: 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

 

[glasseggs]

Ðề: 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

 

[tienduyet]

Ðề: 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

 

[uronmapu]

Ðề: 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