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

[samir_samir]

السلام عليكم

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

واظهار

[samir_samir]

للرفع

[بو يوسف الراشد]

هل تقصد كود لإزالة الرسالة التي تظهر عن تشغيل الاستعلام من النموذج

[samir_samir]

عندي كود اخفاء الجداول

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

وشكرا لكم

لكم اجرأ وثواب

[جمال فايز]

أخى الكريم سمير بعلبكي

تحية طيبة من أخيك / جمال فايز

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

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

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

اخى الكريم لا تنسانا من دعاء الخير والله ولى التوفيق والسداد .

[samir_samir]

شكرا لك اخ جمال فايز

انا عندي استعلامات كتيره

يوجد كود اخفاء استعلام

في المنتدي من حوالي سنه

؟؟؟؟؟؟؟؟؟

[محمد طاهر عرفه]

لاخفاء الاستعلام

Application.SetHiddenAttribute acQuery, "Query1", True

لاظهار الاستعلام

Application.SetHiddenAttribute acQuery, "Query1", False

[samir_samir]

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

اخي العزيز استازي محمد طاهر

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

ولكن انا بحاجه لا اخفاء نهائيا ثم واظهاره

Private Sub إخفاء_مع_إظهار_بالخيارات_Click()
Dim obj As AccessObject, dbs As Object

Set dbs = Application.CurrentData
For Each obj In dbs.AllQueries
If Left(obj.Name, 4) <> "MSys" Then SetHiddenAttribute acTable, obj.Name, True
Next obj
End Sub



Private Sub إظهار_مع_إخفائها_بالخيارات_Click()
Dim obj As AccessObject, dbs As Object

Set dbs = Application.CurrentData
For Each obj In dbs.AllQueries
If Left(obj.Name, 4) <> "MSys" Then SetHiddenAttribute acTable, obj.Name, False
Next obj
End Sub

[محمد طاهر عرفه]

إذا أزل القوائم النمطية من البرنامج

و ضع كلمة سر علي القاعدة لتصعيب الطريق علي من يريد الحصول عليها عن طريق الاستيراد