语法-424对象在代码线上所需的错误

Question

我一直在以下代码行上获得424：对象reuqired错误：

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

这是一个问题的语法。为什么它会在它之前拿起线：

If rstCurrent.Fields.Count > 0 Then

End if

给我正确的表（8）的菲尔德数量，但在上一个错误中出错了？

Answer 1

使用VBA语法：

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