MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Página não executa o Evento Click ()

    Compartilhe

    Prentys
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 05/09/2018

    Página não executa o Evento Click ()

    Mensagem  Prentys em 26/10/2018, 14:54

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


    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 26/10/2018, 17:30, editado 1 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5588
    Registrado : 15/03/2013

    Re: Página não executa o Evento Click ()

    Mensagem  ahteixeira em 26/10/2018, 15:01

    Olá Geraldo Nakamura, faltou o anexo.

    Veja como anexar no fórum:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: 15/11/2018, 04:46