Recherche
Recherche
Les mémos
Je débute...
Visites

 1002170 visiteurs

 1 visiteur en ligne

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 5580 fois