自动执行 2001 错误

Question

我的访问数据库昨天崩溃了，我今天试图加载它以查找 AutoExec 2001 错误。

应用程序仍然可以运行，但弹出错误消息，没有任何选项来检查调试。

我已经更新了可信位置，因为我读到这可能是一种可能性。

错误发生在附近：

 If DLookup("[Last_Opened]", "[tbl_logger]", "[Last_opened] = date()") Then
    DoCmd.Close acForm, "frm_Splash"
    DoCmd.OpenForm "frm_Manager_Stats_NEW_menu", acNormal
 Else

表格打开，然后报错，我也试过压缩和修复-求助

Answer 1

您应该检查 Null:

If Not IsNull(DLookup("[Last_Opened]", "[tbl_logger]", "[Last_opened] = Date()")) Then
   DoCmd.Close acForm, "frm_Splash"
   DoCmd.OpenForm "frm_Manager_Stats_NEW_menu", acNormal
Else

自动执行 2001 错误

AutoExec 2001 Error

ms-access

vba

ms-access-2010