ms-access - 在文件名中使用用户定义的参数

Question

我有一个以 Excel 格式输出报告的 Access 数据库。
该报告取决于用户选择的日期参数。该参数是通过具有弹出日历的文本框 (text100) 选择的。
我想在文件名的文本框(text100)中使用日期。

Answer 1

您必须负责要求参数。我喜欢使用可以通过全局函数获取/设置的全局参数——这样它们可以在任何地方设置，并且查询也可以 Access 它们。

只需要模块中的几个子/函数:

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

然后在您的查询中 (去掉日期参数)

WHERE Field1 = ParameterGet("Param1")

然后在您的代码中运行导出

Private Sub Export_Click()

  dim vParam1 as variant

  vParam1 = inputbox("Enter the parameter:")

  ParameterSet "param1", vParam1

  Transferspreadsheet blah, blah, FileName:= vParam1 & ".xls"

End Sub

显然，这段代码需要稍微调整才能编译... :-)