Filter based on dates & checkbox

[mba_110]

Dear All,

Please I need your help in doing some extensions and filters to my form and report (rptRecruitments).

I have following fields in form

frmCombinedReports
txtFromDate
txtToDate
BtnReportView
ChkAllRecords

I have already filter the form dates with report query to show records only as per the date selected on form (txtFromDate & txtToDate) however, I need when I select the check box (chkAllRecords) for the frmCombinedReports then (txtFromDate & txtToDate) should be automatically blank because I am selecting entire records in report and not based on dates, but since I have already mentioned the between criteria in report query to filter it as per the form dates I am unable to work out with both ways as per period and as per all record check function.

Any help here will be much appreciated.

 

[welshgasman]

This would be one way?
https://social.msdn.microsoft.com/F...dsource-for-a-report-with-vba?forum=accessdev

 

[mba_110]

Its look little complicated as i have already my code working with report button

Private Sub BtnPriptPreview_Click()    Dim sReportName     As String
    Dim sReportPath     As String
    Dim Filename        As String


If IsNull(Me.cboCatagory) Or IsNull(Me.cboReportName) Then
        MsgBox "Please select all required fields marked with * to proceed further for preview. !"
Exit Sub
End If


        
    sReportName = Me.cboReportName.Column(2)


    DoCmd.OpenReport sReportName, acViewPreview


    Exit Sub




End Sub

If you can suggest the easiest way or advise how to amend the above code to include these functions.

 

[welshgasman]

Not really.
You use the Openargs parameter to determine if you need to filter on date or vice versa.
You change the record source on the open event of the report.
I probably would not do it exactly that way as they are passing in the sql string as the openarg parameter.

I'd code the two sql strings in the report open event and then choose which one to use with the openargs parameter.
So it is just two swql strings, an if test and add a new parameter.
That parameter is the last one in the DoCmd.OpenReport command

If the criteria is not too complicated, you could use the where clause as instead.
https://msdn.microsoft.com/en-us/library/office/ff192676.aspx

HTH