[Resolvido]botões de comando

Parabéns por este fórum, espetacular para quem quer aprender algo de novo.
Gosto do access mas pouco percebo de VB e no Access por vezes e necessário utilizá-lo.
Precisava do seguinte apoio.
Tenho um tabela “tab_utilizador”; o utilizador tem campo perfil (admin; consulta; normal)
Depois de autenticar no formulário “fr_abertura” e abrir o formulário “for_principal ”queria que os “botões de comando” ficassem visíveis conforme o acesso.
O formulário “Fr_principal” tem os seguintes botões de comando para ser visível da seguinte forma:
O perfil administrador vê tudo;
O perfil “normal” vê o botão comando “cmd_a”, “cmd_b”, “cmd_c “, “cmd_d”, “cmd_e”
O perfil “consulta” vê botão comando “cmd_d”, “cmd_e”

Obrigado pelo possível apoio.

Amaral Correia, seja bem vindo ao fórum.

Amigão, dê sempre uma procurada antes de abrir qualquer tópico, aqui já existe quase de tudo.

Veja este exemplo entre muitos outros por aqui mesmo;

http://maximoaccess.forumeiros.com/t74-login-com-niveis-de-acesso

Nota:
Quando procurar, procure por: Níveis de Acesso

Caro JPaulo,
O exemplo que enviou tem dois formulários (administrador e usuario)
O que pretendia era existir apenas um formulário e os botões de comando estavam visíveis conforme o perfil de utilizador. Vou necessitar desta situação em outros formulários

obrigado

Amaral

Então veja se esse exemplo te ajuda.

Abraços

Bom dia pessoal,

não consgio resolver o problemas sobre o nivel de acesso que o utilizador tem na bd.
mando o ficheiro para verificarem.
o que se pretende é:
o nivel "Administrador" tem acesso a tudo
o nivel "normal" não tem acesso /não visualiza o botão "fechar formulário"
o nivel "consulta" só tem acesso / visualiza os botões "Bt_F" e "Bt_G"

obrigado.

Bom dia, amaral

O ficheiro deve ser em formato 2003, pois a maioria dos utilizadores o usa.
Coloque, ao abrir o formulário
1º - se tiver o utilizador armazenado numa variável
If Utilizador="Administrador" Then
BotaoA.visible=true
BotaoB.visible=true
elseif utilizador="Normal" Then
BotaoA.visible=true
BotaoB.visible=false
elseif utilizador="Consulta" Then
BotaoA.visible=false
BotaoB.visible=true
end if

2º - utilizar dlookup para detectar o utilizador
adapte Utilizador para DLookup(...)

Amaral

Se quer implementar no teu aplicativo acesso a usuários, é bom começar a programar com VBA.
Você está utilizando macros na propriedade após atualizar da combobox cboCurrentEmployee
O que me parece é que nessa macro tem a váriavel IDdeUtilizadorActual para capturar a id do usuário atual, mas logo se perde, pois é temporária.

Nós passamos 2 exemplos para você estudar e usar.

Eu não gosto de macros, prefiro ter certeza do que meu aplicativo irá fazer usando código VBA.

Abraço

Balem,

podia-me explicar/mostrar qual a melhor solução para resolver este problema.
sendo eu um básico em VB.

obrigado

Amaral

Veja as modificações que fiz no teu exemplo.

Mas entenda que isso é somente para um aprendizado.

Para se fazer um aplicativo consistente, melhor você aprender nos exemplos já passados.

boa tarde Balem,

obrigado pela ajuda.
vou, tentar, perceber e conhecer o VB.
Já agora, existe algum manual ou site para iniciação ao VB?

mais uma vez obrigado.

esqueci de selecionar a opção "resolvido"