-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
please please please help me. am desperate!!!!!!!!!!!!!!!!!
- Thread starter Flora
- Start date
:wink:quit macro
if i gather what you are doing correctly then i had to do something similar ages ago, access maros are very limited. So I made a new macro to open a form, openform() option and pointed it to the following new form which you can call ' my exit access', add two commmand button to the form call the first 'ok', behind it put the code "docmd.quit" and call the other one cancel, behind it put the code me "docmd.close". that should do it. That should do fine.
[/quote]
if i gather what you are doing correctly then i had to do something similar ages ago, access maros are very limited. So I made a new macro to open a form, openform() option and pointed it to the following new form which you can call ' my exit access', add two commmand button to the form call the first 'ok', behind it put the code "docmd.quit" and call the other one cancel, behind it put the code me "docmd.close". that should do it. That should do fine.
[/quote]
Upvote
0
You could put the following in a module:
Function exit_macro()
msgbox1 = MsgBox("Are you sure you want to quit?", vbOKCancel, "Exiting Database")
If msgbox1 = vbOK Then
DoCmd.Quit
Else
'do nothing
End If
End Function
And then create a macro to "runcode" and then select module1 and exit_macro(). This will prompt you for an okay to quit, and if you hit cancel it does nothing.
Function exit_macro()
msgbox1 = MsgBox("Are you sure you want to quit?", vbOKCancel, "Exiting Database")
If msgbox1 = vbOK Then
DoCmd.Quit
Else
'do nothing
End If
End Function
And then create a macro to "runcode" and then select module1 and exit_macro(). This will prompt you for an okay to quit, and if you hit cancel it does nothing.
Upvote
0
jmcchristian
New Member
- Joined
- Mar 5, 2003
- Messages
- 9
Try this
Place this in the UnLoad Event Procedure and this will give you the YES OR NO when you exit the form.
Private Sub Form_Unload (Cancel As Integer)
If MsgBox ("Do you really want to ext?", vbYesNo) = vbno Then Cancel = True
End Sub
Jmcchristian
Place this in the UnLoad Event Procedure and this will give you the YES OR NO when you exit the form.
Private Sub Form_Unload (Cancel As Integer)
If MsgBox ("Do you really want to ext?", vbYesNo) = vbno Then Cancel = True
End Sub
Jmcchristian
Upvote
0
Similar threads
- Solved
- Solved
