[Resolvido]Esconder e Mostrar tabelas

Estou a utilizar o código abaixo pego aqui no forum - Utilizo o Access 2007 (Esse codigo sim oculta a tabela nem marcando mostrar objetos ocultos aparece) fiz no access 2003 funcionou legal mas no 2007 não

Function EscondeTabelas()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Or dbHiddenObject
End If
Next
End Function

Function MostraTabelas()
For Each Tb In CurrentDb.TableDefs
If Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
End Function




Não estava funcionando, então dei uma mexida no código no esconder tabelas e funcionou no entanto o mostrar tabelas não consegui arrumar...

Function EscondeTabelas()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
If Not dbHiddenObject Then
Tb.Attributes = dbHiddenObject
End If
Next
End Function


agradeço a atenção!

Importe este módulo para o teu projeto e faça a chamada.
Abraço e sucesso.

olá!

é o mesmo código que vc me enviou

esta dando erro nessa linha


Tb.Attributes = Tb.Attributes Xor dbHiddenObject

Boa tarde meu amigo:
teste aqui e funcionou coloque os códigos em botões:

Código:


Private Sub Comando0_Click()
'MOSTRA
For Each Tb In CurrentDb.TableDefs
If Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
End Sub

Private Sub Comando1_Click()
'ESCONDE
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
If Not dbHiddenObject Then
Tb.Attributes = dbHiddenObject
End If
Next
End Sub



Engraçado criei um bd novo e fiz conforme as orientações que me passaram e funcionou direitinho

agora no meu banco atual continua dando erro.

vou importar todos os dados para um novo banco e testar dai retorno

por hora muito obrigado!