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

[باحطاب]

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

 

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

 

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

 

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

 

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

 

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

 

 

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

 

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

 

 

ودمتم سالمين

 

باحطاب سوفت

[kkhalifa1960]

مشكور استاذ @باحطاب جزلك الله خير  .

 

 

تم تعديل April 18 بواسطه kkhalifa1960

[Lover Karo]

مشكور، طريقة أخرى لإظهار الجدول وإخفائهHideTable.accdb

[kkhalifa1960]

مشكور استاذ @باحطاب جزلك الله خير ولي لمسة بسيطة .أما (One Button) أو (Two Buttons)  طالع المرفق .

DDTest550.rar

[Foksh]

مشكور اخونا الغالي باحطاب على هذه الهدية الجميلة 

وأهلا بمشاركتك الأولى 

وتمنيت انك ارفقت ملف داعم لفكرتك 

تم تعديل April 18 بواسطه Foksh

[abouelhassan]

شكر وتقدير واحترام من اخيك