我在 MS Access 上編碼有問題。
這是我擁有的代碼，簡單的代碼，用于控制匯入資料的按鈕（從 MS Access 中的表單到另一個 MS Access DB）。宏位于受密碼保護的資料庫中。經過幾次測驗后，我無法找到打開和填充密碼的好腳本。pw 必須包含在腳本中才能進行自動處理。（用戶名事物使用公共函式正確排序）。
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
你能幫我嗎？多謝你們。
uj5u.com熱心網友回復：
嘗試以下
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/451422.html