#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'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved