• 0
عبدالمانع

طريقة إخفاء وإضهار الجداول في القاعدة ،،،

سؤال

هذة تجربة في إخفاء الجداول وإضهار برقم سري

نعمل زر أمر عند الضغط على زر للاخفاء A تضع الحدث التالي

    Dim a, b

  a = "كلمة مرور"

  b = "ادخل كلمة المرور "

  If InputBox(b, a) = "1" Then

  Else

      MsgBox "لايمكنك من إخفاء او إضهار الجدول", vbOKOnly, "خطاء"

      DoCmd.Quit

  End If

CurrentDb.TableDefs("أسم الجدول المراد إخفاءة").Attributes = dbHiddenObject

إيضاً نعمل زر أمرعند الضغط على الزر للاضهار b تضح الحدث هذا

Dim a, b

  a = "كلمة مرور"

  b = "ادخل كلمة المرور "

  If InputBox(b, a) = "1" Then

  Else

      MsgBox "لايمكنك من إخفاء او إضهار الجدول", vbOKOnly, "خطاء"

      DoCmd.Quit

  End If

CurrentDb.TableDefs("الجدول المراد إضهارة").Attributes = 0

مع خالص التحيات ،،،

عبدالمانع

إخفاء الجداول وإضهارها برقم سري.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

لله يجزاك خير يا اخوي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك ونفع بعلمك الإسلام والمسلمين .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشكورين أخواني الكرام

اخي الكريم / abo_slaim

وأستاذي ومشرفنا الكريم / فهد الدوسري

* ملحوظة : وكذلك من الطريقة هذة لايمكن إجراء عملية إستيراد للجداول التي تم إخفائها ،،،

ولكم خالص التحيات ،،،

عبدالمانع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

جزاك الله كل خير أخي عبدالمانع

فعلا جاءت هذه الطريقة في الوقت المناسب

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

جزاك الله كل خير أخي عبدالمانع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

كيف يمكن منع إستيراد البيانات من الجداول المرتبطه بـ ODBC ؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .