Question

我有一些VBA代码可以根据查询内容生成HTML报告。查询日期通过使用以下标准的框的内容确定。

 Forms![frmImport]![Flash]

当我设置它时，它给了我太少的参数错误。如果我设置标准说，2013年2月20日，它的工作正常。我假设这与VBA解释查询条件的方式有关。

以下是我的代码中VBA似乎不喜欢的部分。

Dim db As DAO.Database
Dim QUERY As DAO.Recordset

Set QUERY = db.OpenRecordset("qryFlash")

我不确定是否还有更多内容需要添加到Set行，以便VBA能够很好地使用此查询。

Answer 1

尝试

Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Dim rs As DAO.Recordset

Set qdf = CurrentDb.QueryDefs("qryFlash")
For Each prm In qdf.Parameters
    prm.Value = Eval(prm.Name)
Next prm
Set rs = qdf.OpenRecordset(dbOpenDynaset)

Answer 2

简单地构建SQL字符串而不是使用查询。解决了我的问题。

参数太少。预期1

2 个答案: