0

我一直收到这个运行时 3265 错误，说在 qdf3 中我的 Sql 的集合中找不到该项目，我使用了很多方法，但它仍然不起作用。所以我徘徊是否有人可以看看我的代码并在这里帮助我，非常感谢！

Dim db As DAO.Database 
Dim rs As DAO.Recordset
Dim Sql1 As String
Dim qdf3 As QueryDef
Dim prm3 As Parameter
Set db = CurrentDb
Set qdf3 = db.QueryDefs("SELECT [range] From [Query1] WHERE ( [range] ='NA');")
For Each prm3 In qdf3.Parameters
  prm3.Value = Eval(prm3.Name)
Next prm3

Set rs = qdf3.OpenRecordset(dbOpenDynaset)
4

1 回答 1

0

我对您为什么尝试将 a 设置为QueryDefSQL 查询的结果感到有些困惑，该行不应该更像这样：

Set qdf3 = db.QueryDefs("queryname")

如果由于某种原因query1要返回查询的名称，那么我建议首先确定适当的查询并将其名称传递给字符串，然后您可以在 querydef 调用中引用它。

此外，代码中的最后一行：

Set rs = qdf3.OpenRecordset(dbOpenDynaset)

我认为您不能以这种方式设置记录集，我不确定您为什么要这样做，但也许这更符合您的要求：

Set rs = db.OpenRecordset(qdf3.Name, dbOpenDynaset)
于 2013-03-04T12:51:47.177 回答