Automatically Naming a report based on Field Name at save prompt

[Pistol]

I need help naming a report.
Currently I am giving the option to run a report based on the current record. The report is based on a query that will select the current record.

When the users save the report I would like it to automatically name the report based on values in the current record (i.e. DateRMA#NameFirstNameLast.rtf instead of "RPT_RMA_CURRENT.rtf&quot

Any Suggestions?

 

[thevillageinn]

create a variable say strReportName, then...

 strReportName = dateRMA

something to that effect. I used something similar on a report that I save...

Dim FileName As String
Dim FilePath As String
Dim FileDate As String
    FileName = ""
    FilePath = ""
    FileDate = ""
    
FileDate = InputBox("Enter the date/description of the QCd files: (Format Date as yyyymmdd)", "Description") '= vbCancel Then
If FileDate = "" Then
MsgBox "You didn't specify the date of the file!", vbOKOnly
Exit Sub
Else
'Set Filters
    CommonDialog1.Filter = "Excel Spreadsheets (*.xls) |*.xls"
    CommonDialog1.FilterIndex = 1
    
'Display the Save File Dialog
    CommonDialog1.FileName = "C:\Documents and Settings\" & Environ("username") & "\Desktop\UnmatchedTrx_" & FileDate & ".xls"

There may be cleaner ways to do it, but I'm quite new to VBA and this works for my purposes.

The key part to this for me is where I name the file (right at the end of my code excerpt), and use the info that the user entered into the input box (FileDate). You could alternatively use data from a table or a text box on a form

HTH
-Dan