ورود

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


Masoud.eh
چهارشنبه 05 شهریور 1404, 11:32 صبح
سلام خدمت دوستان
ممنون میشم دستور زیر را برای ساخت همزمان دو یا چند جدول از فایل 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
چهارشنبه 05 شهریور 1404, 23:00 عصر
کسی از دوستان پاسخ نمیده؟
mazoolagh
پنج شنبه 06 شهریور 1404, 10:27 صبح
سلام و روز خوش

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

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

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