Question

我一直得到这个运行时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)

Answer 1

我有点困惑为什么你试图将QueryDef设置为SQL查询的结果，不应该读取更多这样的行：

Set qdf3 = db.QueryDefs("queryname")

如果出于某种原因query1返回查询名称，那么我建议先确定相应的查询并将其名称传递给字符串，然后在querydef调用中引用它。

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

Set rs = qdf3.OpenRecordset(dbOpenDynaset)

我认为你不能以这种方式设置记录集，我不确定你为什么要这样做，但也许这就是你想要的更多：

Set rs = db.OpenRecordset(qdf3.Name, dbOpenDynaset)

运行时错误3265此集合中找不到项目

1 个答案: