0

我有一个带有组合框的表单，供用户从一系列日期中进行选择。该表单基于一个表格，其中每个日期都是一条记录。每个日期最多有 6 个附件，每个附件位于单独的字段中。当用户选择日期时，如何检查附件字段是否为空？我正在尝试编写“单击时”事件。

我还想这样做，如果某个字段缺少附件，那么通常允许用户选择该附件的复选框将显示为灰色并显示“此日期不存在数据”之类的内容

我试着做一个简单的 if 语句 

'Go through the recordset, testing each record to see if the date matches the selected one
'If it doesn't match, go to the next one
While Not fldDate = dteDate
    rst.MoveNext
    Wend
MsgBox fldDate

If rstPIANO.Fields("FileName") = Null Then MsgBox "No PIANO Data exists for this date"
If rstMassBalance.Value = Null Then MsgBox "No Mass Balance Data exists for this date"
If rstIR.Value = Null Then MsgBox "No IR Data exists for this date"
If rstD86.Value = Null Then MsgBox "No D86 Data exists for this date"
If rstGC.Value = Null Then MsgBox "No GC Data exists for this date"
If rstMiniGasGraphs.Value = Null Then MsgBox "No Mini Gas Graph Data exists for this date"

这给了我一个错误，说“对象无效或不再设置”

4

1 回答 1

0

您的记录集被称为 rst 您在每个 IF 语句中都称它为不同的东西 rstPiano 不存在使用 If rst.fields("Piano") = null

于 2013-07-23T13:31:10.080 回答