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

 988008 visiteurs

 1 visiteur en ligne

Recherche
 
Fermer

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