اخفاء عرض التصميم للجداول والفورم اكسس

[ابو هاله النبلسي]

السلام عليكم يرجى كيفية عمل اخفاء لعرض التصميم للجداول والفورم والتقارير حسب الصورة المرفقة

[د.كاف يار]

تفضل ضع هذا الكود في ازرار الاخفاء

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [MSysNameMap] where [Type]=1 or [Type]=5")
    rs.MoveFirst
    While (Not rs.EOF)
        Application.SetHiddenAttribute acTable, rs.Fields(2).Value, True
        rs.MoveNext
    Wend
rs.Close: Set rs = Nothing

 

[ابو هاله النبلسي]

المطلوب عند النقر على الجداول واضهار القائمة عرض كتصميم اخفاء فقط كلمة عرض كتصميم 

تم تعديل أبريل 20, 2022 بواسطه ابو عبد الرحمن العراقي

[ناقل]

39 دقائق مضت, ابو عبد الرحمن العراقي said:

المطلوب عند النقر على الجداول واضهار القائمة عرض كتصميم اخفاء فقط كلمة عرض كتصميم 

حول القاعدة الى accde

[د.كاف يار]

تفضل هذا المثال

tbv.accdb

[ابو هاله النبلسي]

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