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

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

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

[Masoud.eh]

سلام خدمت شما جناب mazoolagh
ممنون میشم اگر راهی داره همین دستور را ویرایش کنید. مطابق عکس زیر قسمت هایی که کادر کشیدم بجای یک جدول دو یا چند جدول قرار بگیره
156575

[mazoolagh]

سلام دوباره

کافی هست همین رو در یک function یا sub بریزین و tbl رو بعنوان آرگومان بهش پاس کنین.

[Masoud.eh]

ممنون میشم اگر ایرادی نداره یه نمونه بزارید.

[Masoud.eh]

جناب mazoolagh
سلام
function یا sub که فرمودین، میشه نمونه بزارید؟
ممنونم