We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub cmd_PrintOnlApps_Click() On Error GoTo Err_cmd_PrintOnlApps_Click 'Open r_Apps_ONL report using criteria from an unbound Form field 'The User is to enter a date in the unbound form field txt_AppDate Dim stRptName As String 'Report to open Dim dtRptField As Date 'The Report's date field Dim dtFrmDate As Date 'The Form's field containing the user's input date stRptName = "r_Apps-ONL" dtRptField = "Reports!" & stRptName & "!date" dtFrmDate = CDate(Forms!f_PrintAppsFromDate!txt_AppDate) DoCmd.OpenReport stRptName, acViewPreview, , dtRptField & " >= " & dtFrmDate Exit_cmd_PrintOnlApps_Click: Exit Sub Err_cmd_PrintOnlApps_Click: MsgBox Err.Description Resume Exit_cmd_PrintOnlApps_Click End Sub
Join the community of 500,000 technology professionals and ask your questions.