MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Nivel de acesso

    avatar
    gsm
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 06/03/2015

    Nivel de acesso  Empty Nivel de acesso

    Mensagem  gsm 9/4/2015, 18:53

    Boa tarde,

    Andei dando umas pesquisada, mas estou com dificuldade para entender como fazer um nível de acesso ao formulário.

    Possuo um formulário de abertura onde coloquei 3 botões que direcionam para formulários diferentes. Preciso criar um nível de acesso, do tipo usuário e administrador, no qual o administrador terá acesso aos 3 botões e o usuário somente a 2 botões.

    Para isso criei um formulário ao abrir o BD onde a pessoa irá informar matrícula e senha, com base em uma tabela (USUARIO), que contém os campos: Matricula, funcionário, nível, senha. Usei o seguinte código no botão de logar:

    Private Sub Comando4_Click()

    Dim matricula, senha As String
    Dim rsUsuario As DAO.Recordset

    If Len(Me.txtmatricula) <> 8 Or Len(Me.txtsenha) <> 6 Or IsNull(Me.txtmatricula) Or IsNull(Me.txtsenha) Then
    MsgBox "Preencha os campos 'Matrícula' e 'Senha' corretamente.", vbExclamation, "Erro"
    Exit Sub
    End If

    matricula = Me.txtmatricula
    senha = Me.txtsenha



    Set db = CurrentDb

    Set rsUsuario = db.OpenRecordset("SELECT * FROM USUARIO WHERE MATRICULA = '" & matricula & "'")

    If rsUsuario.EOF Then

    MsgBox "Usuário não cadastrado!", vbExclamation, "Erro"

    ElseIf rsUsuario!senha = senha Then

    nivel = rsUsuario!nivel
    matriculaResp = Me.txtmatricula
    DoCmd.OpenForm "For ABERTURA"

    Else
    MsgBox "Senha Inválida!", vbExclamation, "Erro"

    End If

    End Sub


    Até ai tudo bem, mas preciso fazer que o sistema entenda quando exibir os 3 botões e quando exibir somente 2 de acordo com o nível do usuário cadastrado.

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    Nivel de acesso  Empty Nivel de acesso

    Mensagem  toyebom 9/4/2015, 23:58

    vê aqui

    http://maximoaccess.forumeiros.com/t1494-resolvidoniveis-de-acesso
    http://maximoaccess.forumeiros.com/t7912-formulario-de-login-com-niveis-de-acesso
    http://maximoaccess.forumeiros.com/t792-resolvidobloquear-bloqueio-de-usuario-niveis-de-acesso-e-login
    http://maximoaccess.forumeiros.com/t15855-resolvidoestabelecer-niveis-de-acesso-de-usuarios


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    Nivel de acesso  Empty Re: Nivel de acesso

    Mensagem  Fernando Bueno 10/4/2015, 17:15

    Boa tarde;

    Veja o exemplo da mensagem nº6 que postei no seguinte tópico:

    http://maximoaccess.forumeiros.com/t19796-resolvidofazendo-um-login

    Aguardamos!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    Nivel de acesso  16rzeq

    Conteúdo patrocinado


    Nivel de acesso  Empty Re: Nivel de acesso

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 16:35