[Resolvido]Vinculo de tabelas

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?

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.

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?

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.

Boa muito obrigado