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

2 participantes

    [Resolvido]Vinculo de tabelas

    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]Vinculo de tabelas Empty [Resolvido]Vinculo de tabelas

    Mensagem  Oliveira89 3/11/2016, 15:07

    Boa tarde pessoal

    É o seguinte vinculei já a minha base de dados correctamente, contudo queria impedir um cliente de ver um campo de uma tabela, neste caso seria o campo password. tenho uma tabela com o campo password e queria impedir um cliente de aceder a essa tabela e ver.
    fiz o front e o back end incriptado, mas ainda tem acesso a ver essa tabela. o que poderei fazer?


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    Jair Martins
    Jair Martins
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 23/03/2016

    [Resolvido]Vinculo de tabelas Empty Re: [Resolvido]Vinculo de tabelas

    Mensagem  Jair Martins 3/11/2016, 17:49

    Olá, Oliveira89.

    O front end é um accde?

    Se for, aconselho a ter esta tabela no front end mesmo. Como você gera o accde a partir de um accdb, poderá usar um código para impedir todo e qualquer acesso ao modo estrutura do aplicativo, inclusive tabelas vinculadas, e disparar este código antes de instalar o accde. O código é:

    AlterarPropriedade "AllowBypassKey", dbBoolean, False


    Abs.
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]Vinculo de tabelas Empty Re: [Resolvido]Vinculo de tabelas

    Mensagem  Oliveira89 4/11/2016, 09:02

    Bom dia

    já tinha criado a extenção accde, contudo a vista de estrutura das tabelas continua operacional.
    Vc disse para criar uma tabela com esse codigo, mas como faço isso?


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    Jair Martins
    Jair Martins
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 23/03/2016

    [Resolvido]Vinculo de tabelas Empty Re: [Resolvido]Vinculo de tabelas

    Mensagem  Jair Martins 4/11/2016, 12:31

    Oliveira,


    Recomendo a seguinte estratégia, que é a que eu uso aqui. Observe que esta técnica não permite a exibição da lista de objetos. Nem tabelas, nem forms, nem consultas, nem nada. É um procedimento bastante radical.

    Então, antes de fazer, certifique-se que o seu aplicativo está completo e que todos os objetos de interface serão abertos somente a partir de códigos.

    1 - Vá nas Opções do Aplicativo e desabilite o uso das Teclas Especiais do Access e
    a exibição do Painel de Navegação.

    2 - Cole num módulo existente ou crie um novo módulo com a função abaixo:

    Function AlterarPropriedade(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

       Dim dbs As Database, prp As Property
       Const conPropNotFoundError = 3270

       Set dbs = CurrentDb
       On Error GoTo Change_err
       dbs.Properties(strPropName) = varPropValue
       AlterarPropriedade = True

    Change_bye:
       Exit Function

    Change_err:
       If Err = conPropNotFoundError Then  ' Propriedade não localizada.

    Set prp = dbs.CreateProperty(strPropName, _
               varPropType, varPropValue)
           dbs.Properties.Append prp
           Resume Next
       Else
           ' Erro desconhecido.
           AlterarPropriedade = False
           Resume Change_bye
       End If
       
    End Function


    3 - Crie um form com um comando que acione o código:
    AlterarPropriedade "AllowBypassKey", dbBoolean, False

    4 - Antes de instalar o accde, abra (no accde) este form e acione o comando.
    Está feito. Não há jeito nenhum de abrir qualquer objeto através do Painel de Navegação. Enquanto não for acionado o comando, você poderá abrir tanto o accde quanto o accdb utilizando a combinação Shift + F11.
    Nunca utilize o comando no accdb, a não ser que você tenha uma cópia de segurança.

    Qualquer dúvida, estou à disposição.

    Abs.
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]Vinculo de tabelas Empty Re: [Resolvido]Vinculo de tabelas

    Mensagem  Oliveira89 4/11/2016, 15:34

    Boa Wink muito obrigado


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira

      Data/hora atual: 3/12/2022, 05:28