ساخت همزمان دو یا چند جدول با دستور CurrentDb.CreateTableDef

سلام خدمت دوستان
ممنون میشم دستور زیر را برای ساخت همزمان دو یا چند جدول از فایل BackEnd با نام جدول های موجود در فایل BackEnd، ویرایش کنید :

Dim pth As String
Dim TDF As TableDef
"pth = CurrentProject.Path & "\Sample_be.accdb


Set TDF = CurrentDb.CreateTableDef("tbl")

"TDF.SourceTableName = "tbl
"" & TDF.Connect = "MS Access;DATABASE=" & pth
CurrentDb.TableDefs.Append TDF
CurrentDb.TableDefs.Refresh

کسی از دوستان پاسخ نمیده؟

سلام و روز خوش

خب برای حالت های ساده (فیلدهایی که calculated یا multi-value نباشن)
شاید یک لوپ روی tabledefs
و درون اون یک لوپ روی fields پاسخگو باشه،
ولی به همین سادگی نیست.

شما باید ایندکس ها و فیلدهای کمپلکس و همچنین ریلیشن ها رو هم در نظر بگیرین و یک کد درست و کارا در عمل پیچیده میشه.

اون ساده رو اگر بخواین میتونم راهنمایی کنم.