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 ?
Ðề: 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.
Đâ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
Ðề: 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
Mã:
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