Afficher les tables liées masquées

Salut mes amis,
J'ai utlisé le code suivant pour masquer mes tables liées.

Code:

---

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

---

Est 'il possible de les faire apparaitre? Si oui comment? merci d'avance

Bonjour.

Tu ne les a pas masqué, tu les a supprimé de ta base.

Il faut recréer les liens.

Pour masquer ou demasquer les tables :

Code:

---

1 2 3

Application.SetHiddenAttribute acTable, "TaTable", True ' Masque   Application.SetHiddenAttribute acTable, "TaTable", False ' Démasque

---

A+

Mais si je veux tout masquer et afficher. je fais comment je parle de tous les tables.

Bonsoir,

Eh bien à la place de tes lignes de code 9 et 10, tu utilises soit la première, soit la seconde ligne de code que t'a fournie marot_r.

Cordialement,