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

 987941 visiteurs

 3 visiteurs 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 5418 fois