[Resolvido]Bloquear Botão - Usuário

Galera, Boa tarde!

Estou com uma dificuldade em ocultar um botão para determinados usuários.

Tenho uma tabela com os campos:
* Nome
* Sobrenome
* Nivel

Sendo que quero 1 para administrador e 2 para usuário normal.


Como colocar um botão em um formulário e deixá-lo ativado apenas se o usuário tiver Nível 1? Caso o nível do mesmo seja 2 o botão ficara desativado.

Tópico movido para a sala correta.

Utilize o DLookup para validar na tabela qual o nível do usuário e mediante isso tem de fazer um If ao carregar do seu formulario.

Oi Jpaulo

Procurei alguns códigos de como aplicar o código e estou quebrando a cabeça o.O, sou iniciante em VBA, estou tentando usar:

DLookup("Nivel","Login","Nivel = "1")

Mas ele me da erro ao compilar. Poderia me ajudar?

Veja este exemplo;

1º Faça login com o Admin e veja o botão "Novo" do formulario.
2º Faça login com o JPaulo e veja esse mesmo botão.

Boa tarde Jpaulo,

Tentei implantar em meu sistema, mas não entendo muito de VBA xD, mas agradeço a atenção. pode encerrar o tópico.

Se serviu fico feliz.

Obrigado pelo retorno o forum agradece.

JPaulo, desculpe-me em reabrir o tópico, consegui aplicar seu exemplo, funcionou legal, apenas uma dúvida!

Eu também precisaria bloquear botões que estão em outros formulários. Exemplo nas telas abaixo:


Tela de Login > Tela Inicial
O exemplo que você me enviou, após sair da tela de Login, vai para a "tela inicial" e bloqueia os botões, como colocar para bloquear botões em outros formulários, como por exemplo:

Tela de Login > Tela Inicial > Cadastros - Precisaria bloquear um botão chamado "Alterar", poderia me ajudar?

Kelvin bom dia;

Amigão, é sempre igual, veja o simples;

JPaulo agradeço novamente a ajuda, consegui colocar em outras páginas, sou muito leigo em VBA ainda , agradeço a ajuda e peço desculpas pela minha chatice

Traquilo.

Se precisar de novo dê um grito.

Preciso de apenas mais uma ajudinha nesse exemplo que me enviou JPaulo.

Estou tentando criar um formulário para troca de senha do usuário logado, porém não sei como fazer as ligações entre a tabela tblDados e a tblUsuarios, pode me ajudar?

Aguarde...

Veja se serve ao seu proposito;

Oi JPaulo, quando tento alterar a senha ele me da erro em ".SQL = strSQL". O erro ocorre até mesmo no exemplo que você me enviou.

Ative a referencia VBA "Microsoft DAO 3.6 Object Library"

Bom dia Jpaulo,

Consegui fazer funcionar, agradeço mesmo a atenção, este fórum está me tirando muitas dúvidas e meu conhecimento crescendo cada vez mais, agradeço a vocês!

Obrigado!

Obrigado pelo retorno o forum agradece.