Private Sub リンク更新_Click()
On Error GoTo Err_リンク更新
If MsgBox("リンクテーブルを更新します。よろしいですか?", vbYesNo + vbExclamation + vbDefaultButton2, "更新") = vbYes Then
Dim db As Database, tdfLinked As TableDef
Dim TableName As String, ErrName As String
Set db = CurrentDb
ErrName = ""
TableName = "table1" 'テーブル名を指定する
Set tdfLinked = db.TableDefs(TableName)
tdfLinked.Connect = ";DATABASEdb1.mdb"
tdfLinked.RefreshLink
Set db = Nothing
If Len(ErrName) > 0 Then
MsgBox ErrName & "のテーブルは更新できませんでした。"
Else
MsgBox "終了しました。", , "確認"
End If
End If
Exit Sub
Err_リンク更新:
ErrName = ErrName & " " & TableName
Resume Next
End Sub