访问和访问模块代码中的关闭模式窗体

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

这是对迈克尔·托德回复江东软评论的相当长的补充或评论。

与其选择启用内容,不如检查启动选项(文件->选项->当前数据库->显示窗体)或(工具->启动->显示窗体)),并在记下注释后删除窗体名称,并确保选中“允许完整菜单(同一页)”。您也可以按alt+f11显示代码,并检查启动代码,最后,查看是否有自动运行宏并重命名它。

编辑重新评论

您不必打开一个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