إخفاء و إظهار جميع كائنات قاعدة البيانات أثناء تشغيل النموذج الرئيسي

اخي الفاضل ابو بدر

السلام عليكم ورحمة الله وبركاته

استخدم هذا النموذج لإخفاء الجداول من قاعدة البيانات

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

TablesHidden.rar

الله يجزاك خير أخت زهرة ويفتح عليك دنيا وآخرة . أنا عارف أنه اتعبناك وأرهقناك ولكن نسأل الله أن يكون كل ما تعمليه في موازين حسناتك يوم القيامة .

أخت زهرة أنا أريد كود أضعه في حدث التحميل للفورم الرئيسي يقوم بإخفاء جميع الجداول ولايمكن استرجاعها أو إظهارها مرة أخرة .وهذه الكوكبة من أمثالكم .

تفضل أخي الكريم

هذا الكود يوضع عند حدث التحميل للنموذج الرئيسي

Private Sub Form_Load()
Dim db As Database
Dim obj As AccessObject, DBS As Object
Dim tdf As TableDef
Set DBS = Application.CurrentData
Set db = CurrentDb
For Each obj In DBS.AllTables
Set tdf = db.TableDefs(obj.Name)
If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then
tdf.Attributes = tdf.Attributes + dbHiddenObject
End If
Next
Set tbl = Nothing
db.close
Set db = Nothing
End Sub

بارك الله فيك استاذه زهرة

كود جميل ومفيد بس لو بغيت استعيد الجدول لبعض التعديل

عليه ومن ثم اخفائه

كيف استعيده

لكم خالص الشكر والتقدير

@ alriashi

وفيك بارك الله اخي الكريم

استخدم النموذج في الملف المرفق لإظهار الجداول

في المشاركة السابقة

ياشيخة الله يفتح عليك دنيا وآخرة .

بســم الله الـرحمــن الرحيــم

الاستاذه زهرة بارك الله فيك استخدمت الكود ولكن لم يحصل شيئ ويمكن هذا من عدم فهمي الشرح هل يوجد نموذج ومضاف فيه التعديل

شكرا لتجاوبك الدائم وشكرا لابو بدر الذي اثار الموضوع

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة وحفظك

هلا اكملت جميلك علينا واخفيت الاستعلامات ايضا بالكود

الف الف الف شكر وما قصرتي

الله يعطيكي العافية

استاذه زهرة

كل الناس شكروك

كل الناس دعو لك

وانا اسأل العلي القدير ان يستجيب لدعائهم

sx1 كتب:

هلا اكملت جميلك علينا واخفيت الاستعلامات ايضا بالكود

تفضل أخي الكريم

هذا الكود يقوم بإخفاء الجداول والإستعلامات معا في حدث عند التحميل للنموذج ( فقط ضع هذا الكود وسيقوم بإخفاء الجداول والإستعلامات جميعها من قاعدة البيانات وحتى لو اظهرتها سيتم اخفاؤها في المرة القادمة لفتح التموذج )

Private Sub Form_Load()
Dim db As Database
Dim obj As AccessObject, DBS As Object
Dim tdf As TableDef
Dim qry As QueryDefs
Set DBS = Application.CurrentData
Set db = CurrentDb
For Each obj In DBS.AllTables
Set tdf = db.TableDefs(obj.Name)
If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then
tdf.Attributes = tdf.Attributes + dbHiddenObject
End If
Next
For Each obj In DBS.AllQueries
SetHiddenAttribute acQuery, obj.Name, True
Next obj
Application.SetOption "Show Hidden Objects", 0
Application.SetOption "Show System Objects", 0
Set tdf = Nothing
db.Close
Set db = Nothing
End Sub

بســم الله الـرحمــن الرحيــم

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

لقد نجح الكود معي في اخفاء الجداول والاستعلامات ولله الحمد

ولكن لي سؤالين

1- هل يمكن استرجاع ماتم اخفاءه

2- هل يمكن اخفاء المكروات والتقارير والنماذج مع الجداول والاستعلامات بكود واحد ام انه لايمكن ذلك

شكرا جزيلا والله يرعاك

مع تحيات الحسن

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة وحفظك وزاد من علمك

وايضا اضم صوتي في السؤال للاخ الحسن 16

بارك الله فيك اختنا زهرة وحفظك وزاد من علمك

وايضا اضم صوتي في السؤال للاخ الحسن 16

تفضلوا أخواني الكرام

البرنامج بناء على طلبكم

ستجدون جميع الشروحات والملاحظات في محرر الكود في النموذج FORM

za_Hied_Enabled_AllObjectInDataBase.rar

بســم الله الـرحمــن الرحيــم

وعليكــم السـلام ورحمة الله وبركاتـه..

الأخت زهرة حفظك الله ورعاك قمت بتطبيق ما سبق ولكن تزهر عني هذه الرسالة

حفظك الله ورعاك وبارك الله في جهودك النيرة .

بسم الله الرحمن الرحيم

بارك الله فيك اختي زهرة

هذا هو الكلام المضبوط

ولكن عندي سؤال صغير جدا جدا

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

@ ابو بدر

ما هي نسخة برنامج الأكسيس التي تعمل عليها ؟

لأن البرنامج تم عمله على اكسيس 2003

حاول تضغط على زر الأمر Debug في الرساله وانظر اين يشير الخطأ وفي اي سطر ( سيتم تحديده بلون اصفر )

@ sx1

لا يمكن بارك الله بك التطبيق على باقي الكائنات فهذا الوضع ينطبق فقط على الجداول

حيث حاولت بالكود اخفاء النماذج والتقارير فظهرت رسائل اعتراض من قبل برنامج الأكسيس تفيد بضرورة عدم الإخفاء لهذه الكائنات وبعدها يتوقف البرنامج عن العمل .

بسم الله ماشاء الله

اختي الكريمة / زهرة

الله يجزاكى كل ثواب وخير وزادك الله من علمه

عمل جميل يخلفه الله عليكي في أولادك

ابو شادي

كل الاحترام والتقدير لكي

السلام عليكم

ما شاء الله عمل متقن وممتاز جزاك الله كل خير اختنا الفاضلة ام عهود.

يظهر ان اخي الكريم ابو بدر بارك الله به يعمل على نسخة اكسس 2002 والمشكلة فعلا موجودة وهذه صور للكود

ولكن عندما نلغي عمل هذا السطر يعمل البرنامج دون مشاكل

ام النسخة اكسس 2003 تعمل بشكل جيد ودون مشاكل هذا للعلم فقط وبارك الله بك وبجهودك معنا.

اخوكم ابو عدنان

بارك الله بك اخي الكريم ابو عدنان

على الإيضاح والتنبيه

فعلا برنامج اكسيس 2002 او ما يسمى اكسيس xp يوجد به بعض المشاكل والتي تم تلافيها في اكسيس 2003

عموما مشكور وما قصرت

ويعطيك العافيه .

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة وحفظك لنا وزاد من علمك

بســم الله الـرحمــن الرحيــم

شكرا للجميع ولكن الكود يخفي فقط الجداول والاستعلامات فقط ولايخفي النماذج والتقارير والمكروات

علما بأني حذفت السطر الذي اوضحه اخي ابو عدنان وسطر اخر ظهر لي ايضا وحيث انه يخفي الجميع في المثال المرسل من قبل زهرة حفظها الله فما المشكلة ؟ جربت في نفس النموذج واستوردت جميع الكائنات الي قاعدة بياناتي فاخفت ماتم استيراده واخفت الجداول والاستعلامات الخاصة بقاعدتي المستورد بها فقط دون باقي الكائنات وانااعمل على اكسس 2003

شكرا للجميع على مداخلته وان كان هناك حل فما هو

مع تحيات الحسن 16

KV[, الأخت زهرة نفس كلام الأخ الحسن 16 ظهر عندي فكيف يمكنني ايضا اخفاء باقي الكائنات ، وأنا نسختي 2003 وانا اسف على التاخير وبارك الله في الجميع .