0

我有我的主要人员表格 frmPerson，我在列表框中列出了人员的联系人（电话、电子邮件..）。ADD BUTTON 允许用户添加新联系人。该按钮在 IDPerson 设置为我的 Person 表单的当前 ID 的新记录上打开 Contact 的表单 frmContacts。代码如下：

Private Sub cmdAddContact_Click()
    Dim pId As String
        pId = Me.IDPerson
        If Me.Dirty Then Me.Dirty = False
        DoCmd.OpenForm "frmContacts"
        DoCmd.GoToRecord , , acNewRec
        Forms!frmContacts.Person_ID = pId
End Sub

此代码在我的计算机和其他一些用户的计算机上运行良好，但对于某些用户，它会阻止应用程序，他们必须使用 TaskManager 停止访问。数据在后端，前端在用户的计算机上。我们都使用 Office 365。大多数用户使用的是 Windows 10，一个用户使用的是 Windows 7。知道可能导致问题的原因吗？他们可以添加一个新人 - 没问题，但是当他们单击“添加联系人”按钮时，没有任何反应并且应用程序被阻止。我现在制作了一个非常简单的程序，只有两个表格，一个表格和一个查询。我能够重现该问题并按照 Applecore 的建议逐步执行代码（谢谢），并发现它在打开 frmContact 时崩溃，因为我们有以下代码：

Private Sub Form_Current()
    On Error GoTo err_handle
    Me.NavigationButtons = False
    Exit Sub
err_handle:
MsgBox Err.Number & Err.Description & Err.Source, vbOKOnly
Exit Sub
End Sub

仍然不明白为什么应用程序阻塞而不是处理错误，也不明白为什么在某些计算机上它工作正常而其他计算机崩溃......

...并且...准确地说：我的 MsAccess 设置为英语，其他开发人员使用法语 MsAccess，大多数用户使用意大利语。

4

0 回答 0