拆分后访问按钮功能丢失

Question

我创建了一个具有多个菜单表单的访问数据库，其中一些仅链接到其他菜单表单。例如，我有一个主菜单表单，在此表单上我有一个按钮可带您进入 ATL 菜单表单。在此 ATL 菜单表单上，我在属性表的加载事件中有一个事件过程（代码如下所示）；这样做的目的是提示用户输入密码以允许进入，因为我只希望某些用户具有访问权限，并且我不担心有人知道如何规避这种表单保护方法。

我完成了数据库的草稿版本，并决定测试拆分数据库，看看会发生什么问题（如果有）。我遇到的是，此密码保护事件似乎消失或以某种方式被禁用，我不确定为什么会发生这种情况，如何解决它或在拆分之前修复它。我使用这种形式的密码保护的数据库的所有区域都发生了这种情况

仅供参考：我有一个在分割之前制作的数据库备份，下面代码中显示的密码在使用时不会是最终密码。

密码保护的代码是：

Private Sub Form_Load()

Dim PassWord As String
PassWord = InputBox("Enter Password")
If PassWord = "ITRK" Then
' Open Form
Exit Sub
Else
MsgBox ("You are not authorized to open this form, please see Persons Name")
DoCmd.Close acForm, Me.Name
End If

End Sub

我看到其他帖子建议转到新前端的VBA界面，去调试编译数据库。但是我无法选择它，因为它已变暗并且无法选择；请看下图：

任何帮助将不胜感激。如果我还需要任何其他信息来帮助您，请告诉我，我会尽我所能。

亲切的问候，本

Answer 1

我不完全确定问题发生的原因，但我找到了解决我的具体问题的方法。

我遵循的步骤是：

1. 在VBA编辑器中编译VBA代码
2. 压缩并修复数据库
3. 关闭并重新打开数据库
4. 按照之前的拆分流程进行操作

这解决了我的代码丢失问题。在我最初的拆分尝试之前我没有这样做，所以也许这是我错过的必需步骤。

无论如何，我的问题现在已经解决了。

亲切的问候， 本