بدست آوردن تعداد اشیاء

[محمد رضا بهبودی]

با سلام و احترام
می خواستم بدونم از چه طریقی می توانم تعداد اشیاء موجود در یک بانک اطلاعاتی را بدست بیاورم . مثلا چند تا جدول و چند تا فرم و ...
لطفا در صورت امکان راهنمائی بفرمایید .ممنون

[ariayekta]

سلام
خدایی داری چی میسازی دوست عزیز داری یه نوع اکسپلورر یا فایل منیجر میسازی ؟
تاپیکها و سوالاتت عجیبه و آدم کنجکاو میکنه آخرش یه ویندوز جدید تو اکسس درست میکنی
بهرحال این کد برای تعداد اشیا هست نمیدونستم میخای تو تکست باکس بذاری یا مسیج باکس ولی اگه تکس باکس هست کفیه جلو هر کدوم اسم تکس باکست رو بنویسی اینم بگم جدول رو تعداد همه جمع میکنه حتی جدولای خود اکسس که مخفی هستن و کویری هم همه بجز اونایی که تو قیمت کویری هستند اونایی که پشت فرمها یا گزارشات میکشی عم حساب میکنه و بقیه عینا همون که خدت تو برنامه داری


'Number of Tables
Text201 = CurrentData.AllTables.Count
'Number of Queries
Text202 = CurrentDb.QueryDefs.Count
'Number of Forms
Text203 = CurrentProject.AllForms.Count
'Number of Macros
Text204 = CurrentProject.AllMacros.Count
'Number of Reports
Text205 = CurrentProject.AllReports.Count
'Number of Modules
Text206 = CurrentProject.AllModules.Count 'does not include object modules

[محمد رضا بهبودی]

با سلام و احترام خدمت شما استاد گرانقدر
ممنون از راهنمائی جنابعالی
من در حال ساخت یک برنامه برای ارزیابی خدمات پیمانکاران هستم که انشاءالله وقتی تکمیل شد حتما در همین سایت به صورت کاملا رایگان بارگذاری خواهم کرد تا سایر دوستان نیز استفاده کنند . اراداتمند و تشکر مجدد