关闭Access中的模态窗体并访问模块代码

Question

我继承了一个Access数据库，用于在SQL中导入一些数据。 MDB 以模态模式打开一个表单：没有可见的 Access 菜单栏或按钮。我可以使用 Visual Studio“数据连接”工具查看表格内容，但看不到模块的代码。

我看过这个问题 这里，但那里的答案并不是我真正需要的。有没有办法强制表单关闭（并访问模块）或提取 VBA 代码？

[编辑] 我正在使用 Access 2007，不确定原始开发人员使用的是什么。

Answer 1

打开数据库时按住 Shift 键。这将阻止它加载正在运行的自动脚本，并允许您访问表、查询和 VBA 脚本。

Answer 2

这是对 Michael Todd 对 edosoft 评论的回复的相当长的补充或评论。

不要选择启用内容，而是检查启动选项（（文件->选项->当前数据库->显示表单）或（工具->启动->显示表单））并删除记下表单的名称，并确保选中“允许完整菜单（同一页）”。您可能还想按 Alt+F11 显示代码，并检查启动代码，最后查看是否有 AutoRun 宏并重命名。

编辑评论

您不必打开 mdb 来更改启动表单，例如，可以使用您希望更改的 mdb 的全名和路径从另一个 mdb 运行此类代码。

Sub SetStartForm(DBFile As String)
Dim prp As Object
Dim db As Database

Const PROPERTY_NOT_FOUND As Integer = 3270

    Set db = OpenDatabase(DBFile)

    db.Properties("StartupForm") = "(none)" 

    If Err.Number > 0 Then
        If Err.Number = PROPERTY_NOT_FOUND Then
            '' Create the new property, but this is not relevant in this case
         End If
    End If

    db.Close
    Set db = Nothing
    Set prp = Nothing
End Sub

Answer 3

按钮关闭功能：

Private sub cmdClose_Click()
     CloseForm(YourFormName)
End sub

---

Public Sub CloseForm(ByVal strFormName As String)
    Dim iCounter As Integer
    For Each frm In Forms
        With frm
            If (.Name = strFormName) Then
                iCounter = iCounter + 1
            End If
        End With
    Next
    If (iCounter > 0) Then
        For i = 1 To iCounter
            DoCmd.Close acForm, strFormName, acSaveNo
        Next
    End If
End Sub