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

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

نعمل زر أمر عند الضغط على زر للاخفاء 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