كود لاخفاء وإظهار الاستعلامات

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

أخي الكريم لإظهار الإستعلامات غير من True إلى False كما في الكود التالي

For Each obj In dbs.AllQueries
Application.SetHiddenAttribute acQuery, obj.Name, False
Next obj

وبالتوفيق

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

أشكرك يا عزيزي على مرورك ..... ولكني جربت هذا الكود

ولكن أعطاني خطأ ما ... ماذا أفعل

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

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

Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData

    For Each obj In dbs.AllQueries
        Application.SetHiddenAttribute acQuery, obj.Name, False
    Next obj

    Set dbs = Nothing

وهذا المرفق مثال من دون أخطاء

koao_db21.zip

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

أخي العزيز ... أشكرك من صميمي قلبي

والموضوع كده... 100%

بوركت صديقي

اخواني انا لم افهم ماذا تقصدون بكلمة اخفاء واظهار

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

ارجو ايضاح ذلك

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

أخي الكريم

إنظر إلى الصورة الأول قبل النقر على زر إخفاء

بعد النقر على زر إخفاء ستختفي الإستعلامات كما في الصورة التالية

جرب الآن أنقر على زر إظهار ستظهر الإستعلامات كما في الصورة التالية

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

وبالتوفيق

gagaga كتب:

اخواني انا لم افهم ماذا تقصدون بكلمة اخفاء واظهار

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

ارجو ايضاح ذلك

عليك بازالة الاختيار من امام الكائنات المخفية

نعم الحل كما قلت اخي mrnooo2000

شاكر للجميع هذا التعاون في سبيل العلم ونشره