[Resolvido]Como referenciar um formulário e um checkbox no codigo vba

Eu quero fazer um formulário cadastro de usuários e esses usuários terão acesso restrito à algumas coisas do banco. tenho um formulário Menu onde tem um botão para cada formulário. Ex. tem um botão que leva direto para o cadastro de pessoal

no formulário cadastro de usuário terá varios checkbox, cada um para um formulário. ex CheckBox Pessoal

eu quero que, quando eu cadastrar um usuário e eu não marcar o checkbox Pessoal, por exemplo, o botão do formulário Menu que está o formulário Pessoal não fique visível ao entrar com aquele usuário no sistema e caso eu marque o checkbox Pessoal, o botão esteja lá.

Alguém pode me ajudar a fazer isso em vba??

este é meu formulário menu..

Olá Amanda,

Por gentileza, mande um print da estrutura das tabelas (Relacionamento) ou uma cópia do seu banco de dados (somente partes envolvidas) para melhor análise.

Grato.

então... esse é meu relacionamento, mas acredito que vc não vá conseguir entender nada pois é muita coisa e está muito confuso.. eu ainda não fiz o formulário dos usuários que vão conter os checkbox

eu tentei fazer dessa forma mas não sei como referenciar de qual tabela vem o lista_valores que é o objeto sim/não. o nome da tabela é usuarios



Private Sub Form_Open(Cancel As Integer)
If lista_valores.Value = True Then
Comando25.Visible = True
Else
Comando25.Visible = False

End If
End Sub

Oi Amanda,

Se possível manda uma cópia do seu banco de dados (somente partes envolvidas) pra eu analisar e desenvolver uma solução.

Obrigado.

Att

Esse é o modelo.. o que eu quero:

O usuário Math com a senha 1234 foi cadastrado com as duas permissões, então, ao logar no sistema o formulário principal (menu) deve abrir e ele poderá ter acesso ao cadastro de usuários e a Alterar Valores .

Caso ele tenha sido cadastrado sem um dos acessos ou sem os dois acessos, ao clicar nos botões cadastro de usuários e  Alterar Valores, deve aparecer uma mensagem avisando que este usuário não tem o acesso permitido, os formulário não devem abrir e retorna ao formulário principal (menu).

Se alguém souber me dizer também o pq de estar aparecendo "item não encontrado nesta coleção" após fazer o login eu agradeço.. peguei o código de uma video aula mas apena isso deu erro e eu gostaria de saber como retirar.

Amanda,

Fiz um cadastro de usuário e suas permissões de acesso, conforme abaixo:



Acessos:




Menu habilitado conforme acesso liberado:




Obs.: Os botoes do menu principal foi atribuido um valor na sua propriedade "Marca" (no código está Tag) que é igual ao idmenu da tabela "Tb_Menu"

Acredito que irá te ajudar.

Segue versão do sistema para sua avaliação.

Um Abraço

Oi, Alexandre! o que você fez é exatamente o que eu preciso! muito obrigada! mas tem algumas coisas que não estão funcionando.. quando eu adiciono um novo registro o botão "novo" fica desabilitado e as permissões de acesso se duplicam ai fica duas de cada e se eu fecho o formulário e abro novamente pra adicionar outro usuário ele duplica mais vezes e depois do primeiro usuário q vc cria toda vez q entra no menu ele aparece desabilitado todos os botões..Você poderia me ajudar a arrumar isso?

Bom dia Amanda,

Vou verificar este problema e te mando uma nova versão.

Uma sugestão:
Este modelo de menu de sistema não é o mais correto, pois, se você tiver que colocar mais um botão de uma funcionalidade qualquer (Ex.: Folha de Pagamento), vc vai ter que ajustar os botoes no menu, cadastrar um novo menu na tabela e etc.
Vou criar um modelo de menu.


Att.

Alexandre

ok! estarei no aguardo, obrigada!

eu vi que ao colocar o agrupar por na consulta csMenuUser todas as duplicações somem, porém aparece uma mensagem no rodapé falando que este recordset não pode ser atualizado. Há alguma forma de tornar ele atualizável com o agrupar por ?

sobre a sua sugestão.. como vc acha que seria melhor fazer as permissões ? pq eu preciso delas, mas n sei se eventualmente eu terei que implementar novas.

Se eu criasse um formulário com a tabela tbl_Menu para poder cadastrar eventuais botões adicionais daria certo?

Olá Amanda,

Esta consulta compõe a tela de Acessos do cadastro de usuários, e não deve ser alterada.

A duplicação de dados do menu já foi corrigida.

Segue versão nova do sistema.

Boa sorte.

Abs

Olá Amanda,

sobre a sua sugestão.. como vc acha que seria melhor fazer as permissões ? pq eu preciso delas, mas n sei se eventualmente eu terei que implementar novas.

Se eu criasse um formulário com a tabela tbl_Menu para poder cadastrar eventuais botões adicionais daria certo?

O que seria melhor para o sistema é a implementação do Ribbon (Faixa de opções) para compor o menu.
Aqui no fórum existem várias mensagens sobre este assunto.

Da forma omo foi implementado o menu do teu sistema, toda vez que for criar uma nova funcionalidade, é necessário inserir o botão, e colocar na propriedade "marca" seu respectivo número, se possivel na sequencia (Acho que o ultimo botão está com a marca 24).

Na tabela "Tbl_Menu", vc cadastra o idmenu com o valor que vc informou na Marca deste botão novo, e também cadastra a descrição deste botão. ex.:

idmenu nome_menu
25 Cadastro exemplo


O resto o sistema faz automaticamente.

boa sorte

abs

Olá Amanda,

sobre a sua sugestão.. como vc acha que seria melhor fazer as permissões ? pq eu preciso delas, mas n sei se eventualmente eu terei que implementar novas.

Se eu criasse um formulário com a tabela tbl_Menu para poder cadastrar eventuais botões adicionais daria certo?

O que seria melhor para o sistema é a implementação do Ribbon (Faixa de opções) para compor o menu.
Aqui no fórum existem várias mensagens sobre este assunto.

Da forma omo foi implementado o menu do teu sistema, toda vez que for criar uma nova funcionalidade, é necessário inserir o botão, e colocar na propriedade "marca" seu respectivo número, se possivel na sequencia (Acho que o ultimo botão está com a marca 24).

Na tabela "Tbl_Menu", vc cadastra o idmenu com o valor que vc informou na Marca deste botão novo, e também cadastra a descrição deste botão. ex.:

idmenu nome_menu
25 Cadastro exemplo


O resto o sistema faz automaticamente.

boa sorte

abs

Olá Amanda,

sobre a sua sugestão.. como vc acha que seria melhor fazer as permissões ? pq eu preciso delas, mas n sei se eventualmente eu terei que implementar novas.

Se eu criasse um formulário com a tabela tbl_Menu para poder cadastrar eventuais botões adicionais daria certo?

O que seria melhor para o sistema é a implementação do Ribbon (Faixa de opções) para compor o menu.
Aqui no fórum existem várias mensagens sobre este assunto.

Da forma omo foi implementado o menu do teu sistema, toda vez que for criar uma nova funcionalidade, é necessário inserir o botão, e colocar na propriedade "marca" seu respectivo número, se possivel na sequencia (Acho que o ultimo botão está com a marca 24).

Na tabela "Tbl_Menu", vc cadastra o idmenu com o valor que vc informou na Marca deste botão novo, e também cadastra a descrição deste botão. ex.:

idmenu nome_menu
25 Cadastro exemplo


O resto o sistema faz automaticamente.

boa sorte

abs

Olá, Alexandre!

O menu está quase perfeito! eu consegui colocar ele no meu banco e fiz inúmeros testes. Entre esses testes, eu encontrei mais dois errinhos que eu tentei resolver mas não consegui pois ainda estou tentado entender o código que você fez.. aliás, muitíssimo obrigada pela ajuda que está me fornecendo!

então, o primeiro erro é quando eu tento cadastrar os usuários.. o primeiro cadastra perfeitamente, porém, ao cadastrar o segundo em seguida aparece essa mensagem:



o segundo erro: eu coloquei o botão de cadastro de usuário para abrir o formulário que você desenvolveu, porém, mesmo que eu entre no formulário principal através do login com usuário que tem todos os acessos permitidos (ex: Admin), ao entrar no formulário de cadastro de usuário e consultar um usuário que não tem os acessos, ou cadastrar um usuário que não tem os acessos, ao clicar no botão se sair (que volta para o formulário principal) ele aparece os acessos da ultima consulta que você fez, ou do ultimo cadastro ao invés do usuário que vc entrou no sistema de fato.

entrando com o ADMIN



acessos do ADMIN



fazendo uma consulta



acessos dessa consulta que acabei de fazer



como aparece o formulário de menu ao clicar em sair do formulário de cadastro de usuários

Bom dia Amanda,

Já identifiquei o erro e já estou arrumando.
Assim que eu terminar, eu mando nova versão.

P.S.: eu utilizo mais o VBA do que os recursos do Access e também não tive tempo de comentar o código, pois eu fiz tudo rapidamente.
Vou tentar comentar o código pra vc entender o que o VBA faz.

Abraço

Muito obrigada, Alexandre, vai ajudar muito!

Olá Amanda,

Segue nova versão do sistema com as devidas correções.

Observações:

1 - Ao abrir o sistema, pressione ALT+F11 para abrir a janela de código VBA e verifique os comentários(alguns) que fiz nos módulos e no cadastro de usuários, pra vc entender o que cada rotina faz

2 - No Cadastro de Usuários, o botão "Desfazer" serve para vc desfazer a ação atual, quando vc estiver digitando um novo cadastro.

3 - Para cadastrar novo usuário, é necessário clicar no botão "Novo", pois o sistema limpa a tela e redefine variáveis pertinentes ao cadastro.


Espero ter ajduado.

Boa sorte.

att,

Alexandre

Alexandre, obrigada pelas anotações!

Mas aquele erro que eu falei acima ainda está acontecendo.. eu quero que o formulário principal abra o formulário que cadastra os usuários, mas quando eu abro o formulário que você fez pelo formulário principal e adiciono um usuário, ou consulto um, ao clicar em voltar para o formulário principal ele abre com os botões habilitados apenas nos que eu permiti nesse ultimo cadastro/consulta e eu queria que isso não acontecesse.. falta só isso pra dar certo :') vou te mandar o banco do jeito que eu configurei para abrir e você conseguirá ver o erro.. desculpe a ignorância e por estar ocupando tando o seu tempo :/

entra pelo login com o usuário admin com a senha 1234

depois, clica em cadastro de usuário e faz uma consulta ou cadastra alguém sem muitos acessos

depois, clica no botão de sair do formulário de cadastro de usuários e observe que os mesmos acessos que tinha na ultima consulta/cadastro terão no form principal.. mesmo que você tenha logado com o usuário admin, o qual possui todos os acessos.. 

tem alguma forma de resolver isso? :/

Olá Amanda,

Entendi qual é o problema.
Vou fazer os ajustes e postarei nova versão.

Att,

Alexandre

Olá Amanda,

Segue nova versão devidamente corrigida.

Boa sorte

Att,

Muito obrigada pela assistência Alexandre! Funcionou perfeitamente.

Valeu amanda

Boa sorte e sucesso !!!Na dúvida, sempre procure este forum, que tem excelentes membros que estão prontos em ajudar.

Um abraço.