Access VBA プログラミング集

Last Updated: 2000.12.3

■ Access 97 で Windows の「ファイルを開く」ダイアログを表示する

[ファイル]
OpenFileDialogModule.txt
(version 1.10 / 2000.12.03)

[使い方]
  1. 上記のファイルを開き、内容をクリップボードにコピーします。
  2. データベースを開き、新規モジュールを作成します。
  3. 新規モジュールに、クリップボードの内容を貼り付けます。
  4. モジュール名を OpenFileDialogModule などとして保存します。
  5. フォームのイベントプロシージャなどから呼び出して使用してください。

[使用例]
Dim filename As String
filename = OpenFileDialog("入力元ファイルの指定", "c:\my documents", "", _
    "Microsoft Excel ワークシート (*.xls)|*.xls|すべてのファイル (*.*)|*.*", ".xls")
If filename <> "" Then MsgBox filename

■ Access 97でリンクテーブルのリンク先を自動更新する

[ファイル]
RelinkModule.txt (version 1.10 / 2000.12.02)

[使い方]
  1. 上記のファイルを開き、内容をクリップボードにコピーします。
  2. データベースを開き、新規モジュールを作成します。
  3. 新規モジュールに、クリップボードの内容を貼り付けます。
  4. モジュール名を RelinkModule などとして保存します。
  5. AutoExec という名前のマクロを作成します。
  6. AutoExec の先頭行に「プロシージャの実行」アクションを追加します。
  7. そのプロシージャ名に「 リンク更新() 」と入力します。

[説明]
大規模なシステムを Access で作る時には、 フォームをテーブルから切り離して開発/運用/保守することが重要になります。 このとき、フォームの元となるテーブルは、 外部参照のリンクテーブルになります。 しかしフォームMDBを他のフォルダやコンピュータに移動すると、 リンク先が古いままなので、うまく動かない場合があります。

そんな時は、フォームMDBに「リンク更新モジュール」をインストールしましょう。 フォームMDBを開くたびに、 現在のフォルダからリンク先を探してリンクテーブルを自動更新できるため、 大変便利です。

「リンク更新モジュール」は、リンク先にファイルが存在しないとき、 現在実行中のMDBと同じフォルダに目的のファイルを見つけると、 リンクテーブルのリンク先を書き換えてよいかを確認するダイアログを表示します。

まだ大量に蓄えがあるので、今後暇を見て増強するつもりです。 励ましのお手紙を待っています。

e-mail eviosoft@gmail.com