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

اختي الفاضلة

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

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

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

2- عدم ضغط قاعدة البيانات بعد حذف الجدول .

3- لا يمكن سوى استعادة الجدول المحذوف أخيراً .

الان نقوم بإنشاء نموذج فاضي ونضع عليه زر امر وليكن بإسم RECOVER ثم نضع هذا الكود

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 = sName & "   تم استعادة اسم الجدول بإسم  "
           MsgBox sMsg, vbOKOnly, "استعادة"
           GoTo Exit_Undelete
        End If
    Next
      
    MsgBox "لا يوجد جدول محذوف", vbOKOnly, "غير موجود"

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

End Function

ويتم استدعاء الوظيفة من خلال الضغط على زر الامر

Private Sub RECOVER_Click()
Call UnDeleteTable
End Sub

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

وهذا مثال على ذلك

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

UnDeleteTable.rar

اختكم

زهره