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

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


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

السلام عليكم

هذا ملف أكسس 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

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

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

مساء الخير

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

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

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

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

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

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

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

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

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

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

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

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

نعم اخى مهند

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

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 :(

تحياتى ،،،

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

السلام عليكم

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

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

فهل من حل؟

اخوكم صابر

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

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

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

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

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

تحياتى ،،،

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

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

توضيح:

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

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

تم تعديل بواسطه biskra
رابط هذا التعليق
شارك

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

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

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

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

تحياتي

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

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

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

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

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

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

Important Information