Xuân Thanh > 25-04-12, 12:07 PM
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Data has changed."
strMsg = strMsg & "@Do you wish to save the changes?"
strMsg = strMsg & "@Click Yes to Save or No to Discard changes."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?") = vbYes Then
'Do Nothing
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub
casio262 > 26-04-12, 04:26 PM
Xuân Thanh > 26-04-12, 06:49 PM
(26-04-12, 04:26 PM)casio262 Đã viết: Giờ mình có nút button thoát khỏi chương trình khi ấn vào nó sẽ hiển thị câu cảnh báo
Bạn có chắc chắn thoát không?
Nếu bấm đồng ý thì thoát còn không ấn đồng ý thì không thoát.
Làm có tương tự như thế này ko bạn?
Thanks!
Private Sub cmdThoat_click()
If MsgBox("Ban co chac chan muon thoat", vbQuestion + vbYesNo, "Thoat chuong trinh") = vbYes then
Docmd.Quit
End If
End Sub