代码之家 › 专栏 › 技术社区 › edosoft

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

access-vba extract ms-access

1

edosoft · 技术社区 · 16 年前

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

我看过这个 question 在这里,但答案并不是我真正需要的。是否有方法强制窗体关闭(并访问模块)或提取VBA代码?

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

2 回复 | 直到 16 年前

1

2

Michael Todd 16 年前

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

2

0

Fionnuala 16 年前

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

与其选择启用内容,不如检查启动选项(文件->选项->当前数据库->显示窗体)或(工具->启动->显示窗体)),并在记下注释后删除窗体名称,并确保选中“允许完整菜单(同一页)”。您也可以按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