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

**اسلام سيد** · أكتوبر 27, 2019

السلام عليكم

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

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

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

هل هذا ممكن ؟

**essam rabea** · أكتوبر 27, 2019

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

جرب المويول

'للإخفاء

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** · أكتوبر 27, 2019

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

example1.accdbFetching info...

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

**Hamdi Edlbi-khalf** · أكتوبر 27, 2019

أستاذ @sandanet

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

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

**sandanet** · أكتوبر 27, 2019

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

تحياتي

**Hamdi Edlbi-khalf** · أكتوبر 27, 2019

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

**اسلام سيد** · أكتوبر 30, 2019

في 27‏/10‏/2019 at 14: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 للإظهار

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

بالتوفيق
Expand

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

في 27‏/10‏/2019 at 16:29, sandanet said:

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

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

Expand

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

**essam rabea** · أكتوبر 30, 2019

أ.اسلام سيد

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

HideUnhide.accdbFetching info...

**sandanet** · أكتوبر 30, 2019

في 30‏/10‏/2019 at 18:19, اسلام سيد said:

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

Expand

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

**اسلام سيد** · أكتوبر 31, 2019

في 30‏/10‏/2019 at 19:19, essam rabea said:

أ.اسلام سيد

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

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

Expand

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

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

**essam rabea** · أكتوبر 31, 2019

في 31‏/10‏/2019 at 19:01, اسلام سيد said:

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

Expand

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

HideUnhide.accdbFetching info...

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

**sandanet** · نوفمبر 1, 2019

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

**essam rabea** · نوفمبر 1, 2019

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

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

Expand

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

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

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

**اسلام سيد** · نوفمبر 1, 2019

في 31‏/10‏/2019 at 21:16, essam rabea said:

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

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

Expand

الف شكر

جميل جدا

**اسلام سيد** · نوفمبر 1, 2019

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

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

**اسلام سيد** · نوفمبر 1, 2019

في 1‏/11‏/2019 at 00:46, sandanet said:

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

Expand

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

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

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

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

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

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

**اسلام سيد** · نوفمبر 3, 2019

للرفع

**اسلام سيد** · نوفمبر 6, 2019

للرفع

**essam rabea** · نوفمبر 6, 2019

أ.اسلام سيد

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

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

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

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

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

بالتوفيق

HideUnHide.zipFetching info...

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

**اسلام سيد** · نوفمبر 7, 2019

في 6‏/11‏/2019 at 20:12, essam rabea said:

أ.اسلام سيد

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

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

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

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

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

بالتوفيق

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

Expand

ونعم بالله

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

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

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

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

**sandanet** · نوفمبر 8, 2019

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

**essam rabea** · نوفمبر 8, 2019

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

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

HideUnHide.mdbFetching info...

**sandanet** · نوفمبر 8, 2019

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

**essam rabea** · نوفمبر 8, 2019

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

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

**sandanet** · نوفمبر 9, 2019

في 8‏/11‏/2019 at 20:33, essam rabea said:

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

Expand

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

تسجيل الدخول

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

الردود الموصى بها

اسلام سيد

essam rabea

sandanet

Hamdi Edlbi-khalf

sandanet

Hamdi Edlbi-khalf

اسلام سيد

essam rabea

أ.اسلام سيد

sandanet

اسلام سيد

أ.اسلام سيد

essam rabea

sandanet

essam rabea

اسلام سيد

اسلام سيد

اسلام سيد

اسلام سيد

اسلام سيد

essam rabea

اسلام سيد

sandanet

essam rabea

sandanet

essam rabea

sandanet

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information