无效使用Null - Access 2013 VBA

时间:2015-07-20 19:31:55

标签: vba access-vba

我有一个循环,通过使用ADO从一个表中收集信息来填充另一个表。

当我记录11096时,我遇到运行时错误。 "运行时错误94:  无效使用Null"

这是突出显示的

invDate = DateSerial(rstDe![Year], rstDe![Month], rstDe![Date]) ' Coverts Year, Month, and Day, to a date format.

如果我将鼠标悬停在它上面,它会显示" 7/19/2015",那为什么它认为它为空呢?

O打开rstDe引用的表并转到记录11096,看起来很好。它包含与上面的记录完全相同的数字和格式。

1 个答案:

答案 0 :(得分:0)

这是解决了。

原始表中必须跳过行,导致我在检查自己为什么抛出空错误时会看到错误的信息。

在日期功能“

之前添加了一张支票
If Not IsNull(rstDe![Year]) Then
  invDate = DateSerial(rstDe![Year], rstDe![Month], rstDe![Date]) ' Coverts Year, Month, and Day, to a date format.
  rstAr![Invoiced Date] = invDate
  rstAr![Outstanding Days] = (Date - invDate)
End If