[Resolvido]Ocultar tabelas ligadas do Front

Boa tarde amigos
Vou lançar um desafio.

Com este comando abaixo, eu consigo ocultar ou mostrar as tabelas de uma BD.

Mas quando a BD esta dividida Front, End, eu queria ocultar ou mostrar as tabelas Ligadas.

Será possivel alterar este comando para mostrar ou ocultar as tabelas do Front?

Private Sub Comando84_Click()
On Error Resume Next
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 "
End If
DoCmd.Quit
End Sub



Obrigado

Boa tarde, Assis
Para identificar as tabelas vinculadas, tenta o seguinte
If Tb.Connect ="" Then
Vinculada=False
Else
Vinculada=True
End If

Boa tarde Alexandre

E aonde coloco isso no mesmo botão de comando ?

No inicio ?

Aguardo, obrigado

Tenta
Private Sub Comando84_Click()
On Error Resume Next
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 and Tb.Connect <>"" 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 and Tb.Connect <>"" Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
MsgBox "Todas As Tabelas Estão Visíveis. ", vbExclamation, "Aviso "
End If
DoCmd.Quit
End Sub

Não resultou ...

Tenta
Private Sub Comando84_Click()
On Error Resume Next
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 and Len(tb.Connect) > 0 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 and Len(tb.Connect) > 0 Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
MsgBox "Todas As Tabelas Estão Visíveis. ", vbExclamation, "Aviso "
End If
DoCmd.Quit
End Sub

Continua a não resultar

Se tirar o on error resume next da erro nesta linha

Tb.Attributes = Tb.Attributes Or dbHiddenObject

Boa noite Avelino

É possivel importar essas tabelas com todos os dados para uma BD externa .

Avelino
Sim o back-end está com senha.

Sim front-end é livre.

Posso passar a extensão para ACCDR.

Mas também é possivel o inverso, isto é voltar a ACCDB ?

No aguardo

Avelino

O front tem um login com senha de acesso.

Alterei a extenção para ACCDR e o BD não abre

No aguardo

Com a permissão do grande mestre Avelino, Assis, altere novamente para a extensão accdb e veja se o bd abre.

Depois de alterar para accdr, você deve revincular as tabelas e usar o compactar e reparar o banco.

Tente e retorne.

Sucesso.

Olá amigos,
Na época enfrentei esse problema desse código não funcionar no front-end com as tabelas vinculadas. Fiz uns ajustes e funcionou:

If MsgBox("Selecione a Opçã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 = 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 = dbHiddenObject = 0
    End If
  Next
MsgBox "Todas As Tabelas Estão Visíveis. ", vbExclamation, "Aviso "
Exit Sub
End If
Exit Sub

hoje não uso mais esse recurso, sigo a técnica do open e protec que sem dúvida é mais eficiente.

Utilizo um arquivo que checa a versão do access e chama o open correspondente, ficou massa porque não me preocupo mais em passar o parâmetro /x run, pois ele viaja na instrução shell.

Bom dia Dilson

Tem um exemplo do Open para 2007, para eu poder estudar ?

Obrigado

Bom dia amigos Resolvido

Assim ao clikar num botão escondo as tabelas no Back End e no Front End, e bloqueio a Tecla Shift

Private Sub Comando58_Click()
If MsgBox("Deseja Ocultar as Tabelas ?" & vbCrLf & "Selecione a Opcção Pretendida ! ", vbYesNo + vbQuestion, "Pergunta") = vbYes Then
AlterarPropriedade "AllowBypasskey", dbBoolean, False
Dim db As dao.Database
Set db = OpenDatabase(Caminho)
Dim Tb As TableDef
For Each Tb In db.TableDefs
If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Or dbHiddenObject
End If
Next
Call Comando85_Click
MsgBox "Todas As Tabelas Foram Ocultas. ", vbExclamation, "Aviso "
Else
AlterarPropriedade "AllowBypasskey", dbBoolean, True
Dim db1 As dao.Database
Set db1 = OpenDatabase(Caminho)
Dim tb1 As TableDef
For Each tb1 In db1.TableDefs
If tb1.Attributes And dbHiddenObject Then
tb1.Attributes = tb1.Attributes Xor dbHiddenObject
End If
Next
Call Comando87_Click
MsgBox "Tabelas Visíveis. ", vbExclamation, "Aviso "
End If
DoCmd.Quit
End Sub


Private Sub Comando85_Click()
DoCmd.SetWarnings False
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
  If Not Tb.Attributes And dbHiddenObject Then
     Tb.Attributes = dbHiddenObject
  End If
Next
End Sub

Private Sub Comando87_Click()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
  If Tb.Attributes And dbHiddenObject Then
     Tb.Attributes = dbHiddenObject = 0
  End If
Next
End Sub