ACCESSでODBCリンクテーブルに接続できるか判定する方法です。
システム起動時に予め対象テーブルが存在しない、またはODBC接続に失敗していないかチェックをしたい時に利用します。
チェック方法は、リンクテーブルを開いてエラーになるかどうかで判断。
以下サンプルコード
Private Sub Form_Open(Cancel As Integer)
On Error GoTo ErrorHandler
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim result As String
Set db = CurrentDb
On Error GoTo ErrorHandler
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim result As String
Set db = CurrentDb
‘全テーブルをループしてODBC接続しているテーブルのみチェック
For Each tdf In db.TableDefs
If tdf.Attributes And dbAttachedODBC Then
result = DFirst(“ID”, tdf.Name)
End If
Next tdf
Exit Sub
ErrorHandler:
MsgBox “[No:” & Err.Number & “]” & Err.Description, vbCritical
End Sub