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


    [Resolvido]Alterar para abrir somente como leitura

    avatar
    fstenorio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 27/04/2011

    [Resolvido]Alterar para abrir somente como leitura Empty [Resolvido]Alterar para abrir somente como leitura

    Mensagem  fstenorio 16/10/2012, 16:16

    Olá amigos, solicito mais uma vez a ajuda de vcs, tenho uma aplicação e possui essa linha de codigo:

    Private Sub btnCadastroUsuario_Click()
    If getGrupoUsuarioAtual = "Administradores" Then
    DoCmd.OpenForm "FCadastroUsuario"
    Else
    MsgBox "Acesso permitido somente aos administradores!", _
    vbExclamation, "Acesso Negado"
    End If

    End Sub


    Que pelo que os senhores estão vendo verifica se o usuário logado pertence ao grupo de administradores, se for sim, abre o formulário se não, envia uma mensagem dizendo que esta área é param administradores

    Qual Código insiro para que se o usuário logado for do grupo gerentes ter acesso ao formulário, mas somente como leitura, não podendo inserir dados.
    avatar
    Convidado
    Convidado


    [Resolvido]Alterar para abrir somente como leitura Empty Re: [Resolvido]Alterar para abrir somente como leitura

    Mensagem  Convidado 16/10/2012, 17:31

    Crie um módulo e nomeei mdlVarPublicas
    Neste crie uma variável do Tipo Boolean (Falso/Verdadeiro)

    Public StrPerm as Boolean


    No Código você aplicara a condição para gerentes observando que neste caso definirá a variável boolean como verdadeira

    Private Sub btnCadastroUsuario_Click()
    If getGrupoUsuarioAtual = "Administradores" Then
    DoCmd.OpenForm "FCadastroUsuario"
    ElseIf getGrupoUsuarioAtual = "Gerentes" Then
    DoCmd.OpenForm "FCadastroUsuario"
    StrPerm = True
    Else
    MsgBox "Acesso permitido somente aos administradores!", _
    vbExclamation, "Acesso Negado"
    End If


    No form FCadastroUsuario em eventos ao abrir verificará a variável


    If StrPerm = True
    Me.AllowEdits = False
    Me.AllowAdditions = False
    Me.AllowDeletions = False
    StrPerm = False
    Else
    Me.AllowEdits = True
    Me.AllowAdditions = True
    Me.AllowDeletions = True
    End If



    Assim se caso o usuario for do grupo gerentes, modifica o valor da variável que será checada ao abrir do form FCadastro...
    E caso seja gerente bloqueiará as edições, adicões e exclusões.



    Cumprimentos.

      Data/hora atual: 28/3/2024, 12:49