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
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