كيفية منع الاخرين من استيراد المعلومات من قاعدة البيانات

[ازهر عبد العزيز]

سابقا اعطاني الاخ  @ابا جودى نموذج اضعه في قاعدة البيانات لكي امنع الاخرين من استيرادها كان نموذج رائع لكن واجهتني مشكلة وهي عندا اضعة في قاعدة البيانات  التي عندي لا استطيع تحويلها الى صيغة (accde)  هل هناك حل للمشكلة وهل تم تطوير النموذج اكثر واذا تم ارجو اعطائي النسخة الاحدث وشكرا لكم وان كان لاحدكم طريقة اخرى  ارجو مساعدتي 

تم تعديل يونيو 17, 2019 بواسطه ازهر عبد العزيز

[essam rabea]

أعتقد أن ابسط طريقة هى إخفاء كائنات قاعدة البيانات التى تريد أن لا يتم إستيرادها

[ابو جودي]

1 ساعه مضت, ازهر عبد العزيز said:

سابقا اعطاني الاخ  @ابا جودى نموذج اضعه في قاعدة البيانات لكي امنع الاخرين من استيرادها كان نموذج رائع لكن واجهتني مشكلة وهي عندا اضعة في قاعدة البيانات  التي عندي لا استطيع تحويلها الى صيغة (accde)  هل هناك حل للمشكلة وهل تم تطوير النموذج اكثر واذا تم ارجو اعطائي النسخة الاحدث وشكرا لكم وان كان لاحدكم طريقة اخرى  ارجو مساعدتي 

والله لا اتذكر ولكن ان قلت انت كذلك فأنت ادرى حالا منى لذلك رد الي بضاعتى لارى ما فيها 

[ازهر عبد العزيز]

اخي @essam rabea حتى بعد اخفائها يمكن استيراد البيانات للقاعدة  من قاعدة بيانات اخرى

وهذة بظاعتكم ردت اليكم  الاخ  @ابا جودى

Admin Utilities.mdb

[essam rabea]

الأخ الفاضل ازهر عبد العزيز

فى المرفق .. هل يمكنك استيراد الجداول المخفية ؟ إن كانت الإجابه نعم فأنا لن أفيدك بشيئ وأطمع فى معرفة الطريقة .. وإن كانت لا فحلها بسيط إن شاء الله

Tables to hide Unhide.rar

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

[ازهر عبد العزيز]

استاذ @essam rabea لايمكن استيرادها وكانة لايوجد جداول ممكن الطريقة لو تكرمت 

تم تعديل يونيو 17, 2019 بواسطه ازهر عبد العزيز

[essam rabea]

أستاذنا ازهر عبد العزيز

اولا يجب أن تكون الجداول بادئة بـ _tbl حتى لا تضطر الى كتابة أسم كل جدول

ضع فى حدث الفورم الرئيسى on Load 

Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
    If tdf.Name Like "tbl*" Then
            tdf.Attributes = dbHiddenObject
    End If
Next tdf

هذا للإخفاء

وهذا الكود للإظهار

Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
    If tdf.Name Like "tbl*" Then
             tdf.Attributes = 0
    End If
Next tdf

والله الموفق

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

[ازهر عبد العزيز]

@essam rabea

[ازهر عبد العزيز]

استاذ @essam rabea تمكنت من اظهار النماذج المخفية في المرفق اذي ارسلتة لي لكني لم استطع اخفائها من جديد ممكن المساعدة ان امكن 

[الحلبي]

السلام عليكم 

ان سمحتوا لي بالمداخله

ياريت اعرف في المثال المرسل من الاستاذ @essam rabea كيف اظهار الجداول خصوصا ان الكود السابق يوضع في نموذج 

طب فين هو النموذج اصلا يرجى التوضيح فنحن في حاجة لماسه لمثل هذا الموضوع 

او مطلوب من الاستاذ / عصام التوضيح اكثر حتي نتعلم كيفية عمل ذلك

[ابو جودي]

اعتذر على التأخير انا اسف

تم التحويل دبون اى مشاكل

اذن المشكله بقاعدتك انت 

اعم ضغط واصلاح اولا
ثم ادخل الى الاكواد ثم 

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

Admin Utilities (1).zip

[الحلبي]

يرجي التوضيح ياجماعة الخير 

انا مش فاهم حاجة خالص 

نأمل في عمل نموذج يخفي الجداول ويظهرها او شرح الامثلة السابقة

[ازهر عبد العزيز]

اخي  @حلبي الموضوع بسيط وقد احسن الاستاذة @ابا جودى و @essam rabea في توضيحة والفكرة انك تاخذ احد الامثلة كا مثال الاستاذ عصام  وتضع الكود ات عند فتح النموذج فيتم الاخفاء اما مثال الاستاذ ابا جودي تاخذ النموذج وتضعة في قاعدة البيانات لديك ومنه تتحكم في اخفاء واظهار كل شئ

[essam rabea]

أعتذر عن التأخير

الأخ الفاضل ازهر عبد العزيز 

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

أستاذنا حلبي

المفروض أن يطبق الكود السابق على النموذج الرئيسى فى حدث عند التحميل حتى بخفى الجداول تلقائيا او نموذج مستقل حسب المرفق.

ولكنى لم استطع تطبيقة على جداول مرتبطة

بالتوفيق

 

HideUnHide.rar

[ازهر عبد العزيز]

نعم استاذ @essam rabea هذا المقصود لان اهم شئ اخفاء المعلومات المجودة في الجداول وهذا كان قصدي 

[الحلبي]

الاستاذ الفاضل / عصام 

اشكرك على التوضيح وجزاك الله كل خير

الاستاذ الفاضل / ازهر

اشكرك وبارك الله فيك

[ازهر عبد العزيز]

استاذ @essam rabea لدي فقط خمس جداول كيف سيكون كتابة كود الاخفاء لها دون تغيير اسمائهن 

[عبد اللطيف سلوم]

21 دقائق مضت, ازهر عبد العزيز said:

استاذ @essam rabea لدي فقط خمس جداول كيف سيكون كتابة كود الاخفاء لها دون تغيير اسمائهن 

Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
    If tdf.Name Like "THE_NAME*" Then
            tdf.Attributes = dbHiddenObject
    End If
Next tdf

كرر العملية 5 مرات  

اكتب اسم الجدول بدل كلمة THE_NAME  

[ازهر عبد العزيز]

استاذ @عبد اللطيف سلوم اهلا بك  عرفت الطريقة ولكن كان القصد هل يمكن عملها دون تكرار العملية 5 مرات

[عبد اللطيف سلوم]

1 دقيقه مضت, ازهر عبد العزيز said:

استاذ @عبد اللطيف سلوم اهلا بك  عرفت الطريقة ولكن كان القصد هل يمكن عملها دون تكرار العملية 5 مرات

على حسب اسم الجداول عندك

لو كانت تبدأ مثلا باسم جدول ....

فيكفي ان تكتب جدول وتضع خلفة نجمه  كما في مثال الاخ عصام 

اما اذا اسماء مختلفة فلا بد من التكرار

او تغيير الاسماء 

[essam rabea]

او ممكن تستخدم Or

For Each tdf In CurrentDb.TableDefs
    If (tdf.Name = "اسم الجدول الاول") Or (tdf.Name = "اسم الجدول الثانى") Then
            tdf.Attributes = dbHiddenObject
    End If
Next tdf

[ازهر عبد العزيز]

@essam rabea  فعلا معلم 

[essam rabea]

[essam rabea]

الإخوة الأفاضل لابد من إلقاء نظرة على هذا الموضوع