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


3 participantes

    Mensagem com problema

    SCHWERTNER
    SCHWERTNER
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 07/08/2015

    Mensagem com problema Empty Mensagem com problema

    Mensagem  SCHWERTNER 23/5/2018, 14:21

    Olá povo..
    Tenho um problema. Possuo um Formulário de cadastro e quero que o usuário ao fazer a confirmação em um combox (neste combox estão inseridos todos os usuários),seja o mesmo que está logado (possuo um acesso com log e senha). Que se o usuário ao sair ou atualizar o combox, este me dê uma mensagem,se ok ou usuário diferente do log.. Fiz assim, mas sempre aparece a mesma mensagem.
    Uso um campo Não Acoplado que me informa o Log " =getUsuarioAtual()". O usuário está identificado por ID_FUNC. Coloquei no Após Atualizar do Combox de identificação....

    Onde estou errando??????

    Código:
    If Me.ID_FUNC = Me.LOG Then
    MsgBox "Autorizado o registro . .   ", vbInformation, "AVISO ! ! !"
    ElseIf Me.ID_FUNC <> Me.LOG Then
    MsgBox "A Id Func não combina com o Login.. . ", vbInformation, "AVISO ! ! !"
    End If
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    Mensagem com problema Empty Re: Mensagem com problema

    Mensagem  scandinavo 23/5/2018, 17:54




    If Me.ID_FUNC = Me.LOG Then
    MsgBox "Autorizado o registro . .   ", vbInformation, "AVISO ! ! !"
    Else
    MsgBox "A Id Func não combina com o Login.. . ", vbInformation, "AVISO ! ! !"
    End If
    SCHWERTNER
    SCHWERTNER
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 07/08/2015

    Mensagem com problema Empty MESMA MENSAGEM

    Mensagem  SCHWERTNER 24/5/2018, 00:46

    Não funcionou.... Sempre dá a mesma mensagem:

    MsgBox "A Id Func não combina com o Login.. . ", vbInformation, "AVISO ! ! !"

    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    Mensagem com problema Empty Re: Mensagem com problema

    Mensagem  scandinavo 24/5/2018, 12:35

    A mensagem esta correta o problema esta no seu log.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5078
    Registrado : 20/04/2011

    Mensagem com problema Empty Re: Mensagem com problema

    Mensagem  Silvio 24/5/2018, 14:00

    Bom dia, se me permitem um pitaco...

    Troque o me.Log por......=getUsuarioAtual()


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    SCHWERTNER
    SCHWERTNER
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 07/08/2015

    Mensagem com problema Empty funcionou

    Mensagem  SCHWERTNER 24/5/2018, 14:15

    Obrigadão.. Funcionou

    Abraço a todos do forum
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5078
    Registrado : 20/04/2011

    Mensagem com problema Empty Re: Mensagem com problema

    Mensagem  Silvio 24/5/2018, 14:33

    Que bom...
    Não esqueça de dar o tópico como resolvido.
    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    Mensagem com problema Empty Re: Mensagem com problema

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/5/2024, 20:58