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 Button1_Click()
Dim Condition As String
Condition = "[PatientID] = " & Me.txtPatientID
DoCmd.OpenReport "Report1", acViewPreview, , Condition
End Sub