Annuler la suppression

Cette méthode ne fonctionne que si la table vient d'être supprimée et que la base n'a pas encore été refermée !!

Sub UnDeleteTable()
    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 UndeletedTable FROM [" _
                           & strTablename & "];"
            DoCmd.SetWarnings False
            DoCmd.RunSQL StrSqlString
            DoCmd.SetWarnings True
            MsgBox "Une table a été restaurée", _
                   vbOKOnly, "Restaurer"
            GoTo Exit_undo
        End If
    Next i
    MsgBox "Pas de table récupérable", vbOKOnly, "Pas trouvé"
    '
Exit_undo:
    Set db = Nothing
    Exit Sub
    '
Err_undo:
    MsgBox Err.Description
    Resume Exit_undo
End Sub