Avsluta databas VBA

[Martassen]

Tänkte skapa en knapp i ett formulär för att Avsluta databas.
 

DoCmd.Quit acQuitSaveAll

Hur gör jag om jag vill få fram ett dialogruta med alternativen Ok och avbryt.
Klickar man Ok ska databas avslutas. Trycker man Avbryt avslutas den ej.

 

 

Fråga2:
Hur gör jag samma sak fast med ruta med alternativen "ja" och "nej".
Trycker man ja så avslutas databasen. Trycker man Nej avslutas inte databasen.

 

Tack på förhand!

[Mr Andersson]

För ja/nej:

if msgbox("Avsluta?",  vbYesNo) = vbYes then
.....
end if

För ok/Cancel

if msgbox("Avsluta?",  vbOKCancel) = vbOK then
.....
end if

[Martassen]

Är usel i VBA. Ok med följande alltså?

Private Sub Kommandoknapp21_Click()
If MsgBox("Avsluta?", vbOKCancel) = vbOK Then
DoCmd.Quit acQuitSaveAll
End If
End Sub