MASQUER LES TABLES

Salut
Copies ce qui suit dans un nouveau module

'==========Þbut copies ========================= Function MasquerTables(Optional NomBase As String) As Boolean

On Error GoTo MasquerTables_Error

Dim db As Database
Dim wrkJet As Workspace
Dim Liste As TableDefs
Dim table As Object
Dim CheminBase As String

If IsNull(NomBase) Or IsEmpty(NomBase) Or NomBase = "" Then
CheminBase = CurrentDb.Name
Else
CheminBase = NomBase
End If

Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set db = wrkJet.OpenDatabase(CheminBase)


' Crée un nouvel objet TableDef.
Set Liste = db.TableDefs

For Each table In Liste
NomTable = table.Name
If Left$(NomTable, 4) <> "MSYS" Then
Liste(NomTable).Attributes = dbHiddenObject
End If
Next
MasquerTables = True

Fin:

db.Close
Set Liste = Nothing
Set db = Nothing
Set wrkJet = Nothing

Exit Function

MasquerTables_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
MasquerTables "
MasquerTables = False
Resume Fin

End Function
Function AfficherTablesMasquees(Optional NomBase As String) As Boolean

On Error GoTo AfficherTablesMasquees_Error


Dim db As Database
Dim wrkJet As Workspace
Dim Liste As TableDefs
Dim table As Object
Dim CheminBase As String

If IsNull(NomBase) Or IsEmpty(NomBase) Or NomBase = "" Then
CheminBase = CurrentDb.Name
Else
CheminBase = NomBase
End If

Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set db = wrkJet.OpenDatabase(CheminBase)


' Crée un nouvel objet TableDef.
Set Liste = db.TableDefs

For Each table In Liste
NomTable = table.Name
If Left$(NomTable, 4) <> "MSYS" Then
Liste(NomTable).Attributes = 0
End If
Next
AfficherTablesMasquees = True

Fin:

db.Close
Set Liste = Nothing
Set db = Nothing
Set wrkJet = Nothing

Exit Function

AfficherTablesMasquees_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
AfficherTablesMasquees "
AfficherTablesMasquees = False
Resume Fin

End Function

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
"David et Severine" <mwavivine@libertysurf.fr> a écrit dans le message de
news:bf0gif$jjg$1@news-reader1.wanadoo.fr...

Salut,

J'aimerais trouver un moyen de masquer toutes les tables sous access 97 en
une seule fois....

je n'ai pas trouver le moyen jusqu'a présent....

Merci d'avance !