MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

5 participantes

    [Resolvido]Ocultar tabelas ligadas do Front

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Assis 3/4/2014, 18:16

    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


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8272
    Registrado : 05/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Alexandre Neves 3/4/2014, 19:10

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



    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Assis 3/4/2014, 19:37

    Boa tarde Alexandre

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

    No inicio ?

    Aguardo, obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8272
    Registrado : 05/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Alexandre Neves 3/4/2014, 19:39

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Assis 3/4/2014, 19:44

    Não resultou ...


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8272
    Registrado : 05/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Alexandre Neves 3/4/2014, 20:06

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Assis 3/4/2014, 20:13

    Continua a não resultar

    Se tirar o on error resume next da erro nesta linha

    Tb.Attributes = Tb.Attributes Or dbHiddenObject


    .................................................................................
    *** Só sei que nada sei ***
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3821
    Registrado : 04/04/2010

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Avelino Sampaio 3/4/2014, 23:10

    Assis, qual é necessidade de ocultar as tabelas vinculadas? Dependendo do grau de conhecimento da pessoa isso não adianta de nada.

    No aguardo


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Assis 3/4/2014, 23:14

    Boa noite Avelino

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


    .................................................................................
    *** Só sei que nada sei ***
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3821
    Registrado : 04/04/2010

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Avelino Sampaio 3/4/2014, 23:19

    O back-end está com senha ?  O acesso ao front-end é livre ?  passe o front-end para a extensão ACCDR que a pessoa não mais tem acesso ao Painel de controle.

    No aguardo


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Assis 3/4/2014, 23:29

    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


    .................................................................................
    *** Só sei que nada sei ***
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3821
    Registrado : 04/04/2010

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Avelino Sampaio 3/4/2014, 23:30

    Olha, quando se trabalha com tabelas vinculadas o foco na defesa deve ser não permitir que a pessoa tenha acesso ao Painel de Controle. Tendo acesso ao Painel de Controle pelo frond-end vc perderá a senha do back-end e/ou as tabelas poderão ser copiadas para outro bd livremente.



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3821
    Registrado : 04/04/2010

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Avelino Sampaio 3/4/2014, 23:38

    Neste caso vc tem que pôr uma senha no front-end. Mesmo que ele passe para ACCDB terá que ter a senha de acesso. Então como vc faz para não passar a senha de acesso do front-end para o usuário ? Usando um aplicativo externo que entre com a senha do front-end ao carregar. E este aplicativo eu disponibilizo no meu site, que se chama OPEN

    Estou surpreso de você ainda não ter aplicado o meu OPEN como defesa para o seu aplicativo. Ele justamente impede que a pessoa rode o aplicativo sem estar na extensão ACCDR.




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3821
    Registrado : 04/04/2010

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Avelino Sampaio 3/4/2014, 23:44

    Não adiante esconder as tabelas e as consultas por que basta entra na tabela de sistema MsysObjects que a senha do back-end estará a disposição, além dos nomes de cada tabela.

    Desabilitar a tecla SHIFT é outra coisa que ajuda mais também é de pouca eficiência.




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Assis 3/4/2014, 23:46

    Avelino

    O front tem um login com senha de acesso.

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

    No aguardo


    .................................................................................
    *** Só sei que nada sei ***
    mathusalmeida
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  mathusalmeida 4/4/2014, 02:16

    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.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Dilson 4/4/2014, 02:28

    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Assis 4/4/2014, 11:59

    Bom dia Dilson

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Ocultar tabelas ligadas do Front Empty Re: [Resolvido]Ocultar tabelas ligadas do Front

    Mensagem  Assis 4/4/2014, 12:10

    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


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 27/1/2023, 04:44