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

[فتى الوادي]

السلام عليكم

عندي قاعدة بيانات على جهاز آخر .... ومنذ سنتين تقريباً وأنا أعمل عليها زي السكر ... وفجأة ....! لم أعد قادراً على فتح القاعدة ؟!!!

عند تشغيل القاعدة لا يظهر لي شي وتبقى شريط الأكسيس فقط ...

المشكلة هنا في :1 - أن القاعدة تم ألغاء الشفت بها

2- القاعدة تم وضع حماية عليها .. بحيث لو نسخت ووضعت على جهاز آخر لن تعمل .

3- الجداول مخفيه بالكود .

حاولت أن ألغي عمل الشفت بكود ألغاء الشفت من قاعدة أخرى ولم أفلح !؟؟

حاولت أن أستورد الجدوال .. ولم أفلح ؟!!!

فما هي المشكلة ؟؟ وكيف أستورد الجدوال وهي مخفيه ؟؟؟؟؟؟ وما سبب هذه المشكلة ..

والسلام

[فتى الوادي]

للرفع... (y)

[جمال فايز]

الحل بأذن الله تعالى بسيط وهو كالتالى :-

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

لا تنسانا من دعاء الخير .

[فتى الوادي]

السلام عليكم

أشكر لك أهتمامك ..

لكن المبرمج لم يضع كود أنتهاء .. لأن المبرمج هو ( حضرتي ) :')

والمشكلة أالأهم أني لا أستطيع أستيراد الجدوال ... ولو أستطعت أستيرادها لهانت المشكلة ..

[محمد طاهر عرفه]

جرب اعادة تحميل الاوفيس علي الجهاز

و جرب نقل ادوات الحماية الي جهاز آخر ( سواء كانت ملف أو ريجيستري ) و نقل القاعدة اليه

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

[جمال فايز]

أخى الكريم فتى الوادى

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

هل وضعت الكود لأخفاء جداول الاكسس بداخل نموذج أم من الماكرو وعلى العموم اليك الطريقة التالية وبالتوفيق بأذن الله تعالى :-

أنت قلت برسالتك بان شريط الاكسس فقط هو الذى يظهر بالبرنامج وعلى العموم هذا كافى للغرض .

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

[osama457]

اخوي فتى الوادي

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

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

ومعه مثال له عسى الله ينفع به

' كود استيراد الجداول
  Dim dbsDB As Database
  Dim tdf As TableDef
  Dim I As Integer, TableNames As String
  Dim strPath As String
  Dim strPassWord As String
  strPath = "المسار"
  strPassWord = "كلمة المرور ان وجدت"
   strPassWord = ";pwd=" & strPassWord
   Set dbsDB = OpenDatabase(Name:=strPath, _
                            Options:=True, _
                            ReadOnly:=True, _
                            Connect:=strPassWord)
For Each tdf In dbsDB.TableDefs
    If Left(tdf.Name, 4) <> "MSys" Then
        DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acTable, tdf.Name, tdf.Name, False
        I = I + 1
        TableNames = TableNames & vbCrLf & I & " - " & tdf.Name
    End If
Next
dbsDB.Close
Set dbsDB = Nothing
    MsgBox "تم استيراد عدد " & I & " جدول أسماءها " & TableNames, , ""

 ' كود لاظهرا الجداول لو كانت مخفيه
Dim dbsDB As Database
Dim tdf As TableDef
    Set dbsDB = CurrentDb
    For Each tdf In dbsDB.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 dbsDB = Nothing

TransferAllTables22.zip

تم تعديل يناير 5, 2004 بواسطه osama457

[فتى الوادي]

أشكر للجميع ردودهم ..

وشكر خاص للأخ أسامة ... ولا أملك لك إلا الدعاء .. أنحلت المشكلة ...

غفر الله لكم ولوالديكم ....

[فهد الدوسري]

الله يجزيكم خير على روح التعاون بينكم أدام الله ذلك علينا

[dr_ghost]

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

[أبو إبراهيم الغامدي]

تأكد من أنك تستورد في قاعدة بيانات خالية ثم قم باستيراد جميع الجداول حتى جداول النظام.

جداول النظام فيها بيانات العلاقات الخاصة بالجداول