Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
Dim strClientFolderName As String Dim strFilter As String Dim strPropertyAssetFolderName As String Dim strPropertyFolderName As String Dim strReportName As String strClientFolderName = TempVars!strPicturesDataPath & "\" & Trim(Me.cboClientName) & "\" strPropertyFolderName = strClientFolderName & Trim(Me.cboProperty) & "\" strReportName = "Asset Detail Report" If Not IsNull(Me.cboFilterBySelectionAsset) Then strFilter = "AssetN = " & Me.cboFilterBySelectionAsset End If DoCmd.OpenReport strReportName, acViewPreview, , strFilter, acHidden DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, strPropertyFolderName & strReportName & ".pdf" DoCmd.Close acReport, strReportName, acSaveNo FollowHyperlink strPropertyFolderName & strReportName & ".PDF"
Join the community of 500,000 technology professionals and ask your questions.