Exporting to File based on path in Text Box

[MCTampa]

I am trying to use the DoCmd.OutputTo function to output to a file based on the values in a text box.

Here is what I'm using:

 Do.Cmd.OutputTo acOutputQuery, "Monthly Detailed Report", Excel97-Excel2003Workbook(*.xls)", "Screen.ActiveForm!Text1216 & " \ "& Monthly Detailed Report......

The path to the file is in text box 1216 and it reads: G:\IRM\001 Javier Diaz
However I'm getting the error "Type Mismatch" and I cannot understand why.
Any help would be appreciated.

Mike

 

[MCTampa]

The text boxes are the active form at the time the function is being run. I use Screen.ActiveForm...for many of the functions on my form.
The function is located in the only module in the database....I have a few different functions in that module.

The path I am tying to save to (in Text1216) is: G:\IRM\001 JavierDiaz\Purchase Space\2019\03 Mar\

Could it be that my path does not have a " in front of it?

 

[MCTampa]

Got it to work.

I mostly used your code:

Function Archive_Detailed()
'On Error GoTo Email_Report_Err
Dim fName As String
fName = Screen.ActiveForm!Text1216 & "Monthly Detailed Report as of " & MonthName(Screen.ActiveForm!Text1122, False) & " " & (Screen.ActiveForm!Text1141) & ".xls"
MsgBox fName
DoCmd.OutputTo acOutputQuery, "Monthly Detailed Report", "Excel97-Excel2003Workbook(*.xls)", fName, False, "", , acExportQualityPrint
Proc____Email_Report_Exit:
    Exit Function
Proc____Email_Report_Err:
    MsgBox Error$
    Resume Proc____Email_Report_Exit
End Function

 

[Joe4]

Excellent!