السلام عليكم يا إخوان....
من خلال تصفحي لمنتدانا الغالي....
عرفت أن كود اخفاء الاستعلامات هو
For Each obj In dbs.AllQueries
Application.SetHiddenAttribute acQuery, obj.Name, True
Next obj
ولكن لم أعرف كود اظهار لاستعلامات أرجو من السادة مساعدتي
السلام عليكم يا إخوان....
من خلال تصفحي لمنتدانا الغالي....
عرفت أن كود اخفاء الاستعلامات هو
For Each obj In dbs.AllQueries
Application.SetHiddenAttribute acQuery, obj.Name, True
Next obj
ولكن لم أعرف كود اظهار لاستعلامات أرجو من السادة مساعدتي
السلام عليكم ورحمة الله وبركاته
أخي الكريم لإظهار الإستعلامات غير من 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وهذا المرفق مثال من دون أخطاء
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
السلام عليكم ورحمة الله وبركاته،،،
أخي العزيز ... أشكرك من صميمي قلبي
والموضوع كده... 100%
بوركت صديقي
اخواني انا لم افهم ماذا تقصدون بكلمة اخفاء واظهار
لقد قمت بتحميل المثال ولم يتغير شئ فكلا الحالتين استطيع انا افتح الاستعلام وادخل على تصميمه
ارجو ايضاح ذلك
السلام عليكم ورحمة الله وبركاته
أخي الكريم
إنظر إلى الصورة الأول قبل النقر على زر إخفاء
بعد النقر على زر إخفاء ستختفي الإستعلامات كما في الصورة التالية
جرب الآن أنقر على زر إظهار ستظهر الإستعلامات كما في الصورة التالية
فإذا كنت إستخدمت الطريقة السابقة ... وما زلت تستطيع إظهار الإستعلامات ... فأرجو أن تبين كيف .. للفائدة .. وجزاك الله خيرا
وبالتوفيق
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
gagaga كتب:اخواني انا لم افهم ماذا تقصدون بكلمة اخفاء واظهار
لقد قمت بتحميل المثال ولم يتغير شئ فكلا الحالتين استطيع انا افتح الاستعلام وادخل على تصميمه
ارجو ايضاح ذلك
عليك بازالة الاختيار من امام الكائنات المخفية
نعم الحل كما قلت اخي mrnooo2000
شاكر للجميع هذا التعاون في سبيل العلم ونشره