既存リンクテーブルのリンク先をパスワード設定されたmdbに変更する。

全てのリンクテーブルのリンク先を
  データベースパスワード "1234" が設定された 
  C:¥AccessDb¥Source.mdb 

に変更します。
リンクテーブルのリンク情報は DAO.TableDef オブジェクト の Connect プロパティ に保存されています。値の取得と設定が可能です。
設定した値の更新には DAO.TableDef.RefreshLink メソッド を使います。

※既存のリンクテーブルの設定を変更できるのはリンク先のパスだけです。ソーステーブル名は変更できません。
1234及びC:¥AccessDb¥Source.mdb は見本です。実際のパスワード、ファイルパス、mdbファイル名に変更して下さい。

cf1.パスワード設定したmdbにリンクする。
cf2.mdbファイルを開く時にリンクテーブルのリンクを更新する。

※プロシージャ中の \ (バックスラッシュ) は ¥ と同じ意味です。

'Microsoft DAO [x.x] Object Libraryへの参照設定が必要。[x.x]はバージョン。
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef

Set dbs = CurrentDb

For Each tdf In dbs.Tabledefs

  If InStr(1, tdf.Connect, "mdb") Then
     tdf.Connect = "MS Access;PWD=1234;DATABASE=C:\AccessDb\Source.mdb"
     tdf.RefreshLink
   End If

 Next tdf

dbs.Close: Set dbs = Nothing
広告

, , , , ,

  1. コメントする

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト /  変更 )

Google フォト

Google アカウントを使ってコメントしています。 ログアウト /  変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト /  変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト /  変更 )

%s と連携中

%d人のブロガーが「いいね」をつけました。