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

كما أن الملف mdb الجداول لا زال بحجمه الطبيعي الذي كان عليه ولم اعمل له ضغط واصلاح

اخي الفاضل

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

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

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 نستطيع الان تغييره الى اي اسم نريد او نقوم بنسخ هذا الجدول المستعاد وتغيير اسمه الى مسمى الجدول السابق قبل الحذف

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

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

UnDeleteTable.rar