确定附件字段是否为空

Question

如何确定Access中的附件字段中是否包含使用VBA的附件？我试过了

If IsNull(rstMassBalance.Fields("FileName"))

和

If rstMassBalance.Fields("FileName") = Null

但这些都不起作用。它要么什么都不做，要么给我运行时错误3021，说“没有当前记录”

Answer 1

我不使用Attachments字段，但附件会从附件字段的Recordset2属性中检索到Value。

Dim rsChild As DAO.Recordset2

Set rsChild = rstMassBalance.Fields("FileName").Value

如果没有附件，我不确定这是否会返回Nothing或空记录集。所以：

If rsChild Is Nothing Then
'or 
If rsChild.RecordCount  <= 0 Then   'probably this one

有很多信息可以从Access Blog获得。

Work with Attachments in DAO表示您可以查看：

If rsChild.EOF Then