他のデータベースに接続する方法

accessでカレントデータベースではなく、他のデータベース（他のmdbファイル）にDAOにより接続できます。

Sub sample()
  Dim ws As Workspace
  Set ws = DBEngine.Workspaces(0)
  Dim db As DAO.Database
  Set db = ws.OpenDatabase(“パスを付けた他のデータベース名”)
  Debug.Print “他のデータベースに接続しました。”

  db.Close
  Set db = Nothing
  ws.Close
  Set ws = Nothing
  Debug.Print “他のデータベースを切断しました。”
End Sub

関連投稿: