[MS_AccessPros] Filter subform between Two Dates

 

Dear All,

I am using this code to filter subfrom between two dates using text boxes
on the main form, but it is not working, what I am doing wrong

Private Sub cmdFilterByDate_Click()
On Error GoTo Err_cmdFilterByDate_Click
Dim InvoiceDate As Date
InvoiceDate = Me.qryOrdersforSearchSubform_subform.Form!InvoiceDate

If IsDate(Me.txtDateTo) = False Then Exit Sub
If IsDate(Me.txtDateFrom) = False Then Exit Sub
If Me.txtDateFrom > Me.txtDateTo Then Exit Sub

Me.qryOrdersforSearchSubform_subform.Form.Filter = "[InvoiceDate]
Between '" & Format(CDate([Me.txtDatefrom]), "mm/dd/yyy") & "' and '" &
Format(CDate([Me.txtDateTo]), "mm/dd/yyyy") & "'"
Me.qryOrdersforSearchSubform_subform.Form.FilterOn = True

Exit_cmdFilterByDate_Click:
Exit Sub

Err_cmdFilterByDate_Click:
MsgBox Err.Description
Resume Exit_cmdFilterByDate_Click

End Sub

--
Kind Regards,
Abdul Shakeel

[Non-text portions of this message have been removed]

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 5
• New Files 3

Visit Your Group

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___