VBA代码运行报424 Object Required错误排查咨询

你遇到的424 Object Required错误和记录集有效性、字段数量无关，是VBA基础语法使用错误导致的：

• VBA中Is关键字仅用于对象引用判断：要么判断两个对象变量是否指向同一个内存对象，要么判断对象引用是否为Nothing，不能用来判断值类型的空状态。
• Null是VBA中值类型的特殊状态，不属于对象，你写的Is Not Null逻辑会强制把Null当作对象做引用比较，自然会触发缺少对象的报错。
• 你之前运行的rstCurrent.Fields.Count > 0能正确返回8个字段的结果，仅能证明rstCurrent记录集对象已正常打开、字段集合可访问，和后续值判断的语法错误不冲突。

判断字段值是否为Null必须使用VBA内置的IsNull()函数，修正后的代码如下：

If Not IsNull(rstCurrent.Fields(1).Value) Then
    MaxDate = rstCurrent.Fields(1).Value
End If

补充注意点：

• 给MaxDate赋值时建议显式追加.Value属性，虽然Field对象的默认属性是Value，但显式调用可以避免隐式默认属性调用带来的非预期错误。
• 不要混淆VBA里的空值判断规则：对象空用Is Nothing判断，普通变量/字段值的Null空用IsNull()判断，空字符串用= ""判断，三类判断语法不能混用。

内容的提问来源于stack exchange，提问作者designspeaks