[Resolvido]Alterar para abrir somente como leitura

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.

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.