Question

我在Access 2016数据库上设置了Autoexec宏，以根据Environ("USERNAME")确定要打开的表单。

当我打开数据库时，我得到一个宏错误2001.如果我单击停止所有宏，我可以继续使用数据库而不会出现问题，直到我更改文件名，然后问题再次发生。

是否有任何选项可以防止发生此错误？

被调用的代码是

LUser = LCase(Environ("USERNAME")) 'Get current username

DoCmd.OpenForm "frmDash", acNormal, , , , acWindowNormal

If IsNull(DLookup("[sysname]", "tblaccmannew", "sysname=" & "'" & LUser & "'")) Then
    DoCmd.OpenForm "frmSearch", acNormal, , , , acWindowNormal
    Forms!frmDash.Visible = False
End If

Answer 1

您需要“信任”数据库的位置。

指定受信任位置（Access 2013＆amp; 2016）

在“文件”选项卡上，单击“选项”。



在“访问选项”对话框的左侧，单击“信任中心”。



在右侧的“Microsoft Office Access信任中心”下，单击“信任”   中心设置。



在“信任中心”对话框的左侧窗格中，单击“可信”   位置。



要添加网络位置，请在右窗格中选择“允许受信任”   我的网络上的位置复选框。



点击添加新位置。



在“Microsoft Office受信任位置”对话框中，使用其中一个   以下方法：



在“路径”框中，键入要添加的位置的完整路径。



单击“浏览”浏览到该位置。





指定新受信任位置的子文件夹也应该是   信任，选择此位置的子文件夹也是可信任的检查   框。



（可选）在“说明”框中，键入受信任的说明   位置。


（Source）

Answer 2

另请注意;产品的嵌入式功能可以打开初始表单，因此不需要自动执行程序。查看“选项”“当前数据库”

宏错误2001 Autoexec访问宏

2 个答案:

指定受信任位置（Access 2013＆amp; 2016）