<div>
The code is in the Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) in the main report. What do I do to make it not open too early? Do I need to put the code in the subreport? 
</div>


The code is in the Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) in the main report. What do I do to make it not open too early? Do I need to put the code in the subreport?

<div>
Do you have the<br />
Link Child Fields and Link Master Fields set on the Sub Report Control?<br />
<br />
If so, you should not have to requery the sub report.<br />
<br />
mx
</div>


Do you have the
Link Child Fields and Link Master Fields set on the Sub Report Control?

If so, you should not have to requery the sub report.

mx

<div>
OK, I made it work. I moved the code to the Report_Open, instead of Detail_Format.<br />
Thanks for helping
</div>


OK, I made it work. I moved the code to the Report_Open, instead of Detail_Format.
Thanks for helping

<div>
<div class="content wysiwyg-content">
I have a main report with a subreport. How do I requery the query that used for the subreport everytime the main report is opened?<br />
I have something like this, seems like it works, but the subreport picks the result from the last runtime. How do I make the subreport pick the newest result? My subreport name 'rpt_SubReport'. Thanks for help.<br />
Dim qd As QueryDef<br />
&nbsp; &nbsp; Set qd = CurrentDb.QueryDefs(&quot;Q_Biw<wbr />eeklySupre<wbr />port_Cal&quot;)<wbr /><br />
&nbsp; &nbsp; qd.SQL = (&quot;SELECT * FROM CalDetail WHERE ((CalDetail.ReturnDate) BETWEEN #&quot; &amp;&nbsp;dtStartDate &amp;&nbsp;&quot;# AND #&quot; &amp;&nbsp;dtEndDate &amp;&nbsp;&quot;#) ORDER BY [Type], [TagNo]&quot;)
</div>
</div>


I have a main report with a subreport. How do I requery the query that used for the subreport everytime the main report is opened?
I have something like this, seems like it works, but the subreport picks the result from the last runtime. How do I make the subreport pick the newest result? My subreport name 'rpt_SubReport'. Thanks for help.
Dim qd As QueryDef
    Set qd = CurrentDb.QueryDefs("Q_BiweeklySupreport_Cal")
    qd.SQL = ("SELECT * FROM CalDetail WHERE ((CalDetail.ReturnDate) BETWEEN #" & dtStartDate & "# AND #" & dtEndDate & "#) ORDER BY [Type], [TagNo]")

Repopulate subreport at runtime.

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.