MS Access溢出错误

Question

此行运行时，我在Access中收到溢出错误

intAT = Nz(DLookup("at_ID", "qryAT", "at_sc_ID=" & Me.sc_ID & " AND at_OT=0"), 0)

如果我添加Debug.Print Nz(DLookup("at_ID", "qryAT", "at_sc_ID=" & Me.sc_ID & " AND at_OT=0"), 0)就在该行之前，它会打印id号就好了，但在下一行的作业中仍然出现错误。

我还可以通过向查询添加一个标准来使其工作，该标准将所有结果限制为在特定日期和时间之前发生的结果。 它仅限于在特定时间之前限制查询，而不是在较早时间之后。 如果包含该时间之后的任何记录，则会再次溢出。 我看过那段时间后输入的数据，看起来一切都很好，但我不确定到底应该找到什么。 与导致其失败的第一条记录关联的at_ID是32838如果这有帮助的话。

Answer 1

我的猜测是intAT被声明为Integer类型。 但32,838对整数来说太大了。 （整数可以保存-32,768到32,767之间的数字）因此它会触发错误＃6， “溢出” 。

请改用Long Integer。

Dim lngAT As Long
lngAT = Nz(DLookup("at_ID", "qryAT", "at_sc_ID=" & Me.sc_ID & " AND at_OT=0"), 0)