كيف أعرف عدد محتويات قاعدة البيانات ؟

[jandbi]

السلام عليكم 

ماهي طريقة معرفة عدد الجداول والنماذج والتقارير والاستعلامات و و و .. ( محتويات قاعدة البيانات ) ؟ وإظهارها في نموذج ..

يعني يظهر لي عدد النماذج : 19

عدد التقارير : 30

وهكذا ..

[سعيد صواب]

حياك الله 

وجدت لك هذه الطريقة جرب ووافنا بالنتائج

'Number of Tables
CurrentDb.TableDefs.Count 'includes system tables
'Number of Queries
CurrentDb.QueryDefs.Count
'Number of Forms
Currentproject.AllForms.Count
'Number of Macros
Currentproject.AllMacros.Count
'Number of Reports
Currentproject.AllReports.Count
'Number of Modules
Currentproject.AllModules.Count 'does not include object modules

بالتوفيق

[سعيد صواب]

هنا اضافة

بالنسبة للجداول السطر الأول سيظهر لك عدد الجداول مع جداول النظام 

استخدم هذا الكود ليظهر لك عدد الجداول بدون جداول النظام

  aa مربع نص في النموذج مثلا لنظهر النتيجة به

Dim tdf As TableDef
Dim i As Integer
For Each tdf In CurrentDb.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then i = i + 1
Next
Me.aa = i

بالتوفيق

تم تعديل مارس 19, 2016 بواسطه سعيد صواب

[ابو جودي]

هههههههه 
وممكن انم تعدهم وتحسبهم 
لكن لى سؤال ما الفائدة من هذا المطلب الغريب

[سعيد صواب]

حياك الله استاذ محمد

ههههه احيان فعلا تكون النماذج والتقارير كثيرة 

نترك الجواب للسائل الكريم لأي غرض سوف يستخدمها 

ونورتنا بمرورك

بالتوفيق للجميع

[ابو جودي]

اولا للايضاح لم اضحك مستهزئا 
ولكن اضحك مستغربا من السؤال فعلا

[محمد سلامة]

47 دقائق مضت, ابا جودى said:

هههههههه 
وممكن انم تعدهم وتحسبهم 
لكن لى سؤال ما الفائدة من هذا المطلب الغريب

ممكن تكون طريقة للحماية.. بحيث اذا انحذف اي عنصر يظهر

مجرد استنتاج!!

[ابو جودي]

الان, محمد سلامة said:

ممكن تكون طريقة للحماية.. بحيث اذا انحذف اي عنصر يظهر

مجرد استنتاج!!

طيب ايه الفائده منها فى الحماية اعتقد بالعكس الاخفاء للحماية  اقرب
ولكن من يعرف كل الحكاية اخونا السائل الكريم
وفى انتظار رده فى كل الاحوال سوف نستفيد معلومات جديده

 

[سعيد صواب]

8 دقائق مضت, محمد سلامة said:

ممكن تكون طريقة للحماية.. بحيث اذا انحذف اي عنصر يظهر

مجرد استنتاج!!

وهل نستطيع الحذف من القاعدة بعد النشر ؟

بالتوفيق

[jandbi]

2 ساعات مضت, سعيد صواب said:

حياك الله 

وجدت لك هذه الطريقة جرب ووافنا بالنتائج

'Number of Tables
CurrentDb.TableDefs.Count 'includes system tables
'Number of Queries
CurrentDb.QueryDefs.Count
'Number of Forms
Currentproject.AllForms.Count
'Number of Macros
Currentproject.AllMacros.Count
'Number of Reports
Currentproject.AllReports.Count
'Number of Modules
Currentproject.AllModules.Count 'does not include object modules

بالتوفيق

اشكرك استاذي الكريم سعيد ..

كلها تعمل بشكل سليم الا مجموع الاستعلامات

CurrentDb.QueryDefs.Count

بحيث ان عندي في قاعدة البيانات استعلام واحد .. لكن يظهر في المجموع 267 ؟!!

منذ ساعه, ابا جودى said:

هههههههه 
وممكن انم تعدهم وتحسبهم 
لكن لى سؤال ما الفائدة من هذا المطلب الغريب

اضحك الله سنك 

لي غرض احصائي في برنامجي فاحتاج لمعرفة الاعداد بدون استخدام العد على الاصابع 

وحيث اني بحثت عن هذه المعلومة التي خطرت على بالي في المنتدى ولم أجد شخص قد تطرق لها 

وجدت الحل 

CurrentData.AllQueries.Count

 

[jandbi]

وهذه النتيجة النهائية في البرنامج 

[محمد سلامة]

منذ ساعه, jandbi said:

وهذه النتيجة النهائية في البرنامج 

ايوه برده هاتستفاد ايه لما تعرف؟؟ 

2 ساعات مضت, سعيد صواب said:

وهل نستطيع الحذف من القاعدة بعد النشر ؟

بالتوفيق

استاذ سعيد.. 

طبعا نستطيع الحذف بعد للنشر 

[عبد الفتاح كيرة]

هناك جدول مخفى بقاعدة البيانات به حصر لكل الكائنات الموجودة فيها

يمكنك إظهاره من جزء التنقل

و يمكنك عد الكائنات الموجودة به

ولكل نوع من الكائنات رقم

فيمكن عمل استعلام يعد كل نوع حسب الرقم الخاص به

 

[سعيد صواب]

10 ساعات مضت, محمد سلامة said:

 

استاذ سعيد.. 

طبعا نستطيع الحذف بعد للنشر 

اقصد بالنشر ان القاعدة اصحبحت accde او اي تنسيق غير قابل للتعديل 

اذا كان فيه طريقة استاذ محمد اتمنى مثال لأني جربت مره احذف كائنات من القاعدة ولم اتمكن من ذلك .

ما اعرفه انه لايمكن التعديل او الحذف .

شكرا مرة أخرى .

تم تعديل مارس 20, 2016 بواسطه سعيد صواب

[jandbi]

10 ساعات مضت, محمد سلامة said:

ايوه برده هاتستفاد ايه لما تعرف؟؟ 

 

12 ساعات مضت, jandbi said:

لي غرض احصائي في برنامجي فاحتاج لمعرفة الاعداد بدون استخدام العد على الاصابع 

[سعيد صواب]

حياك الله اخي ... اولا هل اسمك جندبي ام انه لقب 

ودي اناديك باسمك او حتى ابو فلان 

السؤال

اذا لم يكن الامر سرا وترغب في الاحتفاظ به لنفسك ...... فعلا تسائل يطرح قد تفيد به اخوانك .... وبعيد عن العد بالأصابع

ماهو الغرض فعلا ... ومنكم نستفيد ..

بالتوفيق

 

[jandbi]

اهلا اخي سعيد ..

جندبي .. لقب .. ممكن تناديني ابو محمد 

ليس سر والله .. وما اعتقد ان هناك اسرار في العمل في قواعد البيانات وبالاخص اكسيس ونحن نستفيد من بعض هنا ..

واجبت على التساؤل مرتين انها للاحصاء فقط .. وكما رأيت عدد النماذج والتقارير والاستعلامات الضخمة عندي بالبرنامج فأحب ان اتابع هذه التفاصيل وأكون على اطلاع بها ..

[سعيد صواب]

بالتوفيق يبو محمد

ازعجناك بالسؤال هذا ... هههههه

بالتوفيق

[sameh_awad]

هل من الممكن انشاء استعلام يبين اسماء الجداول المتواجدة فى قاعدة البيانات ....و بارك الله فيكم

تم تعديل أبريل 2, 2016 بواسطه sameh_awad