En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1029810 visiteurs

 1 visiteur en ligne

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

Catégorie : Les mémos - Tables
Page lue 8262 fois

Vous êtes ici :   Accueil » Annuler la suppression