Início
![[Resolvido]Página não executa o Evento Click () Empty](https://2img.net/i/empty.gif)
Prentys 26/10/2018, 14:54Bom dia senhores.
Estou terminando a programação do BD do meu local de trabalho, e estou garrado no controle de acesso de Usuário.
Até o momento, tem corrido tudo bem, mas preciso bloquear o acesso dos usuário a uma página.
O "Controle de Guia" possui 3 páginas, eu preciso bloquear o acesso a uma, porém qd eu crio o evento, ele n roda, a pag. simplesmente abre, e nada acontece *-* Enviei o Code abaixo.
Ps.: não pude anexar devido ao tamanho do arquivo.
Estou terminando a programação do BD do meu local de trabalho, e estou garrado no controle de acesso de Usuário.
Até o momento, tem corrido tudo bem, mas preciso bloquear o acesso dos usuário a uma página.
O "Controle de Guia" possui 3 páginas, eu preciso bloquear o acesso a uma, porém qd eu crio o evento, ele n roda, a pag. simplesmente abre, e nada acontece *-* Enviei o Code abaixo.
Ps.: não pude anexar devido ao tamanho do arquivo.
- Código:
Private Sub PagA_Click()
If DLookup("[ProntAccess]", "usuario", "[login] = txtUsuarioAtual") Then
Me.GdP.Pages(PagA).SetFocus
Else:
Me.GdP.Pages(PagDC).SetFocus
MsgBox "Usuário não tem permissão.", _
vbOKOnly + vbCritical, "Erro de Acesso"
End If
End Sub
Última edição por Prentys em 7/5/2020, 16:49, editado 2 vez(es)
