【发布时间】:2011-09-06 11:12:06
【问题描述】:
我对以下代码行有疑问,我觉得它很简单,但我无法解决。我收到运行时错误“91”对象变量或块变量未设置错误。错误发生在rsc.OpenRecordSet... 行上。 BadgeV 是一个数字,我安装了 DAO 参考,它是从一个链接的 sql server 表中提取的,其中我有一个主键和标识。我错过了什么?
Function FNC_Scan()
Dim db As DAO.Database
Dim rsc As DAO.Recordset
Set db = CurrentDb()
rsc.OpenRecordset ("SELECT dbo_ScanData.CardID, dbo_ScanData.Complete FROM dbo_ScanData WHERE (((dbo_ScanData.CardID)= Forms![Scan]!BadgeV))) AND ((dbo_ScanData.Complete)=0));")
If rsc.EOF Then
MsgBox "new item"
Else
MsgBox "Append Item"
End If
Set rsc = Nothing
Set db = Nothing
End Function
【问题讨论】:
-
设置 rsc = db.OpenRecordset ("SELECT dbo_ScanData.CardID, dbo_ScanData.Complete FROM dbo_ScanData WHERE dbo_ScanData.CardID=" & Forms![Scan]!BadgeV & " AND dbo_ScanData.Complete=0")
标签: sql sql-server-2008 ms-access vba