ممكن مساعدة في كود

[عبدالقدوس48]

مشكلة تظهر عند إخفاء جداول 

[ابو جودي]

غير ال ى 

Dim db As DAO.Database

 

[عبدالقدوس48]

نفس مشكلة أخي أبا جودى

[محمد أبوعبدالله]

تفضل اخي الكريم

Dim db As Object

تحياتي

[عبدالقدوس48]

شكرا لك أخي لكن لم يفلح أنا أبحث عن كود إخفاء جميع جداول وإستعلامات إلخ.................

[ابو جودي]

10 دقائق مضت, عبدالقدوس48 said:

شكرا لك أخي لكن لم يفلح أنا أبحث عن كود إخفاء جميع جداول وإستعلامات إلخ.................

 

[د.كاف يار]

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

    Set db = CurrentDb

    For Each tdf In db.TableDefs
        If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then
            Application.SetHiddenAttribute acTable, tdf.Name, True
            
        End If
    Next
    For Each tdf In db.QueryDefs
        If Not (tdf.Name Like "~sq*") Then
            Application.SetHiddenAttribute acQuery, tdf.Name, True
        End If
    Next

 

تم تعديل أكتوبر 23, 2021 بواسطه د.كاف يار

[عبدالقدوس48]

يزيد فضلك أخي أبا جودى زالت المشكلمة وجزاك الله خيرا 

[ابو جودي]

19 دقائق مضت, عبدالقدوس48 said:

يزيد فضلك أخي أبا جودى زالت المشكلمة وجزاك الله خيرا 

اولا الفضل كله لرب العزة سبحانه وتعالى 

ثانيا الحمد الله انك وجدت ضالتك

ثالثا جزانا الله واياكم خير الجزاء