打开弹出窗体

Question

我正在使用Windows 7企业版32位操作系统和Mi​​crosoft Access 365 ProPlus。

我打开一个表单，然后当我双击某个字段时，它会触发一个打开另一个表单的事件过程。此表单是弹出窗体（非模型）单一表单默认视图。在过去一年左右的时间里，一切都很好用，出于某种原因，当我以这种方式打开表单时，访问程序崩溃了。

我可以通过从搜索表单对话框中选择它来打开表单。 我找到的工作是我需要打开表单然后在设计视图中编辑它。在表单中进行一些小改动并保存。然后在表单视图中查看它并关闭表单。完成所有这些后，我可以正常运行我的程序，一切正常，直到我关闭访问并重新打开它。然后我需要重新做一遍。

我已经多次运行了小型和修复工具。

我的代码非常简单：

On Error GoTo Err_Command18_Click

Dim intBuildingId As Integer
Dim StDocName As String

intBuildingId = Form_Frm_Buildings.Building_ID
StDocName = "Frm_Buildings_To_Frm_Manager"

Me.Refresh
DoCmd.OpenForm StDocName
Forms(StDocName).Recordset.FindFirst "Building_Id = " & intBuildingId

Err_Command18_Click:
Exit Sub

任何帮助将不胜感激，并提前感谢！

标记