سلام
خدایی داری چی میسازی دوست عزیز داری یه نوع اکسپلورر یا فایل منیجر میسازی ؟
تاپیکها و سوالاتت عجیبه و آدم کنجکاو میکنه آخرش یه ویندوز جدید تو اکسس درست میکنی
بهرحال این کد برای تعداد اشیا هست نمیدونستم میخای تو تکست باکس بذاری یا مسیج باکس ولی اگه تکس باکس هست کفیه جلو هر کدوم اسم تکس باکست رو بنویسی اینم بگم جدول رو تعداد همه جمع میکنه حتی جدولای خود اکسس که مخفی هستن و کویری هم همه بجز اونایی که تو قیمت کویری هستند اونایی که پشت فرمها یا گزارشات میکشی عم حساب میکنه و بقیه عینا همون که خدت تو برنامه داری
'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