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.
Dim stDocName as String
Dim strWhere as String
strWhere = "1=1 "
stDocName = "rptYourReport"
If Not IsNull(Me.cboLastName) Then
strWhere = strWhere & " AND [LastName] =""" & _
Me.cboLastName & """ "
End If
DoCmd.OpenReport stDocName, acPreview, , strWhere