Printable View
سلام خدمت دوستان
ممنون میشم دستور زیر را برای ساخت همزمان دو یا چند جدول از فایل 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
ممنون میشم اگر راهی داره همین دستور را ویرایش کنید. مطابق عکس زیر قسمت هایی که کادر کشیدم بجای یک جدول دو یا چند جدول قرار بگیره
ضمیمه 156575
سلام دوباره
کافی هست همین رو در یک function یا sub بریزین و tbl رو بعنوان آرگومان بهش پاس کنین.
ممنون میشم اگر ایرادی نداره یه نمونه بزارید.
جناب mazoolagh
سلام
function یا sub که فرمودین، میشه نمونه بزارید؟
ممنونم
اساتید
کسی جواب سوال ما رو نمیده؟؟
واقعا نمیدونم منظور شما از "نمونه" چی هست،
ولی اگر نمیدونین چجوری 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
سلام
جناب mazoolagh نمونه ای که گذاشتید همون دستوری هستش که توی پست اول گذاشتم
مشکل اینه که این sub فقط یک جدول را فراخوانی میکنه، من میخوام که همزمان دو یا چند جدول همزمان فراخوانی بشه. (کادر قرمز در تصویر)
ضمیمه 156585
سلام دوباره
بنظر میاد شما به اکسس و بخصوص مفاهیم اولیه برنامه نویسی تسلط کافی ندارین،
اگر اشتباه میکنم و اینگونه نیست تاپیک زیر رو ببینین تا روش کار دستتون بیاد:
آموزش: لیست همه جدول‌ها / کوئری‌ها و فیلدهای آنها List of All Tables/Queries and their Fields