ms-access - 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，“溢出”。

改用长整数。

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