Salut mes amis,
J'ai utlisé le code suivant pour masquer mes tables liées.
Est 'il possible de les faire apparaitre? Si oui comment? merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Public Function xKillLinks() Dim BD As DAO.Database Set BD = CurrentDb Dim tb As DAO.TableDef For Each tb In BD.TableDefs If left(tb.name, 4) <> "MSys" Then If Len(tb.connect) > 0 Then DoCmd.RunSQL "DROP TABLE [" & tb.name & "] ;" Debug.Print "effacement de " & tb.name & " -=#=> " & tb.connect End If End If Next tb End Function
Partager