Text Input Filter Criteria for Report

[astroshark]

I have a form that generates a report based on a date range input, but I also want to add multiple "OPTIONAL" text fields to where if a user inputs a text into this field it will filter the report data by the filter and date range. And to also display an error if the text inputted does not exist in query. Here is what I have so far. I have a query and one of the fields in that query is named "Date Received" which has the following criteria.

>=[forms]![frmCompletedOrdersMenuDateRange]![txtDateFrom] And <=[forms]![frmCompletedOrdersMenuDateRange]![txtDateTo]

And below is my VBA Code in the form

Option Compare Database
 
Private Sub cmdtoday_Click()
'Sets the Date From and Date To text boxes
'to Today's Date
 
    Me!txtDateFrom = Date
    Me!txtDateTo = Date
 
End Sub
 
Private Sub cmdweek_Click()
'Sets the Date From and Date To text boxes
'to show complete working week (Mon - Fri)
 
    Dim today
 
    today = Weekday(Date)
 
    Me!txtDateFrom = DateAdd("d", today - 7, Date)
    Me!txtDateTo = DateAdd("d", (today * -1) + 1, Date)
 
End Sub
 
Private Sub cmdmonth_Click()
'Sets the Date From and Date To text boxes
'to show complete month (from start to end of current month)
 
    Me!txtDateFrom = CDate("01/" & Month(Date) & "/" & Year(Date))
    Me!txtDateTo = DateAdd("d", -1, DateAdd("m", 1, Me!txtDateFrom))
 
End Sub
 
Private Sub cmdyear_Click()
'Sets the Date From and Date To text boxes
'to show complete current year
 
    Me!txtDateFrom = CDate("01/01/" & Year(Date))
    Me!txtDateTo = DateAdd("d", -1, DateAdd("yyyy", 1, Me!txtDateFrom))
 
End Sub
 
Private Sub cmdReport_Click()
    On Error GoTo Err_cmdReport_Click
 
    Dim stDocName As String
 
    stDocName = "rptCompletedOrdersDateRange"
 
    'Check values are entered into Date From and Date To text boxes
    'if so run report or cancel request
 
    If Len(Me.txtDateFrom & vbNullString) = 0 Or _
       Len(Me.txtDateTo & vbNullString) = 0 Then
        MsgBox "Please ensure that a report date range " & _
               "is entered into the form", _
               vbInformation, "Required Data..."
        Exit Sub
    Else
        DoCmd.OpenReport stDocName, acViewReport
    End If
Exit_cmdReport_Click:
    Exit Sub
 
Err_cmdReport_Click:
    MsgBox Err.Description
    Resume Exit_cmdReport_Click
 
End Sub
 

I can't figure it out for the life of me, but I know it's probably simple. Can anyone help out?

[astroshark]

Answered my own question I inputted a criteria into the query for each seperate field.

Like IIf(IsNull([forms]![frmCompletedOrdersMenuDateRange]![txtRequestor]),"*",[forms]![frmCompletedOrdersMenuDateRange]![txtRequestor])