بعد اذن اخى التقنى اضيف شىء بسيط لانى عند عمل الكود عند النقر على زر امر A لا زال يظهر الجدول
فقمت بتعديل السطر الاخير فيه و هو
CurrentDb.TableDefs("tblName").Attributes = dbHiddenObject
فغيرت = dbhiddenobject الى = 1
و بذلك تم اخفاء الجدول
فهل يوجد كود لاخفاء الاستعلامات و النماذج و الماكرو
فاذا كان هذا موجود يبقى هذا من ضمن الحمايه و يكون من الصعب اختراقه لاى شخص لا يدرى عن الاكسيس شىء
فأنا حاولت ان اخفيهم بنفس طريقتك فى اخفاء الجداول
فطريقتى كانت تعديل الكود
CurrentDb.TableDefs("tblName").Attributes = dbHiddenObject
الى
CurrentDb.QuireDefs("tblName").Attributes = dbHiddenObject
و لكن لم تفلح معى فاذا كان يوجد كود ارجو من سيادتكم معرفتنا به
و اخيرا اشكرك كثيرا على هذا الكود