Question

我有一个数据库，我发送给我公司的各个用户。他们大多数标准化的工作环境与我自己的工作环境相匹配，但也有例外。

下面提供的代码，使用AutoExec宏调用，在我自己的机器上完美运行。但是，对于某些用户，它会生成此错误消息：

运行时错误3027：无法更新。数据库或对象是只读的。

调试器去的行是......

CurrentDb.Properties("StartUpShowDBWindow") = False 'Turn OFF Navigation pane

为什么会发生这种情况，我该如何避免呢？

我无法继续或解决此错误，因为我无法重现它。因此，我向大家提问。

这是我的代码：

Public Function StartUpDB()

'Disable regular close button
Call AccessCloseButtonEnabled(False)

'Set Variable used in rest of script
sUSER = modGLOBAL.fncUserName

'Enable or disable the Admin tab
If IsAdmin = True Then
'   ADMIN SETUP STARTS HERE
   CurrentDb.Properties("StartUpShowDBWindow") = True 'Turn ON Navigation pane
   CurrentDb.Properties("AllowFullMenus") = True 'Turn ON full menu
Else
'   BU SETUP STARTS HERE
'   CurrentDb.Properties("StartUpShowDBWindow") = False 'Turn OFF Navigation pane
'   CurrentDb.Properties("AllowFullMenus") = False 'Turn OFF full menu
End If

DoCmd.OpenForm "Hidden", acNormal, , , , acHidden 'Start hidden form with timer

End Function

仅对某些用户发生运行时错误

0 个答案: