ساخت همزمان دو یا چند جدول با دستور 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
ممنون میشم اگر راهی داره همین دستور را ویرایش کنید. مطابق عکس زیر قسمت هایی که کادر کشیدم بجای یک جدول دو یا چند جدول قرار بگیره
Screenshot_20250831-120037_CM Browser.jpg

[mazoolagh]

سلام دوباره

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

[Masoud.eh]

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

[Masoud.eh]

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

[Masoud.eh]

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

[mazoolagh]

واقعا نمیدونم منظور شما از "نمونه" چی هست،
ولی اگر نمیدونین چجوری sub/function بنویسین این یک نمونه :

SUB SUB_NAME(pth As String, tbl_name as String)

    Dim TDF As TableDef

    Set TDF = CurrentDb.CreateTableDef(tbl_name)

    TDF.SourceTableName = tbl_name

    TDF.Connect = "MS Access;DATABASE=" & pth

    CurrentDb.TableDefs.Append TDF

    CurrentDb.TableDefs.Refresh

END SUB

[Masoud.eh]

سلام
جناب mazoolagh نمونه ای که گذاشتید همون دستوری هستش که توی پست اول گذاشتم
مشکل اینه که این sub فقط یک جدول را فراخوانی میکنه، من میخوام که همزمان دو یا چند جدول همزمان فراخوانی بشه. (کادر قرمز در تصویر)
Untitled.jpg

[mazoolagh]

سلام دوباره

بنظر میاد شما به اکسس و بخصوص مفاهیم اولیه برنامه نویسی تسلط کافی ندارین،
اگر اشتباه میکنم و اینگونه نیست تاپیک زیر رو ببینین تا روش کار دستتون بیاد:

آموزش: لیست همه جدول‌ها / کوئری‌ها و فیلدهای آنها List of All Tables/Queries and their Fields