Question

我正在尝试使用Access中的VBA将SQL查询的结果分配给变量。查询返回一个值，但它赋给的变量的值为Nothing。以下是代码段：

Dim queryReturnID As String
queryReturnID = "select dbo_tbl_SupplierReturn.ReturnID from dbo_tbl_SupplierReturn" & _
    " where SupplierID = " & lstPOHdr.Column(1)
Debug.Print queryReturnID
Dim RecordSet1 As DAO.RecordSet
Set RecordSet1 = CurrentDb.OpenRecordset(queryReturnID)

Answer 1

不完全确定你的Nothing记录集是怎么回事;即使是不返回记录的查询也不会将对象设置为空。但是，作为替代方案，您可以使用以下一行代码执行相同的操作：

DLookup("ReturnID", "dbo_tbl_SupplierReturn", "SupplierID = " & lstPOHdr.Column(1))

RecordSet = SQL查询返回值后没有任何内容

1 个答案: