ｱｸｾｽ2010について

VBAでリンク先ﾃｰﾌﾞﾙ更新するように設定。その後に、ﾃｰﾌﾞﾙを複数削除したところ実行時ｴﾗｰ：3011となりました。
”ｵﾌﾞｼﾞｪｸﾄ(削除したﾃｰﾌﾞﾙ）が見つかりませんでした。ｵﾌﾞｼﾞｪｸﾄが存在していること、名前やパス名が正しいことを確認してください。削除したﾃｰﾌﾞﾙがローカルｵﾌﾞｼﾞｪｸﾄでない場合は、ﾈｯﾄﾜｰｸの接続を確認するか、ｻｰﾊﾞｰ管理者に問い合わせください。”と表示されます。

あまり詳しくない状態で操作していますので、質問したいのですが上手く説明できません。
下記のように設定しております。
どなたか原因を教えてください。
宜しくお願いします。

************************************************
Dim db As Database, tb As TableDef
Set db = CurrentDb
'ﾃｰﾌﾞﾙｵﾌﾞｼﾞｪｸﾄを列挙
For Each tb In db.TableDefs
'ﾘﾝｸﾃｰﾌﾞﾙだけを処理
If tb.Connect <> "" Then
tb.Connect = ";database=c:\ﾌｫﾙﾀﾞ\管理表.mdb;TABLE=" & tb.Name
tb.RefreshLink 'ﾘﾝｸ情報の更新
End If
Next tb
End Sub

No.1 回答者： y504 回答日時： 2017/06/20 17:26

リンクテーブルの接続先を変更しているのに存在しないテーブルが指定されているからエラーになっている。

管理表.mdbにあるテーブルを削除したけれど
このプログラムが入っているファイルのリンクテーブルを削除していないのでは？

この回答へのお礼

お礼が遅くなりすいません。
リンクテーブルを削除しておりませんでした。削除後、ｴﾗｰ発生せずに起動できました。
ありがとうございました。

お礼日時：2017/07/05 10:46