[Resolvido]Será possivel ocultar tabelas no back end

Boa tarde


Com este comando num botão consigo ocultra ou mostrar todas as tabelas de uma bd


If MsgBox("Selecione a Opcção Pretendida ! ", vbYesNo + vbQuestion, "Pergunta") = vbYes Then
DoCmd.SetWarnings False
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
MsgBox "Todas As Tabelas Foram Ocultas. ", vbExclamation, "Aviso "
Else
For Each Tb In Currentdb.TableDefs
If Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
MsgBox "Todas As Tabelas Estão Visíveis. ", vbExclamation, "Aviso "
Exit Sub
End If
Exit Sub

E como seria para as esconder no back end, se o back end estiver na mesma diretoria.

Obrigado

Não seria só usar um If junto com o Len(Dir())? Se retornar maior que 0 oculta, caso contrário, exibe.

Ola Criquio

+ ou - assim ? Não

If Len(Dir())>0 Then

If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Or dbHiddenObject
End If

End if

Mas seria passando o nome do arquivo:

If Len(Dir(CurrentProject.Path & "\Nome do backend.mdb")) > 0 Then

Bom dia

Fiz assim, não dá erro mas não esconde as tabelas no back end "Agenda_be.accdb"

If Len(Dir(CurrentProject.path & "\Agenda_be.accdb")) > 0 Then

If MsgBox("Deseja Ocultar as Tabelas ? Selecione a Opcção Pretendida ! ", vbYesNo + vbQuestion, "Pergunta") = vbYes Then
DoCmd.SetWarnings False
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
MsgBox "Todas As Tabelas Foram Ocultas. ", vbExclamation, "Aviso "
Else
For Each Tb In CurrentDb.TableDefs
If Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
MsgBox "Todas As Tabelas Estão Visíveis. ", vbExclamation, "Aviso "
Exit Sub
End If
Exit Sub
End If
End If

.
http://support.microsoft.com/kb/188801

Obrigado Ricardo mas não consigo ...

Bom dia,

Inclua as linhas abaixo:

Dim db As Database
Set db = OpenDatabase("C:\NomeArquivo.accdb")

E altere:

For Each Tb In CurrentDb.TableDefs

para:

For Each Tb In db.TableDefs

Pode tambem testar;

Dim strCaminho As String
Dim MinhaPassword As Variant
Dim Tb As TableDef
Dim TbPropriedades As Property
   
strCaminho = "C:\Assis.mdb"
MinhaPassword = ""

If Dir(strCaminho) <> "" Then

Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strCaminho, False, False, ";PWD=" & MinhaPassword)
objaccess.OpenCurrentDatabase filepath:=strCaminho

With db
For Each Tb In .TableDefs
If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = dbHiddenObject
End If
Next Tb
    End With
End If

Ou ainda melhor;

Dim strCaminho As String
Dim MinhaPassword As Variant
Dim Tb As TableDef
Dim I As Integer
Dim x As Integer
Dim tblNome As String

strCaminho = "C:\Assis.mdb"
MinhaPassword = ""

If Dir(strCaminho) <> "" Then

Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strCaminho, False, False, ";PWD=" & MinhaPassword)

       For I = 0 To db.TableDefs.Count - 1
            Set Tb = db.TableDefs(I)
                tblNome = Tb.Name
        If Not tblNome Like "MSYS*" Then
        'Value = 0 mostra tabelas
        'Value = 1 oculta tabelas
            db.TableDefs(tblNome).Properties("Attributes").Value = 0
        x = x + 1
    End If
  Next I
End If

Obrigado Cláudio, e JPaulo

Cláudio no sua dica, só alterei esta linha
Set db = OpenDatabase("C:\NomeArquivo.accdb")

Para
Set db = OpenDatabase((CurrentProject.path & "\Agenda_be.accdb"))

Funcionam os dois

JPaulo

MinhaPassword = ""

If Dir(strCaminho) <> "" Then

Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strCaminho, False, False, ";PWD=" & MinhaPassword)

Como ponho aqui uma Password - Exemplo "Assis"

Obrigado

É a password do banco que vai abrir;

MinhaPassword = "Assis"

Bgrigado JPaulo
Bom fim de semana