Question

我有一个访问数据库，可以将查询输出到excel文件。该查询使用日期参数来运行。该参数由用户选择。我想在导出的文件名中使用该参数。如何用最少的代码完成它。

01 01 09

好的新年开始了。对不起，但我正在度假。

详情。

我有一个以Excel格式输出报告的访问数据库，该报告依赖于用户选择的日期参数。通过具有弹出日历的文本框（text100）选择此参数。我想在文件名中使用文本框中的日期（text100）。

Answer 1

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

在模块中只需要几个子/函数：

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

显然这段代码需要稍微调整才能编译......： - ）

Answer 2

我很明显你要解析文件名中的日期，然后使用这个日期来执行查询......如果这不是你想要的，请重新制定问题。

我假设最后一部分非常明显：将字符串转换日期与查询字符串的其余部分连接起来，并将其提交给执行。

不太明显的部分是解析。您需要定义文件名格式。是吗：

“OUTDATA-YYYYMMDD”
“OUTDATA _YY _MM _DD”
“DD _MM _YYY _OUTDATA”
或其他什么？

我们需要知道令牌的相对位置（年，月，日和普通文件名）。

假设“YYYY_ MM_ DD_ OUTDATA.DAT”，这是一个想法......

function toQueryDate(aFileName as String) as Date
Dim theQueryDate as Date
Dim theParsedDate as String

theParsedDate=Mid(aFileName,1,4)+"/"+Mid(aFileName,6,2)+"/"+Mid(aFileName,9,2)
'IMPROVE:there's no error checking here.... we could see if the individual tokens are numbers

On Error Resume Next
theQueryDate=Cdate(theParsedDate)
If err.number then
   Msgbox "Bad filename: "+aFilename
   End 'or something else less fatal 
Endif

'we should be OK so:
toQueryDate=theParsedDate
End function

在vba中使用用户定义的参数

2 个答案: