<div>
The simplest would be to work directly of the recordSET of the form. E.g. below: 

<pre><code class="code-10 nolinks" id="code-20-41799428-1">'Get the recordset
 Dim rs As DAO.Recordset
 Set rs = Me.Form.RecordsetClone
 If Not rs.BOF Then rs.MoveFirst
'Create Excel with Late Binding
 Dim oExcel As Object
 Set oExcel = CreateObject(&quot;Excel.Application&quot;)
 Dim oWorkBook As Object
 Set oWorkBook = oExcel.Workbooks.Add
 Dim oWS As Object
 Set oWS = oWorkBook.Worksheets(1)
'Copy data
oWS.Range(&quot;a1&quot;).CopyFromRecordset rs

'Turn over to user
 oExcel.visible = True
 Set oExcel = Nothing
</code></pre>
 
You can expand upon this to include the field names if you like. 
 
I tried an alternative, to create a query and then apply the filter, but that went south pretty quickly, due to issues with resolving form parameters in the query.
</div>

<div>
To include field names: 

<pre><code class="code-1 nolinks" id="code-20-41799430-1"> Dim iCols As Integer
 For iCols = 0 To rs.Fields.Count - 1
 ows.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
 Next
 ows.Range(ows.Cells(1, 1), ows.Cells(1, rs.Fields.Count)).Font.Bold = True
 rs.MoveFirst
 ows.Range(&quot;A2&quot;).CopyFromRecordset rs
 ows.Application.visible = True
</code></pre>
</div>

<div>
Hi Anders - thanks for that, but it's not quite what I'm after. 
 
We have an MS Access form, with a Recordsource based on an existing query called qryRecordSource (it may already has a WHERE clause as part of the query). &nbsp;From here, I need to create a query say, qryExport (which is what I will be using to export data from). &nbsp;If no form-filter exists, it's easy, I literally copy the query qryRecordSource to qryExport. 
 
However, if the user has created a Filter (within the Access form), I need to add the filter criteria to qryExport (again via the WHERE clause). 
 
I've done this before on an old version of my database, but it was complex and slightly cumbersome (in my eyes) and was wondering if there is tried and tested way of doing this, 
 
Thanks for the help so far.
</div>

<div>
The extremely simple method is to read the filter setting of the form and apply that to the report: 

<pre><code class="code-1 nolinks" id="code-20-41799469-1"> Dim Filter As String

 Filter = Me.Filter
 Reports(&quot;NameOfYourReport&quot;).Filter = Filter
 Reports(&quot;NameOfYourReport&quot;).FilterOn = (Filter &lt;&gt; &quot;&quot;)
</code></pre>
/gustav
</div>

<div>
Thank you John. &nbsp;That's very similar to the method I have used previously - but looks like the best option (although, I may end up creating a second query (based on qryExport), with the filter added. 
 
All the best and thanks again everyone for your help.
</div>

<div>
Note that the method i proposed originally does include the filters, and only export the filtered records. 
 
But if you DO want the querydef, you can try this: I ended up removing the form name references, as it was giving me grief in the export execution. 
 

<pre><code class="code-10 nolinks" id="code-20-41799640-1">Dim qdf As DAO.QueryDef
On Error Resume Next
CurrentDb.QueryDefs.Delete &quot;TempExport&quot;
CurrentDb.QueryDefs.Delete &quot;qdfExport&quot;
On Error GoTo 0
Set qdf = CurrentDb.CreateQueryDef(&quot;TempExport&quot;, Me.RecordSource)
Dim qdfEX As DAO.QueryDef
Dim SQL As String
Dim WhereClause As String
WhereClause = Me.Filter
WhereClause = Replace(WhereClause, &quot;[&quot; &amp; Me.Name &amp; &quot;].&quot;, &quot;&quot;)
WhereClause = Replace(WhereClause, Me.Name &amp; &quot;.&quot;, &quot;&quot;)
SQL = &quot;SElect * from TempExport Where (&quot; &amp; WhereClause &amp; &quot;)&quot;
Set qdfEX = CurrentDb.CreateQueryDef(&quot;qdfExport&quot;, SQL)
</code></pre>
</div>

<div>
Thanks Anders - a good option. 
 
Currently, I think the solution that seems easiest (for me) is this: 
 
* Save qryRecordSource as qryExport 
* If a form filter exists create qryExportFilter - based on qryExport (but with filter added) 
* When exporting - simply choose the relevant query as the source 
 
It might not be pretty - but it will be easy to implement. 
 
Thanks again for all of your help.
</div>

<div>
<div class="content wysiwyg-content">
I need to create a master query that will be used for exporting data. &nbsp;This query will be based on the forms current RecordSource, which is easy enough to do. &nbsp;However, it may also need to incorporate any filters that may be in place. &nbsp; 
 
Can anyone let me know a clean/accurate/safe way of doing this?
</div>
</div>

I need to create a master query that will be used for exporting data.  This query will be based on the forms current RecordSource, which is easy enough to do.  However, it may also need to incorporate any filters that may be in place.  

Can anyone let me know a clean/accurate/safe way of doing this?

Create query based on forms Recordsource property and filter (combined)

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.