اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

تم تعديل بواسطه ازهر عبد العزيز
  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

Admin Utilities.mdb

رابط هذا التعليق
شارك

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

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

Tables to hide Unhide.rar

تم تعديل بواسطه 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

والله الموفق

تم تعديل بواسطه essam rabea
  • Like 1
رابط هذا التعليق
شارك

السلام عليكم 

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

compile.jpg.0c78f1e22ad02831269b6e4672a48b2d.jpg

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

Admin Utilities (1).zip

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

أستاذنا حلبي

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

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

بالتوفيق

 

HideUnHide.rar

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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  

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information