有一个Access mdb文档，打开就出现窗体，如何进入Access软件界面手动修改数据表的一些记录？

如题，按shift键双击打开也没用。
这个mdb文档原来是Access 2003做的，我现在用2007来打开。
我搜索到以下的代码，但是不知道如何运用这些代码，能详细点吗？


可以通过ChangeProperty实现。
Private Sub cmd解锁_Click()
    If Me.txtPath = "" Or IsNull(Me.txtPath) Then
        MsgBox "请选择文件！", vbInformation, "安全管理"
        Exit Sub
    End If
    Const DB_Boolean As Long = 1
    
    ChangeProperty "StartupShowDBWindow", DB_Boolean, True
    ChangeProperty "StartupShowStatusBar", DB_Boolean, True
    ChangeProperty "AllowShortcutMenus", DB_Boolean, True
    ChangeProperty "AllowToolbarChanges", DB_Boolean, True
    ChangeProperty "AllowBuiltinToolbars", DB_Boolean, True
    ChangeProperty "AllowFullMenus", DB_Boolean, True
    ChangeProperty "AllowBreakIntoCode", DB_Boolean, True
    ChangeProperty "AllowSpecialKeys", DB_Boolean, True
    ChangeProperty "AllowBypassKey", DB_Boolean, True
    
    MsgBox "解锁成功！", vbInformation, "安全管理"
    Me.txtPath = ""
End Sub


Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    
    Dim dbs As DAO.Database, prp As Variant
    Const conPropNotFoundError = 3270
    On Error GoTo myHandle
    Set dbs = DBEngine(0).OpenDatabase(Me.txtPath)
    
    'Set dbs = CurrentDb
    
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
myHandle:
    If Err.Number = 3024 Then
        MsgBox "路径输入不正确！", vbInformation, "安全管理"
    Else
        MsgBox Err.Number & Err.Description
    End If
    
End Function

7 个解决方案

#1

1 启动ACCESS ，不打开任何文件
2 工具-》宏-》Visual Basic 编辑器 VB编辑器打开
3 切换回ACCESS
4 打开你的mdb
5 切换回VB编辑器
6 点击 运行-》设计模式（或者中断）
回到ACCESS就可能修改数据库中数据了，

#2

引用 1 楼 mlqxj35674 的回复:

1 启动ACCESS ，不打开任何文件
2 工具-》宏-》Visual Basic 编辑器 VB编辑器打开
3 切换回ACCESS
4 打开你的mdb
5 切换回VB编辑器
6 点击 运行-》设计模式（或者中断）
回到ACCESS就可能修改数据库中数据了，

启动ACCESS ，不打开或新建任何文件，进入VB编辑器，这时无法新建或导入上面的代码亚？

#3

启动ACCESS ，不打开或新建任何文件，进入VB编辑器，这时无法新建或导入上面的代码亚？
你能不能先读完再回贴，刚读到2，就开始回了，
我写的是
1 。。。。。。
2 。。。。。。
3 切换回ACCESS。。。。
4 。。。。。。
5。。。。。。
6 .........、

#4

引用 3 楼 mlqxj35674 的回复:

启动ACCESS ，不打开或新建任何文件，进入VB编辑器，这时无法新建或导入上面的代码亚？

你能不能先读完再回贴，刚读到2，就开始回了，
我写的是
1 。。。。。。
2 。。。。。。
3 切换回ACCESS。。。。
4 。。。。。。
5。。。。。。
6 .........、

我都看了，也试了，是不是不需要一楼的代码？

#5

随便创建一个新的空ACCESS，然后把这段VBA代码复制到模块中或者某个按钮事件中，然后执行。

#6

引用 5 楼 ACMAIN_CHM 的回复:

随便创建一个新的空ACCESS，然后把这段VBA代码复制到模块中或者某个按钮事件中，然后执行。

我试了，它说“无效使用Me关键字”。

#7