هل استطيع اخفاء الاستعلامات

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

hide.zip

بارك الله فيك

يا اخونا وحبيبنا الفاضل biskra

وشاكر ومقدر تعاونك وتجاوبك للموضوع

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

وعموما فجهدك مبارك ومقدر ومشكور

ويدل يا اخي على حرصك على افادة غيرك من اخواننا المسلمين

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

hide1.rar

اخي الكريم تلميذ ابو هاجر

بامكانك عمل ذلك بالطريق التاليه

اذهب الى الاستعم في طريقة عرض التصميم ثم بعد ذلك اذهب الى عرض sql

ثم قم بنسخ كود sql وبعد ذلك اذهب الى النموذج او التقرير المستند على ذلك الاستعلام وفي التصميم من خصائص النموذج اذهب اللى مصدر السجل والصق الكود هناك ثم موافق على التغيير بعد ذلك اذهب الى نفس الاستعلام وقم بحذفه ستجد ان النموذج او التقرير يعمل رغم حذفك للاستعلام

ارجوا ان يكون هذا ما تريد

اخيك احمد

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

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

وشاكر ومقدر تعاونكم جميعاً معي

وأسأل الله لكم التوفيق وجزاكم الله خير الجزا

نعم لقد كانت طريقتكما مناسبة 100%

وهذا ماكنت اريد

فتحياتي لكما

وبارك الله في جهودكما

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

اخي وعزيزي biskra وجميع اعضاء منتدى الاخوة الاسلامية ( الفريق العربي للبرمجة)

الكود الذي تفضلت بعملة جميل جداً

ولي سؤال لو تكرمت وهو لماذا قمت بعمل شرط ( if )

اقصد من سؤالي هو شرح للكود اذا كان ذلك ممكناً وبالاخص اخر جملة في الكود وهي

If Left(obj.Name, 4) <> "MSys" Then SetHiddenAttribute acTable, obj.Name, True

ولك خالص شكري وتقديري . وللجميع اقدم اعتذاري على الازعاج

(((( المعذرة )))) ولكن رغبة في زيادة فهم الكود