Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub cmdExit()
DoCmd.Quit
End Sub
Private Sub cmdExit()
On Error GoTo Exit_ErrHandle
Dim strMsg As String
Dim strTitle As String
strMsg = "Are you sure you want to exit the application?"
strTitle = "Exit Now?"
If MsgBox (strMsg, vbYesNo, strTitle_ = vbYes Then
DoCmd.Quit
End If
Exit Sub
Exit_ErrHandle
MsgBox Err.Number & " " & Err.Description
End Sub