Msgbox sluiten database ja/nee.

  • Onderwerp starter Onderwerp starter Tucka
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

Tucka

Gebruiker
Lid geworden
29 okt 2005
Berichten
23
Hallo forum lezers.
Ik heb weer eens een vraag.
Ik heb een VBA-script gemaakt
fSluiten().

Zo ziet hij eruit!
Function fSluiten()
On Error Resume Next

sRR = MsgBox("Are you sure you want to exit?", vbYesNo + vbDefaultButton2, "Sluiten")
If sErr = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelect
DoCmd.RunCommand acCmdExitDatabase
End If
End Function

Kan iemand mij helpen hiermee, zodat hij toch werkt?
Alvast bedankt.:confused:
 
Volgende code kun je ook toepassen

Private Sub Knop1_Click()
On Error GoTo Err_Knop1_Click

Dim stDocName As String

bytDoorgaan = MsgBox("Wilt u het programma afsluiten ? ", vbYesNo + vbDefaultButton2 + vbExclamation, "Attentie")

If bytDoorgaan = vbYes Then
DoCmd.Quit
End If
Exit_Knop1_Click:
Exit Sub

Err_Knop1_Click:
MsgBox Err.Description
Resume Exit_Knop1_Click
End Sub


mvrg
 
Nog bedankt voor jouw hulp.
Hij werkt.:D

Met de vriendelijke access groeten

Tucka
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan