مطلوب كود عند الضغط علية يعمل Hidden للجداول مثل Hidden اللى فى properties

[اسلام سيد]

 

السلام عليكم

هل هناك كود عند الضغط علية يعمل Hidden للجداول

بشرط مثل Hidden اللى فى properties

مطلوب عمل كل الجداول مرة واحده (بضغطه زر واحده)

هل هذا ممكن ؟

 

 

[essam rabea]

أ.اسلام سيد مش عارف انا فهمت صح ولا غلط 

جرب المويول

'للإخفاء

Public Function ESHideTables()
    Dim dbs     As dao.Database
    Dim tbl    As dao.TableDef
    Dim qry    As dao.QueryDef
    Dim str    As String
    
    On Error Resume Next
    
    Set db = CurrentDb()


    For Each tbl In db.TableDefs
            
            Application.SetHiddenAttribute acTable, tbl.Name, True
    Next tbl
End Function

والموديول الثانى

'للإظهار

Public Function ESShowTables()
    Dim dbs     As dao.Database
    Dim tbl    As dao.TableDef
    Dim qry    As dao.QueryDef
    Dim str    As String
    
    On Error Resume Next
    
    Set db = CurrentDb()


    For Each tbl In db.TableDefs
            
            Application.SetHiddenAttribute acTable, tbl.Name,Fales 
    Next tbl
End Function

وقم بإستاعائهم عن طريق

Call ESHideTables للإخفاء
أو

Call ESShowTables للإظهار

أرجو أن أكون وفقت

بالتوفيق

تم تعديل أكتوبر 27, 2019 بواسطه essam rabea

[sandanet]

جرب الملف المرفق .. ميزة الطريقة الموجودة في المرفق هي عند اخفاء الجداول فلايمكن اظهارها من خلال خيارات العرض في قاعدة البيانات "إظهار الكائنات المخفية" كما لايمكن استيراد الجداول ايضاً

example1.accdb

تم تعديل أكتوبر 27, 2019 بواسطه sandanet

[Hamdi Edlbi-khalf]

أستاذ @sandanet

كود ممتاز بارك الله بك.

 هل يمكن تعديل الكود  ليعمل الكود على إخفاء الاستعلامات و الوحدات النمطية و الماكرو؟

 

[sandanet]

في الغالب يتم استخدام الاستعلامات بالكود عن طريق تحويل الاستعلام العادي الى كود وعند قفل الأكواد برقم سري وتحويل قاعدة البيانات الى mde او accde فانك سوف تحمي جميع الاكواد بمافي ذلك الوحدات النمطية .. بالنسبة للكود السابق فهو مجهز للجداول فقط ولا اعلم ما اذا كان يمكن تطبيق نفس فكرته على الاستعلامات العادية

 

تحياتي

[Hamdi Edlbi-khalf]

شكراً لكم أستاذ @sandanet

[اسلام سيد]

في ٢٧‏/١٠‏/٢٠١٩ at 16:49, essam rabea said:

أ.اسلام سيد مش عارف انا فهمت صح ولا غلط 

جرب المويول

'للإخفاء

Public Function ESHideTables()
    Dim dbs     As dao.Database
    Dim tbl    As dao.TableDef
    Dim qry    As dao.QueryDef
    Dim str    As String
    
    On Error Resume Next
    
    Set db = CurrentDb()


    For Each tbl In db.TableDefs
            
            Application.SetHiddenAttribute acTable, tbl.Name, True
    Next tbl
End Function

والموديول الثانى

'للإظهار

Public Function ESShowTables()
    Dim dbs     As dao.Database
    Dim tbl    As dao.TableDef
    Dim qry    As dao.QueryDef
    Dim str    As String
    
    On Error Resume Next
    
    Set db = CurrentDb()


    For Each tbl In db.TableDefs
            
            Application.SetHiddenAttribute acTable, tbl.Name,Fales 
    Next tbl
End Function

وقم بإستاعائهم عن طريق

Call ESHideTables للإخفاء
أو

Call ESShowTables للإظهار

أرجو أن أكون وفقت

بالتوفيق

كيف اشغل هذا الموديل من خلال الزر استاذنا

 

في ٢٧‏/١٠‏/٢٠١٩ at 18:29, sandanet said:

جرب الملف المرفق .. ميزة الطريقة الموجودة في المرفق هي عند اخفاء الجداول فلايمكن اظهارها من خلال خيارات العرض في قاعدة البيانات "إظهار الكائنات المخفية" كما لايمكن استيراد الجداول ايضاً

example1.accdb 340 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 32 downloads

للاسف اعطانى خطأ مع الجداول المرتبطه بالسيكول

[essam rabea]

أ.اسلام سيد

جرب المرفق لعله المطلوب

HideUnhide.accdb

[sandanet]

منذ ساعه, اسلام سيد said:

للاسف اعطانى خطأ مع الجداول المرتبطه بالسيكول

الكود غير مخصص للجداول المرتبطة

[اسلام سيد]

23 ساعات مضت, essam rabea said:

أ.اسلام سيد

جرب المرفق لعله المطلوب

HideUnhide.accdb 488 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 5 downloads

الله الله يا استاذنا
ممتاز جدا
كده موفق باذن الله
هل لى اطمع  من بعد تنفيذ عملية الاخفاء  يكون فى كود لاخفاء من الصورة التالية (للجداول والاستعلامات والماكرو والوحدات النمطية ) وايضا يكون فى كود لاظهارهم فى نفس الزر

هو اشتغل تمام مع السيكول

[essam rabea]

2 ساعات مضت, اسلام سيد said:

كود لاخفاء من الصورة التالية (للجداول والاستعلامات والماكرو والوحدات النمطية )

تفضل مع الأخذ فى الإعتبار أنه لن يتم إخفاء النموذج المفتوح

HideUnhide.accdb

تم تعديل أكتوبر 31, 2019 بواسطه essam rabea

[sandanet]

استاذ @essam rabea ماتفضلت به جميل لكن لايزال بالامكان اظهار الكائنات المخفية من خلال خيارات الاكسس .. اعتقد ان الغرض المرجو من عملية الاخفاء هو عدم السماح باظهار الكائنات نهائياً حتى من خيارات الاكسس او من الاستيراد بل فقط من خلال امر الاظهار بالكود وهذا ما تجده في مرفقي السابق لكنه للأسف يعمل على الجداول فقط وليس الاستعلامات أو النماذج فهل يمكن تطويع الفكرتين معاً؟

[essam rabea]

في 27‏/10‏/2019 at 15:47, اسلام سيد said:

بشرط مثل Hidden اللى فى properties

استاذنا @sandanet ده كان طلب الزبون 😃

وعلى قد ما عرفت بقى لكن ان شاء الله ندمج الفكرتين مع بعض

خاص تحياتى لشخصك الكريم

[اسلام سيد]

18 ساعات مضت, essam rabea said:

تفضل مع الأخذ فى الإعتبار أنه لن يتم إخفاء النموذج المفتوح

HideUnhide.accdb 544 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

الف شكر

جميل جدا

[اسلام سيد]

فعلا احتاج الى دمج الفكرتين

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

[اسلام سيد]

19 ساعات مضت, sandanet said:

استاذ @essam rabea ماتفضلت به جميل لكن لايزال بالامكان اظهار الكائنات المخفية من خلال خيارات الاكسس .. اعتقد ان الغرض المرجو من عملية الاخفاء هو عدم السماح باظهار الكائنات نهائياً حتى من خيارات الاكسس او من الاستيراد بل فقط من خلال امر الاظهار بالكود وهذا ما تجده في مرفقي السابق لكنه للأسف يعمل على الجداول فقط وليس الاستعلامات أو النماذج فهل يمكن تطويع الفكرتين معاً؟

رجاءا اساتذتى الافاضل دمج الفكرتين

لان دى الحاجه الوحيده اللى اقدر من خلالها منع استيراد الجداول

مع اخذ بالاعتبار انها مرتبطه بالسيكول

يعنى حتى عند تغير الصيغة تاى accde ايضا بدون اخفاء الجداول نهائيا يتم استيراده

ويتم استيرادها بالربط يعنى انا كده رحت فى ببلاش

يارب تصلوا الى دمج الفكرتين ... يارب

[اسلام سيد]

للرفع

[اسلام سيد]

للرفع

[essam rabea]

أ.اسلام سيد

للأسف لم أتمكن من حل مشكلة الإخفاء التام لباقى العناصر عدا الجداول ولكن يمكنك الحماية التقليدية بعمل كلمة سر قوية لمحرر الأوامر وكذلك لقاعدة البيانات مع تحويلها الى accde

لمنع إستيراد النماذج والتقارير إذا تم كسر كلمة السر

والمرفق يقوم بإخفاء الجداول والجداول المرتبطة بأكسيس و SQL بما لا يمكن إظهاره بخيارات الأكسيس .. أما باقى العناصر فإنها تظهر

ولى رأى فى هذا الموضوع .. فإن من يكسر كلمات السر  لقاعدة البيانات و محرر الأوامر لن يعجزه إظهار جميع العناصر بما فيها الجداول

أمّن مشروعك قدر المستطاع وأتركها لله

بالتوفيق

 

 

HideUnHide.zip

تم تعديل نوفمبر 6, 2019 بواسطه essam rabea

[اسلام سيد]

23 ساعات مضت, essam rabea said:

أ.اسلام سيد

للأسف لم أتمكن من حل مشكلة الإخفاء التام لباقى العناصر عدا الجداول ولكن يمكنك الحماية التقليدية بعمل كلمة سر قوية لمحرر الأوامر وكذلك لقاعدة البيانات مع تحويلها الى accde

لمنع إستيراد النماذج والتقارير إذا تم كسر كلمة السر

والمرفق يقوم بإخفاء الجداول والجداول المرتبطة بأكسيس و SQL بما لا يمكن إظهاره بخيارات الأكسيس .. أما باقى العناصر فإنها تظهر

ولى رأى فى هذا الموضوع .. فإن من يكسر كلمات السر  لقاعدة البيانات و محرر الأوامر لن يعجزه إظهار جميع العناصر بما فيها الجداول

أمّن مشروعك قدر المستطاع وأتركها لله

بالتوفيق

 

 

HideUnHide.zip 69.68 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

ونعم بالله

كلام رااائع استاذنا

وعمل جميل تشكر علية

فعلا بيمنع استيراد الجداول ... والاجمل انك ارفقت جداول وجداول مرتبطه فجزاكم الله كل خير

العمل هذا حقق المراد باذن الله

[sandanet]

استاذ @essam rabea هل يمكنك عمل نسخة تعمل على اصدار اوفيس 2007 لو تكرمت

[essam rabea]

استاذ sandanet النسخة بالفعل 2007 - 2016 

وأرفق لك نسخة تعمل على 2003 أو أخبرنى كيف 

HideUnHide.mdb

[sandanet]

شكرا جزيلاً لك استاذ @essam rabea الان يعمل الملف بشكل سليم لكنه لايمنع استيراد الجداول كما اشرت كما انني استطيع اظهار الاخفاء من خيارات اكسس

[essam rabea]

 استاذ sandanet هو انا عندى مانعة وعند أ.اسلام .. جايز فيه حاجة فى التحويل لـ 2003

جرب حذف DAO  من الكود .. (ان كان هناك كلمة سر للكود فهى .. " 2101962 " )

[sandanet]

3 ساعات مضت, essam rabea said:

جرب حذف DAO  من الكود

نعم استاذ عصام الآن يعمل الكود بشكل سليم .. تحية لك على هذا المجهود الرائع بارك الله فيك