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

 1015385 visiteurs

 1 visiteur en ligne

Supprimer les tables liées

Les tables liées dans une base frontale sont représentées par un raccourci.

Pour supprimer tous ces raccourcis, on peut utiliser le code suivant.

Public Function DeleteConnectedTable()
    '// Supprime le raccouci vers une table attachée
    Dim dbs As DAO.Database, tdf As DAO.TableDef
    Dim Tbl As Object
    Set dbs = CurrentDb()
    For Each Tbl In dbs.TableDefs
        If Len(Tbl.Connect) > 0 Then
            'table attachée
            Debug.Print Tbl.Name
            dbs.Execute "Drop Table [" & Tbl.Name & "]"
        End If
    Next
    Set tdf = Nothing
    Set dbs = Nothing
End Function


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

Vous êtes ici :   Accueil » Supprimer les tables liées