Need some Help

[Wook]

Ok I got a set of Forms Reports etc it goes like this
Reports Form Passes a Filter to the report for the needed results
The filter it passes along is fine except one problem
I need a way for the subreport to also be filtered by the same data

The main report name is Dayville Review Report and the subreport is Dayville Review subreport

Now all the info from the Form is passed into the vba environment for double checking when I was just using the main report its filters fine it still does for that I just can't get the subreport to filter I know I'm missing something

Option Compare Database
 
'The Name of the Button on the Form that sends the data
Private Sub Command10_Click()
 
Dim Filter As String
 
Filter = ""
 
'Add date if only start date is filled in
If IsNull(Me.txtEnd) And Not IsNull(Me.txtStart) Then
    Me.txtEnd = Me.txtStart
    End If
 
'check if End Date > Start date
If Me.txtEnd < Me.txtStart Then
    MsgBox "Make sure your End Date is AFTER your Start Date", vbCritical, "Invalid Entry!"
    Exit Sub
    End If
 
'Checks if the start date for the report is null or not
If Not IsNull(Me.txtStart) Then
    Filter = "[Date] between #" & Me.txtStart & "# AND #" & Me.txtEnd & "#"
    End If
 
If Not IsNull(Me.txtBakco) Then
         If Filter <> "" Then
            Filter = Filter & " AND "
        End If
        Filter = Filter & "[Bakco Number] = " & Me.txtBakco
    End If
 
 
'Check what areas the user wants the info for and adds it to the filter
If Me.cboArea <> "All Areas" Then
        If Filter <> "" Then
            Filter = Filter & " AND "
        End If
    Filter = Filter & "[Area] = '" & Me.cboArea & "'"
    End If
 
'This is the part where it detect if its the report with the subreport in this case Dayville Review Report is report 0 in the index. the Subreport isn't in the index wasn't sure if that would help.
If Me.cboReport = 0 Then
 
'DoCmd.OpenReport "Dayville Review Subreport", acViewPreview, , Filter
DoCmd.OpenReport Me.cboReport.Column(2), acViewPreview, , Filter
 
Exit Sub
End If
 
DoCmd.OpenReport Me.cboReport.Column(2), acViewPreview, , Filter
 
Debug.Print Filter
End Sub
 

Most of this wasn't written by me I am just trying to work with it.

Also one option I guess would be to somehow change the query the subreport originally pulled its data from in this case that is called Dayville Accuracy Query
The current sql view of that looks like this

SELECT [Dayville Accuracy].Name, [Dayville Accuracy].Area, 
[Dayville Accuracy].[Bakco Number], [Dayville Accuracy].Date, 
[Dayville Accuracy].[Total Checked], [Dayville Accuracy].[Miss-Pick], 
[Dayville Accuracy].BNR, [Dayville Accuracy].Over,
 [Dayville Accuracy].Damage

The Bakco number field is the link between the two reports.

Thank you for your time

[MMcCarthy]

Your subreport needs to be tied to your main report. Look at the master child relationship or see if the subreport has a permanent filter attached.

[Wook]

Ok I'm still fairly new to access how would I apply the kind of filter I would need to it

[Wook]

As far as the parent child relationship goes I meant to say the Bakco Number was setup as such. That is why the report works fine if I limit the 2 queries by hand that the 2 reports draw from

[Wook]

After a lot of searching around and referencing various books I found my solution

I copied the Accuracy query to one called Review Query and make these changes.
Dayville Review Query
Criteria for Bakco Number = [Forms]![ReportForm]![txtBakco]
Criteria for Data= Between [Forms]![ReportForm]![txtStart] And [Forms]![ReportForm]![txtEnd]

Then I changed the source for the subreport to this
Dayville Review subreport
SELECT [Dayville Review Query].Name, [Dayville Review Query].[Bakco Number], [Dayville Review Query].[Total Checked], [Dayville Review Query].[Miss-Pick], [Dayville Review Query].BNR, [Dayville Review Query].Over, [Dayville Review Query].Damage FROM [Dayville Review Query];

Now when I enter the data into the form it correctly fitlers the right information