سلام خدمت دوستان
ممنون میشم دستور زیر را برای ساخت همزمان دو یا چند جدول از فایل 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 پاسخگو باشه،
ولی به همین سادگی نیست.
شما باید ایندکس ها و فیلدهای کمپلکس و همچنین ریلیشن ها رو هم در نظر بگیرین و یک کد درست و کارا در عمل پیچیده میشه.
اون ساده رو اگر بخواین میتونم راهنمایی کنم.
سلام خدمت شما جناب mazoolagh
ممنون میشم اگر راهی داره همین دستور را ویرایش کنید. مطابق عکس زیر قسمت هایی که کادر کشیدم بجای یک جدول دو یا چند جدول قرار بگیره
Screenshot_20250831-120037_CM Browser.jpg
سلام دوباره
کافی هست همین رو در یک function یا sub بریزین و tbl رو بعنوان آرگومان بهش پاس کنین.
ممنون میشم اگر ایرادی نداره یه نمونه بزارید.
جناب mazoolagh
سلام
function یا sub که فرمودین، میشه نمونه بزارید؟
ممنونم
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول