<div>
something like this, 
 
Function fSelectFileCSV(myFile) 
Dim fd As Object 
Set fd = Application.FileDialog(1) 
With fd 
&nbsp; &nbsp; .Filters.Clear 
&nbsp; &nbsp; .Filters.Add &quot;Text File&quot;, &quot;*.csv; *.txt&quot; 
 
&nbsp; &nbsp; .AllowMultiSelect = False 
&nbsp; &nbsp; 
&nbsp; &nbsp; 'initial path 
&nbsp; &nbsp;.InitialFileName = CurrentProject.Path &amp;&nbsp;&quot;\&quot; &amp;&nbsp;myFile ' change this to your desired default folder 
&nbsp; &nbsp; 
&nbsp; &nbsp; .Title = &quot;Select File&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; If .Show = True Then 
&nbsp; &nbsp; &nbsp; &nbsp; fSelectFileCSV = .SelectedItems(1) 
&nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; End If 
End With 
End Function
</div>

<div>
Rey, what I am doing is exporting a table to Excel for client. &nbsp;this is what I am using now: 
 
Public Function saveFileAs(Optional iFilename As String = &quot;&quot;) As String 
&nbsp; &nbsp; Dim fd As FileDialog 
&nbsp; &nbsp; &nbsp; Set fd = Application.FileDialog(msoFileDialogSaveAs) 
&nbsp; &nbsp; 'Set initial filename 
&nbsp; &nbsp; fd.InitialFileName = iFilename 
&nbsp; &nbsp; If fd.Show = True Then 
&nbsp; &nbsp; &nbsp; &nbsp; If fd.SelectedItems(1) &lt;&gt;&nbsp;vbNullString Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; saveFileAs = fd.SelectedItems(1) 
&nbsp; &nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; Else 
&nbsp; &nbsp; &nbsp; &nbsp; 'Stop Code Execution for Null File String 
&nbsp; &nbsp; &nbsp; &nbsp; End 
&nbsp; &nbsp; End If 
&nbsp; &nbsp; 'Cleanup 
&nbsp; &nbsp; Set fd = Nothing 
&nbsp; &nbsp; 
End Function 
 
Private Sub cmdExportSelectedHealthSalesBonustoExcel_Click() 
 
&nbsp; &nbsp; Dim myQueryName As String 
&nbsp; &nbsp; Dim myExportFileName As String 
&nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; myQueryName = &quot;qdr_RDC_Health_Selected_p&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; myExportFileName = &quot;2015 Health Sales Bonus&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; DoCmd.TransferSpreadsheet acExport, 8, myQueryName, saveFileAs, True, &quot;2015 Health Sales Bonus&quot; 
 
End Sub 
 
Will I just replace the savefileas Function with the fSelectFileCSV function you show above. &nbsp;Currently my spreadsheet is picking up the &quot;2015 Health Sales Bonus&quot; as the name of the spreadsheet but I also want to autofill the file name with myExportFileName in the filedialog form.
</div>

<div>
try 
 
Private Sub cmdExportSelectedHealthSalesBonustoExcel_Click() 
 
&nbsp; &nbsp; Dim myQueryName As String 
&nbsp; &nbsp; Dim myExportFileName As String 
&nbsp; &nbsp; &nbsp;Dim strSaveFileAs As String 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;strSaveFileAs = saveFileAs() 
&nbsp; &nbsp; &nbsp; &nbsp; myQueryName = &quot;qdr_RDC_Health_Selected_p&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; myExportFileName = &quot;2015 Health Sales Bonus&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; DoCmd.TransferSpreadsheet acExport, 8, myQueryName, strSaveFileAs, True, &quot;2015 Health Sales Bonus&quot; 
 
End Sub
</div>

<div>
The name of the file is still blank when the filedialog form pops up.
</div>

<div>
As always, Rey solves all my problems!! &nbsp;He is the best!!!!
</div>

<div>
Rey, I need to add a field name &nbsp;in front of the file name can you tell me how I would do that? &nbsp; 
qdr_RDC_Health_Selected_p.Producer_Name 
 
Private Sub cmdExportSelectedHealthSalesBonustoExcel_Click() 
 
&nbsp; &nbsp; &nbsp;Dim myQueryName As String 
&nbsp; &nbsp; &nbsp;Dim myExportFileName As String 
&nbsp; &nbsp; &nbsp; Dim strSaveFileAs As String 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strSaveFileAs = saveFileAs() 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;myQueryName = &quot;qdr_RDC_Health_Selected_p&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;myExportFileName = &quot;2015 Health Sales Bonus&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp;DoCmd.TransferSpreadsheet acExport, 8, myQueryName, strSaveFileAs, True, &quot;2015 Health Sales Bonus&quot; 
 
&nbsp;End Sub
</div>

<div>
pls give more &nbsp;detailed info.. 
 
if the file name is &nbsp;myexcel.xls, 
- how do you want it to look after adding the FieldName?
</div>

<div>
I need the Producer Number and Producer Name fields from qdr_RDC_Health_Selected_p. 
These two fields are on a form which the user selects from a drop down list to get his report. &nbsp;It initially shows as a pdf file. &nbsp;Because we have a lot of code in the report header the user cannot download into Excel as normally so I added a button where they can download to an excel file using the report query. &nbsp;Below is how I would like it to show in the Filedialog filename box 
 
111555 John Smith - 2015 Retention Bonus Report.xlsx
</div>

<div>
&lt;These two fields are on a form which the user selects from a drop down &gt; 
what are the names of the drop down boxes? 
change the names of the combo boxes in the codes below with the actual names of the combo box 
 
 
Private Sub cmdExportSelectedHealthSalesBonustoExcel_Click() 
 
&nbsp; &nbsp; &nbsp;Dim myQueryName As String 
&nbsp; &nbsp; &nbsp;Dim myExportFileName As String 
&nbsp; &nbsp; &nbsp;Dim strSaveFileAs As String 
&nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;myQueryName = &quot;qdr_RDC_Health_Selected_p&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;myExportFileName = Me.ComboProducerNumber &amp;&nbsp;&quot; &quot;&nbsp;&amp; Me.comboProducerName &amp;&nbsp;&quot; - &quot;&nbsp;&amp; &quot;2015 Health Sales Bonus.xls&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;strSaveFileAs = saveFileAs(myExportFileName) &nbsp; 
&nbsp; &nbsp; &nbsp;DoCmd.TransferSpreadsheet acExport, 8, myQueryName, strSaveFileAs, True, &quot;2015 Health Sales Bonus&quot; 
 
&nbsp;End Sub
</div>

<div>
<div class="content wysiwyg-content">
Need Access VBA code for FileDialog to auto assign name of file (I provide name in code). &nbsp;The filedialog form pops up like it should, but need it to populate the file name field with the name I provide in the code. &nbsp;How can I make that happen?
</div>
</div>

Need Access VBA code for FileDialog to auto assign name of file (I provide name in code).  The filedialog form pops up like it should, but need it to populate the file name field with the name I provide in the code.  How can I make that happen?

MS Access 2010 VBA FileDialog

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.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.