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


    Permissão na faixa de opções

    Almeidar
    Almeidar
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Permissão na faixa de opções Empty Permissão na faixa de opções

    Mensagem  Almeidar 12/5/2019, 22:13

    Olá meus amigos!
    Gostaria da ajuda dos mestres na seguinte questão.

    Gostaria de fazer na minha faixa de opções o bloqueio e desbloqueio do menu de acordo com a permissão do usuário.

    No meu BD eu tenho um formulário principal onde contem os botoes para abrir cada forms,relatório,etc...

    Após configurar a faixa de opões os formulário passaram a ser aberto por macro e com isso a minha permissão de usuário foi para o espaço, gostaria de ver com os mestre aqui como eu poderia contorna essa situação.

    Vou deixar aqui o modo de como venho bloqueado os item onde o usuário não tem acesso.

    Dim Nivel
    If IsNull(Me.txtusuario) Then
    MsgBox "Preencha o campo usuário", vbCritical, "Preusuario"
    Me.txtusuario.SetFocus
    ElseIf IsNull(Me.txtsenha) Then
    MsgBox "Preencha o campo senha", vbCritical, "senha"
    Me.txtsenha.SetFocus
    Else
    If (IsNull(DLookup("[usuario]", "tbl_usuario", "[usuario]= '" & Me.txtusuario.Value & "' and senha = '" & Me.txtsenha.Value & "'"))) Then
    MsgBox "Usuário ou senha Incorretos", vbCritical, "Tente novamente"
    Else
    Nivel = DLookup("[nivel]", "tbl_usuario", "usuario = '" & Me.txtusuario.Value & "'")
    If Nivel = 1 Then
    MsgBox "Bem Vindo Administrador", vbCritical, "Entrar"
    DoCmd.Close
    DoCmd.OpenForm "frm_principal"
    Forms!frm_principal.lbl_nivel.Caption = "Administrador"
    Forms!frm_principal.btn_financeiro.Enabled = True
    Else
    MsgBox "Bem Vindo Colaborador", vbCritical, "Entrar"
    DoCmd.Close
    DoCmd.OpenForm "frm_principal"
    If Nivel = 2 Then
    Forms!frm_principal.lbl_nivel.Caption = "Colaborador"
    End If
    End If
    End If
    End If
    End Sub
    Almeidar
    Almeidar
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Permissão na faixa de opções Empty Re: Permissão na faixa de opções

    Mensagem  Almeidar 15/5/2019, 00:23

    Olá meu amigos, acho que me expliquei de maneira equivocada.
    O que eu gostaria de fazer é cria as faixa de opções e bloquear a abertura dos formulário e relatório para o usuário de nível médio = COLABORADOR, usuário nível máximo = ADMINISTRADOR.
    Algum amigo teria alguma sugestão ?

      Data/hora atual: 7/11/2024, 23:27