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

[Masoud.eh]

سلام خدمت دوستان
ممنون میشم دستور زیر را برای ساخت همزمان دو یا چند جدول از فایل 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

[Masoud.eh]

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

[mazoolagh]

سلام و روز خوش

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

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

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