VBA中的IF语句处理不正确

Question

我具有Access VBA功能，该功能可以发送许多包含更新的Excel电子表格的电子邮件，但前提是基础数据最近已更新。直到昨晚为止，这部分代码一直运行良好，如果IF语句似乎错误地将系统日期与数据日期进行了比较，并使用较旧的数据发送了电子邮件，而不是向负责纠正旧版本问题的人员发送了警告电子邮件。数据。

在运行Windows 10的VM上访问Access2016。当前数据日期包含在表中，并且该日期正确。系统日期正确。除了比较日期外，一切都按预期进行。没有失败或错误代码生成。

归结为代码读取的麻烦点...

'检查数据是否过时如果ERDBDate

尽管我的编码经验不是很好，但我从未见过这样的IF语句评估不正确。我所能假设的只是我正在使用一种“摇晃”的比较日期的方法，或者是服务器端发生某种形式的错误，导致返回了不正确的系统日期（这似乎可能吗？）。我宁愿是我自己然后也不能依赖系统日期“简单”的东西。

我从本网站上发布的答案和帮助中学到了很多。感谢您的所有努力！

Answer 1

尝试此语句：

If ERDBDate < DateAdd("d", -2, Now()) then