الى الأخ أبو حمود حول موضوع إخفاء الجداول

فكرة إخفاء الجداول المرتبطة فكرة طيبة ومكملة للكود

اليك المثال بعد التعديل :

صفحة الأمثلة

أو انقر هنا لتحميل الملف

الاخ العزيز أبو حمود أشكرك جزيل الشكر ، حيث أن المثال السابق هو ما أريد .

لدي طلب بسيط اذا امكن أريد شرح بسيط للكود في المثال السابق

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

رائع يا أبو حمود .

جزاك الله خير ، فقد كنت بحاجة إلى هذا .

لما بدأت في كتابة هذا الرد وجدت طريقة أفضل من الموجودة في المثال حيث طولتها أكثر من اللازم ، وسأعد المثال قريباً عليها وهي :

للإخفاء بدون الإظهار بمربع الحوار خيارات اكتب :

Dim db As Database

Dim tdf As TableDef

Set db = CurrentDb

For Each tdf In db.TableDefs

If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then

tdf.Attributes = tdf.Attributes + dbHiddenObject

End If

If tdf.Attributes = 1073741824 Then tdf.Attributes = 1

Next

db.Close

Set tdf = Nothing

Set db = Nothing

1- السطرين الأولين إعلان عن متغيرات

2- السطر الثالث إسناد قاعدة البيانات الحالية للمتغير db

3- السطر الرابع : من هنا تبدأ حلقة التكرار والغرض منها المرور على كل الكائنات المطلوبة في قاعدة البيانات والشروط If لغرض التأكد من إنطباق شروط محددة على الكائن .

فكأن السطر الرابع يقول اعرض جميع TableDef الموجودة في مجموعة TableDefs التابعة للقاعدة المسماة db

4- السطر الخامس : الشرط لعدم دخول الجداول النظامية الخاصة بالقاعدة والتي تبدأ دائما بالأحرف Msys وكذلك عدم دخول الجداول المتبطة والتي خاصيتها تساوي هذا الرقم 1073741824 .

6- السطر السادس : لتغيير الخاصية من صفر إلى 1 .

7- السطر السابع : لتغيير خاصية الجداول المرتبطة فقط .

8- next تابعة للحلقة التكرارية .

9- مايليه إغلاق القاعدة من الذاكرة وافراغ قيم المتغيرات بعد إنتهاء الاستخدام .

بالنسبة للأمثلة يوجد روابط متعددة لكيفية تحميل الأمثلة ابحث وستجد إن شاء الله .

ولك تحياتي

الآن حمل المثال بعد التعديل :

انقر هنا

صفحة الأمثلة

شكرا جزيل الشكر أخي أبو حمود ونلتقي في الموضوع الاخر حول عمل مؤثرات على الفورم عند الفتح أو الاغلاق وسوف ارسل لك الامثلة عن طريق البريد الالكتروني .

تحياتي للجميع

أخي ابو حمود لوسمحت أعطني عنوان بريدك الالكتروني وشكرا

webmaster@msaccess4arab.com

اخي ابو حمود انا في انتظار الرد حول السؤال الذي ارسلته إليك ضمن الامثلة بالبريد الالكتروني .

والسؤال هو :

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

أنا في انتظار الرد ولك مني جزيل الشكر

بالنسبة لأمثلة الموضوع الاخر مرفقة بالرابط التالي بعد ان تعرفت على الطريقة مصادفة :

unloadform.zip

أخي أبو حمود أرجوا أن لا تكون قد نسيتني

ما زلت في انتظار الرد !!!!!!!!!!!!!!!!!!!!!!!

بالنسبة لأمثلة الإغلاق فلا اعرف طريقة مماثلة في الأكسس

وأما باقي الكائنات فقد بحثت في الانترنت ولم اجد شيء حتى الآن

ولك تحياتي