بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاته
طبعا انا مسجل من فترة طويلة والصراحة منتدى مبدع واستفدت كثير وطرق كثيرة و استاذة كبار المنتدى
حبيت اشارك بهذا الموضوع البسيط والكثير يبحث عنة وإن شاء الله اكون عند حسن الظن
اخفاء الجداول و اظهارها على زر اظهار و اخفاء بكل بساطة
ووضعت لكم الاكواد مع شرحها
زر اخفاء الجداول
اسم الزر ( HideTables )
كود الزر
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Set db = CurrentDb
' قم بتحديد الجداول التي ترغب في إخفائها
' يمكنك تكرار هذا السطر لإضافة المزيد من الجداول
Set tbl = db.TableDefs("اسم_الجدول")
' قم بتعيين خاصية Hidden للجدول إلى True لإخفائه
tbl.Attributes = dbHiddenObject
' أغلق قاعدة البيانات
db.Close
Set tbl = Nothing
Set db = Nothing
كود زر اظهار الجداول
اسم الزر ( ShowTables )
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Set db = CurrentDb
' قم بتحديد الجداول التي ترغب في إظهارها
' يمكنك تكرار هذا السطر لإضافة المزيد من الجداول
Set tbl = db.TableDefs("اسم_الجدول")
' قم بتعيين خاصية Hidden للجدول إلى False لإظهاره
tbl.Attributes = tbl.Attributes And Not dbHiddenObject
' أغلق قاعدة البيانات
db.Close
Set tbl = Nothing
Set db = Nothing
ودمتم سالمين
باحطاب سوفت
