Pessoal boa tarde!!
Estou criando um controle de acesso aos relatórios por usuários, onde se o usuário não for do tipo "Administrador", ele nao poderá abrir os relatório, veja o codigo no evento ao carregar o relatório;
como eu posso reverter isso?
att; Sidney
Estou criando um controle de acesso aos relatórios por usuários, onde se o usuário não for do tipo "Administrador", ele nao poderá abrir os relatório, veja o codigo no evento ao carregar o relatório;
- Código:
Dim strPermissao As Variant
strUsuarioAtual = getUsuarioAtual()
strPermissao = DLookup("[Grupo]", "tab_Usuario", "[Login]= '" & strUsuarioAtual & "'")
If strPermissao <> "Administrador" Then
MsgBox "Você não tem permissão para este acesso.", vbCritical, "ATENÇÃO"
DoCmd.Close acReport, "rel_Digitador", acSaveYes
só que está ocorrendo uma erro, veja.
[color=#cc3300]"Erro em tempo de execução 2585"
Esta ação não pode ser executada durante o processo de um evento de formulário ou relatório.
[/color]
como eu posso reverter isso?
att; Sidney
Última edição por Sidney em 7/5/2019, 12:37, editado 2 vez(es)