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.
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.
