<div>
<div class="content wysiwyg-content">
I have a bunch of queries. Which one will be executed depends on the date range the user enters in a couple of textboxes on a form. &nbsp;How would I modify the code below to set a SUBFORM's recordsource? The code below was used on another one of my projects where I set the FORM's recordsource. &nbsp;This time, I need to set the SUBFORM's recordsource. &nbsp;The subform's name is SUBFORM1. Thank you.<br />
<br />
QueryNameForReport = QueryName<br />
<br />
If (IsNull(ANYDATA)) Then GoTo NoDataMessage<br />
&nbsp; &nbsp;DoCmd.OpenForm &quot;Form1&quot;<br />
&nbsp; &nbsp;Set frm = Forms(&quot;Form1&quot;)<br />
&nbsp; &nbsp;With frm<br />
&nbsp; .RecordSource = QueryName &nbsp; &lt;------ (QueryName is a variable that is set to the name of the<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;appropriate query based upon which date range a<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;user selects)<br />

</div>
</div>


I have a bunch of queries. Which one will be executed depends on the date range the user enters in a couple of textboxes on a form.  How would I modify the code below to set a SUBFORM's recordsource? The code below was used on another one of my projects where I set the FORM's recordsource.  This time, I need to set the SUBFORM's recordsource.  The subform's name is SUBFORM1. Thank you.

QueryNameForReport = QueryName

If (IsNull(ANYDATA)) Then GoTo NoDataMessage
   DoCmd.OpenForm "Form1"
   Set frm = Forms("Form1")
   With frm
  .RecordSource = QueryName   <------ (QueryName is a variable that is set to the name of the
                                                                 appropriate query based upon which date range a
                                                                 user selects)


Set recordsource of a subform using code

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.