Accessのリンクテーブル

質問

すみません、教えてください。
Accessで複数端末から一つのMDBにデータ登録をさせる為に、VBAでツールを作っています。以下のように記述をして
いるのですが、MDBを閉じるたびに、リンク先のDBを認識しなくなってしまいます。テーブルでリンクを貼りなおすとまた動くようになるのですが、どうしたらリンクを貼りなおせずにできるようになるのか、どなたか教えてください。どうかお願いいたします。

Dim LinkDB as Database
Dim RST AS Recordset

Set LinkDB = WorkSpaces(0).OpenDatabase("リンク先のDBの名前")
Set RST = LinkDB.OpenRecordset("テーブル名",DbOpenTable)

回答No.2

ARC · ベストアンサー

パス名は正しく設定していますか？

Set LinkDB = Workspaces(0).OpenDatabase("\\Server1\...\Database.MDB", False)
のような形にすると、うまく動くとかもしれません。

また、Tableタイプのレコードセットは、EditやUpdateを行っている間、該当のレコード及び付近の2Kバイトの領域をロックします。
もしかしたら、他のユーザーがロックしているレコードにアクセスしようとして、処理が失敗するのかもしれません。

お礼

回答頂きまして有難うございました。
パス名の設定でうまくいきました。
そのあとのレコードロックも発生したので非常に助かりました。回答して頂いた御二方、本当に有難うございました。

回答No.1

fumin

Dim MYWS As Workspace
Dim ANOTHERDB As Database

Set MYWS = DBEngine(0)
Set ANOTHERDB = MYWS.OpenDatabase("リンク先のＤＢの名前")

としてみてください。
私の行っている処理ではRecordsetオブジェクトは使っていませんが、上記の記述の後、TabledefのDeleteをしています。何事もなく毎週動いています。