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 Command1_Click()
On Error GoTo Err_Command1_Click
Dim stDocName As String
stDocName = "MyReport"
DoCmd.OpenReport stDocName, acPreview
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub
DoCmd.OpenReport "firstReport", acPreview
DoCmd.OpenReport "secondReport", acPreview
DoCmd.OpenReport "thirdReport", acPreview