كود زر اخفاء الجداول و اظهارها على زر اظهار و اخفاء بكل بساطة

باحطاب · أبريل 17, 2024

بسم الله الرحمن الرحيم

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

طبعا انا مسجل من فترة طويلة والصراحة منتدى مبدع واستفدت كثير وطرق كثيرة و استاذة كبار المنتدى

حبيت اشارك بهذا الموضوع البسيط والكثير يبحث عنة وإن شاء الله اكون عند حسن الظن

اخفاء الجداول و اظهارها على زر اظهار و اخفاء بكل بساطة

ووضعت لكم الاكواد مع شرحها

زر اخفاء الجداول

اسم الزر ( 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

ودمتم سالمين

باحطاب سوفت