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

[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 بواسطه سعيد صواب

[ابو جودي]

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

[سعيد صواب]

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

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

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

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

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

[ابو جودي]

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

[محمد سلامة]

  في 19‏/3‏/2016 at 18:09, ابا جودى said:

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

Expand  

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

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

[ابو جودي]

  في 19‏/3‏/2016 at 18:59, محمد سلامة said:

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

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

Expand  

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

 

[سعيد صواب]

  في 19‏/3‏/2016 at 18:59, محمد سلامة said:

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

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

Expand  

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

بالتوفيق

[jandbi]

  في 19‏/3‏/2016 at 16:45, سعيد صواب 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

بالتوفيق

Expand  

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

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

CurrentDb.QueryDefs.Count

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

  في 19‏/3‏/2016 at 18:09, ابا جودى said:

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

Expand  

اضحك الله سنك 

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

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

وجدت الحل 

CurrentData.AllQueries.Count

 

[jandbi]

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

[محمد سلامة]

  في 19‏/3‏/2016 at 20:09, jandbi said:

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

Expand  

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

  في 19‏/3‏/2016 at 19:08, سعيد صواب said:

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

بالتوفيق

Expand  

استاذ سعيد.. 

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

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

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

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

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

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

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

 

[سعيد صواب]

  في 19‏/3‏/2016 at 21:39, محمد سلامة said:

 

استاذ سعيد.. 

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

Expand  

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

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

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

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

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

[jandbi]

  في 19‏/3‏/2016 at 21:39, محمد سلامة said:

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

Expand  

 

  في 19‏/3‏/2016 at 19:33, jandbi said:

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

Expand  

[سعيد صواب]

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

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

السؤال

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

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

بالتوفيق

 

[jandbi]

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

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

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

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

[سعيد صواب]

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

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

بالتوفيق

[sameh_awad]

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

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