[Resolvido]Dúvida no código VBA para Permissões de Acesso

Bom dia / Boa tarde / Boa noite,

Eu gostaria de saber como escrevo um código em que ao abrir o FOMULÁRIO MENU, seja identificado qual usuário está logado (já inseri no formulário o código para mostrar usuário logado) e busque na tabela usuários quais botões estão marcados como falso para este usuário e então ao carregar o formulário estes botões fiquem como desativados.

Seria algo assim:

Se CAD do usuário logado for igual a falso então btcad = enable.

Não consigo fazer este código no meu formulário, tentei de diversas maneiras e acredito estar escrevendo o mesmo errado. Se alguém puder me explicar como fazê-lo ficarei imensamente grata.

*Obs.: pesquisei em outros fóruns e tópicos se algum apresentava a resposta para está dúvida ou alguma parecida, mas nenhum exemplo que encontrei conseguiu esclarecer minha dúvida.

Como sou ainda leiga na linguagem VBA peço que tenham compreensão.

Obrigada,

Olá seja bem vinda ao fórum.

Quer anexar aqui parte do seu banco para a ajudarmos ?

Ou no limite detalhe os nomes das tabelas e campos ou mostre-nos qual código tem dificuldades.

OI,

Vou anexar um arquivo com o código do formindex (formulário do menu).

Como não sei anexar dois arquivos, vou abrir outra resposta para anexar o formlogin (formulário do login).

O nome dos campos do FormIndex:

Btcad
Btcome
Btprod
Btlogi
btfatu
btcomp
btquad
btsair
txtusuario

O nome dos campos do FormLogin:
CBOLOGIN
txtsenha
Btsair
btentrar

Minha tabela se chama tblusuarios
Onde possui os seguintes campos:
IDUSER - texto
NUSER - texto
SENHA - texto
E-MAIL - texto
REC - sim/não
COME - sim/não
PROD - sim/não
LOGI - sim/não
FATU - sim/não
QUAD - sim/não
COMP - sim/não
CAD - sim/não

Eu quero desativar os botões com base no usuário logado. Ou seja, se o usuário logado for o ADMIN então verifique se CAD é verdadeiro ou falso, caso seja falso então o BTCAD é desativado.

Código do formlogin.

Você não consegue anexar o seu banco ?

É que não vejo algumas coisas aqui.

Como é que você obtem a senha do user para validar se está correta ?

Código:

ElseIf Me.TXTSENHA <> senhauser Then

A validação que você terá de fazer é ao carregar do form "formindex", usando a função DLookup á tabela de users e validar se CAD é verdadeiro ou falso.

Assim é dificil de testar.

Segue o link para baixar o banco de dados:

https://www.dropbox.com/s/mpfko5o0fsv4j62/SISTEMA.accdb?dl=0

Agradeço muito a sua ajuda.

Veja se é o que pretende;

Seu banco aqui;
Download

É exatamente isso. Vou estudar o código agora para aprender a fazer. Muito obrigada mesmo.

[RESOLVIDO]

Fico feliz.

Obrigada pelo retorno o forum agradece.