Question

I have an Access Database that outputs a report in Excel format.

The report is dependent on a date parameter chosen by the user. This parameter is selected via a textbox (text100) that has a pop up calendar.

I would like to use the date in the text box (text100) in the filename.

Answer 1

You have to take responsibility for asking for the parameter. I like using global parameters that I can get/set via global functions – this way they can be set anywhere and the queries can have access to them as well.

Just need a couple subs/functions in module:

Some Module  Dim vParam1 as variant Dim vParam1 as variant  Public Sub ParameterSet(byval pParamName as String, byval pParamValue as variant)  Select Case pParamName    Case 'Param1': vParam1 = pParamValue    Case 'Param2': vParam2 = pParamValue    Case Else     msgbox pParamName & ' parameter not defined' End Select  End Sub  Public Function ParameterGet(byval pParamName as String) as variant  Select Case pParamName    Case 'Param1': ParamGet = vParam1    Case 'Param2': ParamGet = vParam2    Case Else     msgbox pParamName & ' parameter not defined' End Select  End Sub 

Then in your query (remove the date parameter)

WHERE Field1 = ParameterGet('Param1') 

Then in your code where you run the export

Private Sub Export_Click()    dim vParam1 as variant    vParam1 = inputbox('Enter the parameter:')    ParameterSet 'param1', vParam1    Transferspreadsheet blah, blah, FileName:= vParam1 & '.xls'  End Sub 

Obviously this code needs a little tweaking to compile… 🙂