MsgBox Problem

[Fisher]

am workin with and access database, and i want to get a MsgBox to popup when i click the exit program button.....to get this i have to code it in VB, i cannot get it to work, neither can anyone i ask (useless:P lol)

ive tried to write it a few different ways, can anyone fix this?

MsgBox ("Are you sure you want to exit"), vbYesNo, Exit, = As VbMsgBoxResult vbOkOnly

MsgBox("Are you sure you want to Exit", vbYesNo) As VbMsgBoxStyle

MsgBox("Are You Sure U Want To Quit?", vbYesNo, "QUIT?" = vbYes


the last type lazer wrote, the other too are modifications of mines, i cant get it to work, anyone know?

[AbsoluteGenius]

In VB it would be


If MsgBox("Are you sure you want to exit", vbQuestion + vbYesNo) = vbYes Then
       ' Your Exit Code here
End If


[Tewl]

If MsgBox("Are you sure you want to exit", vbQuestion + vbYesNo) = vbNo Then
Cancel = True
End If

[Fisher]

ok ty, the message box works now...

does anyone know the code forbr]
yes = exit program
no = do not exit program


the program i am using is microsoft access.

[equin0x]


Private Sub Cmdexit_click()
  Dim exit1 As String

   exit1 = MsgBox("Exit the program", vbYesNo)
   
   If exit1 = vbYes Then

         Unload Me

   End If

End Sub



like that?

[Dangermouse]

You would have the button in the unload event of the form, the button would have Unload Me. if they click no then you set cancel = true, like in tewls example.

[Fisher]

nope none of its workin....maybe you dont understand what i mean lol.

i got an assignment in uni, its to create a database in MS Access, i have done all of that, but i have to finish my main menu (which i have created through a form in Access, NOT Visual Basic). i am using the Visual Basic Editor that is in Access, the code will be going into that.

the three examples i posted in my first post are what i have tried, i have tried tewls and it does give me the Message Box, unfortenually, it doesnt close the database when i click yes.

anyone know? or even understand me lol

[Lazer]

works fine :-

Private Sub Command1_Click()
If MsgBox("Are you sure you want to exit", vbQuestion + vbYesNo) = vbYes Then
Unload Me
End If
End Sub

[equin0x]

Mabey the unload me command dont work in Vba?

[Dangermouse]

Try google Fisher.

Btw thats called VBA - Visual Basic for Applications

[Armstrong]

Usebr]Application.Quit

[AbsoluteGenius]

Ok

on your form in access you have a command button that says exit?

in design mode, right click the button, select build event and make the code look like this


Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

   If MsgBox("Do you want to quit", vbQuestion + vbYesNo, "Quit App") = vbYes Then
     DoCmd.Quit
   End If

Exit_Command0_Click[img]http://proboards8.com/boardimages/sad.gif[/img]br]    Exit Sub

Err_Command0_Click[img]http://proboards8.com/boardimages/sad.gif[/img]br]    MsgBox Err.Description
   Resume Exit_Command0_Click
   
End Sub