اذهب الي المحتوي
أوفيسنا

استرجاع الجداول المحذوفة فى اكسس


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

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

نظرا لطلب اخى راعى الغنم وانا اكن لهذا الرجل كل تقدير واحترام

 

كيفية استرجاع الجداول المحذوفة

 

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

1 - لم يتم اغلاق قاعدة البانات بعد حذف الجدولا

2 - لم يتم ضغطها

3 - تم حذف الجدول باستخدام واجهة مستخدم اكسس

 

ضع هذا الكود فى وحدة نمطيه

Function UnDeleteTable(Optional sName As String)

Dim db As DAO.DATABASE
Dim tdf As DAO.TableDef
Dim sTable As String
Dim sSQL As String
Dim sMsg As String

    If IsMissing(sName) Then sName = "RestoredTable"
    If Len(sName) = 0 Then sName = "RestoredTable"
    
    Set db = CurrentDb()

    For Each tdf In db.TableDefs
        If Left(tdf.Name, 4) = "~tmp" Then
           sTable = tdf.Name
           sSQL = "SELECT [" & sTable & "].* INTO " & sName
           sSQL = sSQL & " FROM [" & sTable & "];"
           
           db.Execute sSQL
           
           sMsg = "A deleted table has been restored as " & sName
           MsgBox sMsg, vbOKOnly, "Restored"
           GoTo Exit_Undelete
        End If
    Next
    

    MsgBox "No Recoverable Tables Found", vbOKOnly, "Not Found"

Exit_Undelete:
     Set db = Nothing
     Exit Function
     
Err_Undelete:
     MsgBox Err.Description
     Resume Exit_Undelete

End Function

ويمكنك استدعائها فقط بهذا الكود

    UndeleteTable("MyTable")

لااعلم مدى اهمية ذلك بالنسبة لكم اخوانى الكرام ولكن ما كنت احبسه عنكم

 

قم بتصميم قاعدة بينات للتجربة

وانشء الجداول واضف بسجلاتك ثم قم بمسها

واستدعها من خلاا الكود

 

 

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

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

نظرا لطلب اخى راعى الغنم وانا اكن لهذا الرجل كل تقدير واحترام

 

الله يكرمك ويعلي مراتبك ويزيدك من افضاله ونعمه التي لا تحصى

اعجز عن شكر اطرائك ومدحك لي وانا اقل مما تفضلت به ولا استطيع ان اجازيك

ولكن اجعل جزائك من الله سبحانه فهو القادر على مجازاتك..

اعتذر عن تاخري في الرد لأنقطاع النت لدي

وشكرا مرة اخرى ع مقالك الجميل...

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

راعى الغنم اخ جميل واستاذ عزيز جدا جدا على قلوبنا

ونسيت التوقيع عالم مارد  :yes:  :wink2:

 

 

تسلم ايدك

انت تعلم ما بقلبي لك من معزة خاصة ايضا

فشكرا لك ع ثنائك لي وجزاك الله عني كل خير..

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information