ms-access - 如何从一条记录中读取一个字段

Question

我知道我想多了，但我想检查单个记录中的单个值/字段。例如，我想知道主键为 33 的记录中“closedDate”字段的值是否为空。

我在想类似的事情:

dim db as DAO.Database
dim rs as DAO.Recordset
set db = CurrentDb
set rs = db.OpenRecordset("record_holdData")

If not isNull(rs.Fields("closedDate")) then
     'do nothing
Else
     'add a close date
End If

但我认为这是不对的。它没有指定记录号。在应用程序中，表单是通过绑定(bind)到有问题的记录来打开的，但我不认为 CurrentDb考虑到这一点，而是引用整个表格。

所以我的问题是，如何以这种方式打开记录集并仅在该特定记录中引用该字段？

Answer 1

你找到了你想要的答案，但我会使用 DLookup Function反而。

Dim db As DAO.Database
Dim strWhere As String
Dim varClosedDate As Variant
Set db = CurrentDb
strWhere = "id = 33"
varClosedDate = DLookup("closedDate","record_holdData",strWhere)
If IsNull(varClosedDate) = True Then
    'use today's date as closedDate
    db.Execute "UPDATE record_holdData Set closedDate = Date() WHERE " & strWhere
End If