Discussion :

[Rayan1]

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

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

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

[marot_r]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[Rayan1]

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

[madefemere]

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,