تبدیل جداول لینکی به Local (تمام جداول با یک دستور ) " convert table link to local"

[hamid-nice]

سلام به همه دوستان

در یک فایل اکسس چند جدول دارم که لینک شده اند به جداول در یک فایل دیگر
می خوام از ایت ها را از حالت لینک دار به local تبدیل کنم

در حال حاضر از دستور زیر استفاده می کنم

DoCmd.SelectObject acTable, "Table12", True
DoCmd.RunCommand acCmdConvertLinkedTableToLocal

و... به همین ترتیب برای بقیه جداول


که مجبورم برای هر جدولی این دستور را تکرار کنم

چطور میتونم در این دستور یا هر دستور دیگر فقط یک بار این دستور را بنویسم اما برای همه جداول ؟


با تشکر

[Abbas Amiri]

سلام


Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If tdf.Connect <> "" Then
DoCmd.SelectObject acTable, tdf.Name, True
DoCmd.RunCommand acCmdConvertLinkedTableToLocal
End If
Next