اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


samir_samir

الردود الموصى بها

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information