Parameter dialog box

[partyalamona]

Hi, I have created databases. But, I am green when it comes fixing damaged Access databases. I am trying to change a parameter dialogue box in a form. Then create a link to the reports (with the ability to print just that report) from the database. So far, this what I have....

Private Sub cmdOK_Click()
Const cInvalidDateError As String = "You have entered an invalid date."
Dim strWhere As String
Dim strError As String
 
    strWhere = "1=1"
    strReports = "Reports.[lstReports]"
 
    'If StartDate
    If IsDate(Me.txtStartDate) Then
        'Add it to the predicate - exact
        strWhere = strWhere & " AND " & "Issues.[Opened Date] >= " & GetDateFilter(Me.txtStartDate)
    ElseIf Nz(Me.txtStartDate) <> "" Then
        strError = cInvalidDateError
    End If
 
    'If EndDate
    If IsDate(Me.txtEndDate) Then
        'Add it to the predicate - exact
        strWhere = strWhere & " AND " & "Issues.[Opened Date] <= " & GetDateFilter(Me.txtEndDate)
    ElseIf Nz(Me.txtEndDate) <> "" Then
        strError = cInvalidDateError
    End If
 
    If strError <> "" Then
        MsgBox strError
    Else
        DoCmd.OpenReport strReport, acViewPreview, , strWhere
    End If
 
    Me.frmWhatDates = strWhere
    Me.frmWhatDates.FilterOn = True
 
    End If
 
End Sub
 
Function GetDateFilter(dtDate As Date) As String
    ' Date filters must be in MM/DD/YYYY format
    GetDateFilter = "#" & Format(dtDate, "MM/DD/YYYY hh:mm:ss AM/PM") & "#"
End Function
 

[MMcCarthy]

This question has been moved to the Access forum from Introductions forum.

ADMIN