• 0
abo_bader200200

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

سؤال

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

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

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

أيضا أريد منع استيراد الجداول في حالة الرغبة في ذلك .

كلمة شكر وتقدير وعرفان لكل القائمين على هذا المنتدي وعلى رأسهم الأخت زهرة .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

31 إجابة على هذا السؤال .

  • 1

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

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

post-15367-1226321778_thumb.gif

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

za_Hied_Enabled_AllObjectInDataBase.rar

تم تعديل بواسطه zahrah
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

TablesHidden.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

تم تعديل بواسطه abo_bader200200
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

كيف استعيده

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

تم تعديل بواسطه alriashi
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

@ alriashi

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

استاذه زهرة

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
هلا اكملت جميلك علينا واخفيت الاستعلامات ايضا بالكود

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

post-62619-1226391151_thumb.jpg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

@ ابو بدر

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

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

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

@ sx1

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

ابو شادي

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

post-139265-1226469242_thumb.png

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لي ثلاثة أيام أبحث عن ما يشفي غليلي في المنتدى عن إخفاء الجداول لمنع إستيرادها من خارج البرنامج

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

تم إيجاد ما كنت أبحث عنه ولله الحمد

وكالعادة أختنا وأستاذتنا الغالية زهرة دائما لها السبق في حل المسائل الصعبة على تلاميذها

فأسال الله أن يحفظها وذريتها ويجزيها عنا خيرا خاصة وجميع أعضاء هذا المنتدى المعطاء عامة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .