:ح: إخفاء الجدول ، مثل للتحدي

[مهند عبادي]

السلام عليكم

هذا ملف أكسس MDB عملت فيه نموذج AA يعتمد على جدول config choices

هل يوجد أحد يستطيع أظهار هذا الجدول

الرجاء المحاولة خاصة من الخبراء

تحياتي لكم

Hide Teble.rar

[الخيال]

Sub Unhide()
  Dim dbs As Database
  Dim tdf As TableDef
    
  Set dbs = CurrentDb
  
  For Each tdf In dbs.TableDefs
    With tdf
      If Not .Name Like "MSys*" And .Attributes <> 1073741824 _
                                And .Attributes = 1 Then
        .Attributes = .Attributes - dbHiddenObject
      End If
    End With
  Next tdf
  
  Set dbs = Nothing
End Sub

[مهند عبادي]

أخي الخيال هل ظهر معك الجدول بهذه الطريقة ..؟

لأنه لن يظهر هكذا

[هشام علام]

السلام عليكم

الأخ الحبيب مهند ،،

اسلوب جميل فى الإخفاء ويمكن الإعتماد عليه إلا إننى بفضل الله تمكنت من إظهار الجداول

الملف مرفق

Hide تم إظهار الجداول - هشام علام.rar

[مهند عبادي]

صحيح أخي هشام الجداول ظهرت

ولكن هل يمكن ذكر الأسلوب الذي اتبعته لإظهار الجداول المخفية

[ظل السراب]

السلام عليكم ورحمة الله وبركاته

مساء الخير

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

الجداول النظام في ملف الاكسيس بعد ذلك تقوم بفتح هذي الجداول سوف تشاهد اسم

الجداول التي في الملف وبعد ذلك تنشي مكرو يقوم باستيراد الجدول الذي تريد

اتمنا ان اكون قد وضحت ذلك

والسلام عليكم

[أبو هادي]

السلام عليكم

أنزلت المثال والكود مشاركة الأخ الخيال وأظهر 5 جداول كانت مخفية .

بعد إضافة مرجع DAO .

تحياتي .

[مهند عبادي]

الشيء الذي حدث معي أني وجدت هذا الملف بين ملفاتي التي وضعتها في مجلد التجارب لدي ..

ولم أذكر ما فعلته به بالضبط

وعندما جربت نفس اسلوب الأخ الخيال لم يظهر عندي أي ملف رغم أني أعدت المحاولة عدة مرات

قلت في نفسي أضعه في المنتدى لكي نتشارك في معرفة كيفية اختفاء الجدول

على أي حال أشكركم على الجهد

[أمجد جمالي]

السلام عليكم

جربت كود الاخ خيال

واضفت مكتبة DAO كما اشار الاستاذ ابو هادي

هذا هو المثال المعدل

تحياتي

Hide Teble.rar

[هشام علام]

نعم اخى مهند

الإسلوب الذى اتبعته هو اضافة المرجع مع الكود التالى ..

Dim dbs As Database, tdf As TableDef
    
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
    If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _
    And tdf.Attributes = 1 Then
            tdf.Attributes = tdf.Attributes - dbHiddenObject
    End If
    Next tdf
    Set dbs = Nothing

على فكرة هذه الحماية قوية فى حالة لو كانت بصيغة MDE

اعتقد انك نسيت ان تحولها اخ مهند الى MDE :(

تحياتى ،،،

[SABER_EDP]

السلام عليكم

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

وهذا يسبب مشكلة فى حالة تضخم القاعدة وزيادة حجمها ؟

فهل من حل؟

اخوكم صابر

[هشام علام]

اعتقد أن الإخفاء أو الإظهار سواء بالكود أو بغيرة ليس له تأثير على الضغط او الحجم ،،

ربما تكون القاعدة به خطأ فى التصميم ..

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

هذا رأى ربما يكون باقى الاخوة لهم رأى أخر

تحياتى ،،،

[biskra]

جربت طريقة لاٍخفاء الجداول عن طريق تغيير مسمياتها باٍضافة كلمة usys عند بداية كل جدول, وأشتغلت القاعدة عاديا و استعملت الضغط و الاصلاح و لم تتأثر, رغم أن الجداول مخفية.

توضيح:

مثلا عندي جدول اسمه units

نغير التسمية اٍلى usysunits فاْن الجدول يختفي تلقائيا دون الحاجة الى وضع كود.

تم تعديل نوفمبر 6, 2004 بواسطه biskra

[أمجد جمالي]

بارك الله فيك اخي الكريم biskra

فكره حلوه كتير

والله يعطيك العافيه هلى هذه المعلومة

بس السؤال انا استدعي البيانات من الجداول باستخدام ال Ado هل يؤثر ذلك خصوصاً وان اسم الجدول قد تغير

تحياتي

[biskra]

و الله يا أخي أمجد فكرة ADO لم تدخل دماغي الى اليوم كوني جد مبتدىء . قم بالتجربة على مثال و استخلص النتيجة.

[hoot109]

مرحبا ,,,,

واللة فكرة ممتازة واللة يجزيك خير....

بس ياليت تعلمنا اشلون اشيل هذا الاخفاء بعد الاخفاء

والف شكرلك

[مصلح الحريصي]

يمكنك إظهار الجداول المخفية حتى ولو كان بالكود .

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