他ファイルのテーブルの情報を取得したい

質問

アクセス　DCount関数で他のファイルのテーブルの件数を取得することは不可能でしょうか？

ファイル１.mdbとファイル２mdbがあり、
ファイル２mdbには、

テーブル名
フィールド：a
と言うデータがあります。
ファイル１.mdbにはテーブルはありません。

ファイル１.mdbのＶＢＡで
ファイル２.mdbのテーブル名のレコード件数を取りたいのですが
不可能でしょうか？

ファイル１.mdbのＶＢＥで
Sub 関数で件数を取得()
MsgBox DCount("[テーブル名]", "a")
End Sub

とやってもエラーになります。この関数にファイルを指定する部分もありません。

エラー内容は
---------------------------------------------------------
実行時エラー3078
入力テーブルまたはクエリーが見つかりませんでした。
　　　　　　　そのテーブル・クエリーが存在するか確認して下さい。
---------------------------------------------------------
です。

ADOを使うしかないのでしょうか？できればＡＤＯは使いたくありません。
アドバイスよろしくお願いします。

回答No.2

nicotinism · ベストアンサー

これだと？
Sub dcountX()
Dim App As Access.Application
Set App = New Access.Application
App.OpenCurrentDatabase "d:\db\ファイル２.mdb"
MsgBox App.DCount("*", "テーブル名", "フィールド名 like '*" & "春" & "*'")
MsgBox App.DCount("*", "テーブル名")
App.CloseCurrentDatabase: Set App = Nothing
End Sub

>できればＡＤＯは使いたくありません
微妙な所です(^^ゞ

お礼

すごいです！
ありがとうございました。

回答No.1

bin-chan

「リンクテーブル」で、自ＭＤＢ以外のテーブルを参照させれば可能です。

ファイル１.mdbのオブジェクト[テーブル]で、ファイル２.mdbのテーブルaを参照させます。
実体はファイル２.mdbですが、あたかもファイル１.mdbにテーブルaがあるように利用できます。
アイコンに矢印が付くので、見分け可能。
ただしファイルのパスが変更されてしまうと、リンク情報を更新する必要があります。

お礼

その手がありますね！
ありがとうございました。