打开受保护的 MS Access 数据库

Question

我在 MS Access 上编码时遇到问题。

这是我的代码，简单的代码，用于控制导入数据的按钮（从 MS Access 中的表单到另一个 MS Access 数据库）。宏位于受密码保护的数据库中。经过几次测试后，我无法找到打开和填充密码的好脚本。 pw 必须包含在脚本中才能进行自动处理。（用户名的东西用 Public 函数正确排序）。

MS Access 365 MSO 16.0 64 位版本 2108

Private Sub Command35_Click()
    Dim AppAccess As Access.Application
    Set AppAccess = GetObject("C:\Users\" & GetUserName & "\Databases\DB Friends.accdb")
    AppAccess.Visible = False
    AppAccess.DoCmd.RunMacro "Mcr_M_NewFriends"
    AppAccess.Quit
    Me.Command35.BackColor = RGB(255, 124, 128)
    MsgBox "New friends data imported"
End Sub

你能帮我解决这个问题吗？谢谢大家。

Answer 1

尝试以下方法

        Private Sub Command35_Click()
        Dim acc As Access.Application
        Dim db As DAO.Database
        Dim strDbName As String
        strDbName = "C:\database Folder\abc.accdb"
        Set acc = New Access.Application
        acc.Visible = False
        acc.OpenCurrentDatabase strDbName, False, "password"
        Set db = acc.CurrentDb() '
        acc.UserControl = True
        acc.DoCmd.RunMacro "Mcr_M_NewFriends"
        acc.Quit
        Me.Command35.BackColor = RGB(255, 124, 128)
        MsgBox "New friends data imported"
   End Sub

打开受保护的 MS Access 数据库

Open a MS Access db protected

passwords

ms-access

vba