Hiya Angie,<br><br>I'm not sure why what you're doing is not working, but I can offer how I solved similar needs in my apps.<br><br>The data entry/edit form has a button to call the report. In the report, the OnOpen event... from my archives, I've pulled this prior response from Jeff Wilson...the only difference is the coding is for opening a form, but the principal and solution is the same.<br><br>HTH,<br>Drew<br><br><br><br> Jun 23, 06:49 PM<br>Jeff Wilson (in response to Matt Trossen) <br> Message 2 of 4<br>Re: How do I create a criteria based query to reference?<br>Matt, what I've done in this situation is to create my main form (that form that <br>contains the basic information) and have it open a search criteria form <br>(frmSearchCriteria). This is done through the OnOpen event of the main form, as <br>Private Sub Form_Open(Cancel As Integer) <br>DoCmd.Maximize <br>DoCmd.OpenForm "frmSearchCriteria", , , , , acDialog, (Me.Name) End Sub <br>The frmSearchCriteria contains checkboxes that turn search fields on and off, <br>possibly radio buttons, all depending how who want to search. But it basically <br>does exactly what you - develops a filter statement for the main form. <br>For instance, it might test if a checkbox is turned on and, if so, build a WHERE <br>filter string such as <br>strWhere = strWhere & " AND (Area = """ & cboArea & """

" <--cboArea is text <br>strWhere = strWhere & " AND (CardDate <= #" & cboAuditedTo & "#)" <br><--cboAuditedTo is a date <br>As you can see, you have to a little careful in building the filter string <br>because text has to enclosed in quotes, and dates have to be enclosed in # <br>signs. <br>Once you get to the end, you remove the beginning " AND " by performing If <br>Len(strWhere) > 0 Then strwhere = Mid$(strWhere, 6) <br>Then you set the filter statement and return to the main form by Set frm = <br>Forms(Me.OpenArgs) <br>frm.Filter = strWhere <br>frm.FilterOn = True <br>DoCmd.Close acForm, Me.Name <br>HTH, <br>Jeff