VBA経由で別のMS Access 2010データベース内から現在開かれているMS Access 2010データベースに書き込む方法

Question

対象のデータベースが現在開いていない限り、リモートの.accdbファイルに接続してコンテンツをテーブルに書き込むことができますしかし、私は開いている間もそのデータベースに書き込むことを余儀なくされています。両方とも開いている状態で、database1.tableAからdatabase2.tableAへ手動でコピー＆ペーストすると正常に動作します。しかし、なぜVBAは仕事をやっていないのですか？ここで私はこれまで試したものです：

ウェイ1：（ドイツ語からの翻訳）

... 
Dim dbTarget As Database 

Set dbTarget = DBEngine.Workspaces(0).OpenDatabase("X:\path\to\file.accdb") 
... 

エラー：

... failed with error (3029): No valid account name or no valid password. 

ウェイ2：

... 
Dim wrkDev As Workspace 
Dim dbTarget As Database 

Set wrkDev = CreateWorkspace("", "Admin", "", dbUseJet) ' adopted from microsoft docs 

Set dbTarget = wrkDev.OpenDatabase("X:\path\to\file.accdb", True) 
... 

エラー（ドイツ語から翻訳されたもの）：

... failed with error (3029): No valid account name or no valid password. 

なぜそれを修正するのですか？

Answer 1

Accessでデータベースとデータベース接続を開く方法はいくつかあります。あなたはいくつかを共有しましたが、他の人も試みることができます。私はあなたが挿入を行うためにDAOレコードセットを使用していると仮定しています。

を開き、別のAccessアプリケーションでデータベース、およびデータベースオブジェクト

Dim A As New Access.Application 
A.OpenCurrentDatabase "X:\path\to\file.accdb" 
Dim db As Database 
Set db = A.CurrentDb() 

オープンFROM句で文の中でSQLを使用してリモート・データベース上のレコードへの参照を作成

Dim rs As Recordset 
Set rs = CurrentDb.OpenRecordset ("SELECT * FROM MyTable IN ""X:\path\to\file.accdb""")