*كود* كود لإستعادة جدول محذوف

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

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

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

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

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

والآن إليك الكود :

Private Function Undoo()

Dim db As DAO.Database, strTablename As String

Dim i As Integer, StrSqlString As String

Set db = CurrentDb()

For i = 0 To db.TableDefs.Count - 1

If Left(db.TableDefs(i).Name, 4) = "~tmp" Then

strTablename = db.TableDefs(i).Name

StrSqlString = "SELECT DISTINCTROW [" & strTablename & _

"].* INTO " & InputBox("أدخل اسم الجدول المحذوف :") & " FROM [" & strTablename & "];"

DoCmd.SetWarnings False

DoCmd.RunSQL StrSqlString

DoCmd.SetWarnings True

MsgBox "A table has been restored as MyUndeletedTable", _

vbOKOnly, "Restored"

GoTo Exit_Undo

End If

Next i

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

Exit_Undo:

Set db = Nothing

Exit Function

Err_Undo:

MsgBox Err.Description

Resume Exit_Undo

End Function

:)

ولكم تحياتي