#240 リンク先データベースの存在をチェックするには? VBA

テーブルをリンクしている場合、リンク先データベースファイルの削除や名前の変更、あるいはネットワークで使っている場合には、ネットワークやサーバーへの接続のトラブルなどによって、リンクテーブルを参照できない場合があります。そのようなときに警告メッセージを表示させる方法です。

それには、起動時に初期表示するフォームの"Load/読み込み時"イベントプロシージャなどにおいて、次のようなプログラムを記述します。
ダミーで適当なテーブルにアクセスしてみます。もしそのテーブルが正しくリンクされていない場合にはエラーが発生しますので、そのエラーをトラップして警告メッセージを表示させます。
Private Sub Form_Load()

  Dim dummy
  
  On Error GoTo Err_Handler
  
  'リンクチェック用のダミー---ここでエラーが発生する
  DFirst "ID", "社員マスタ"

Exit_Here:
  Exit Sub

Err_Handler:
  If Err.Number = 3024 Then
    Beep
    MsgBox "リンク先のデータベースファイルが見つかりません!", _
            vbOKOnly + vbExclamation
  End If
  Resume Exit_Here:

End Sub
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved