#240
テーブルをリンクしている場合、リンク先データベースファイルの削除や名前の変更、あるいはネットワークで使っている場合には、ネットワークやサーバーへの接続のトラブルなどによって、リンクテーブルを参照できない場合があります。そのようなときに警告メッセージを表示させる方法です。
それには、起動時に初期表示するフォームの"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
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
