Access VBA中的DMin函数溢出错误

Posted 2023-04-19

【中文标题】Access VBA中的DMin函数溢出错误

【英文标题】：Overflow Error with DMin Function in Access VBA

【发布时间】：2014-10-29 13:26:55

【问题描述】：

我在 Ms-Access VBA 中使用 DMin 函数，如下 将 MinVal 调暗为整数 MinVal = DMin("ARRID", "Tbl_abc", "[RequestStatus] = 1 AND [WorkInProgress] = -1")

到目前为止，上述功能运行良好近一年，突然间它给了我溢出错误。我在自动号码上做这个 Dmin，所以没有空/零的机会。 理想情况下，MinVal 应该是来自数据的 40316，这也不是大数字。我已经尝试压缩和修复数据库。问题仍然存在。但是，当我从访问查询运行上述 DMin 时，它工作正常。它只是在 VBA 中没有出现。

如有任何帮助，将不胜感激。

【参考方案1】：

您需要将Dim MinVal As Integer 更改为Dim MinVal As Long。 Integer（16 位）的最大值为 32,767，而Long（32 位）的最大值超过 20 亿。 Access 在内部将自动编号存储为 32 位长整数，因此查询始终有效。当您完成最后一个 ARRID

【讨论】：

我已将其更改为 Long，感谢您的及时回复。