سؤال لإستاذي أبو حمود أو خبراء الأكواد

نعم ممكن ابحث في المنتدى وستجد طلبك

لقد توصلت بحمد الله للحل وهو كما يلي لمن يريد الإطلاع عليه:

Dim db As Database

Dim tdf As TableDef

Set db = CurrentDb

For Each tdf In db.TableDefs

If tdf.Name = "Table name" And tdf.Attributes <> 1073741824 Then

tdf.Attributes = tdf.Attributes + dbHiddenObject

End If

If tdf.Attributes = 1073741824 Then tdf.Attributes = 1

Next

db.Close

Set tdf = Nothing

Set db = Nothing

مثال بسيط بالكود واستعلام وجدول

والله الموفق

alsarraf1.zip

الأخ alsarraf مثالك جميل ومفيد ولكن ممكن توضيح أكثر عليه حيث أرى فى الجدول عملية طباعة وبحث وتعديل ..

أشرف خليل

ببساطه الرقم السري يجب ان يكون هناك شخص مخول لاضافة مستخدم جديد او طباعه التقارير السريه فهذا الشخص هو الوحيد الذي يضيف ويلغي ففي الجدول يوجد كلك علي هذه الاوامر مثال

الشخص الذي يضيف المستخدم يجب ان يكون في الجدول امام الرقم السري له كلك علي خانه اضافة مستخدم

ما عليك الا عمل شاشة البدايه والمستخدم يضع فيه الرقم السري له وعند عمل اي شي بالبرنامج مثلا اضافة مستخدم سوفه يذهي البرنامج ويرى اذا كان هذا المستخدم يحق له عمل هذا او لا

ومرفق لكم بنامج صغير ومطور

وسوف يطهر لكم المستخدم في شاشة البداية

واجو اعطائي رايكم فيه

ولكم جزيل الشكر

والله الموفق

alsarraf1.zip