回答編集履歴
1
修正
answer
CHANGED
|
@@ -5,7 +5,7 @@
|
|
|
5
5
|
Dim ltbnm As String
|
|
6
6
|
ltbnm = "hoge"
|
|
7
7
|
Set ltb = CurrentDb.TableDefs(ltbnm)
|
|
8
|
-
If .Attributes And dbAttachedTable Then
|
|
8
|
+
If ltb.Attributes And dbAttachedTable Then
|
|
9
9
|
ltb.Connect = ";DATABASE=" & fpath
|
|
10
10
|
ltb.RefreshLink
|
|
11
11
|
MsgBox fpath & "にリンク先を変更しました"
|