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


2 participantes

    [Resolvido]Usuário Logado

    avatar
    oliveiraferraz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 26/09/2012

    [Resolvido]Usuário Logado Empty [Resolvido]Usuário Logado

    Mensagem  oliveiraferraz 6/2/2017, 11:07

    Pessoal, bom dia.

    Não estou conseguindo colocar a função Usuário Logado no formulário,
    Alguém pode me ajudar, segue em anexo o bd.


    Sd

    FerrazOliveira

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Usuário Logado Empty Re: [Resolvido]Usuário Logado

    Mensagem  Alvaro Teixeira 6/2/2017, 14:48

    Olá Enio,
    Já tentou a Busca aqui do fórum, veja como fazer:
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Veja este por exemplo:
    https://www.maximoaccess.com/t27969-usuario-de-rede-sem-vba

    Se tiver alguma dúvida, cá estamos.
    Se resolver, não se esqueça de dar o tópico como tal (Resolvido).
    Abraço
    avatar
    oliveiraferraz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 26/09/2012

    [Resolvido]Usuário Logado Empty Usuário Logado

    Mensagem  oliveiraferraz 6/2/2017, 20:08

    ahteixeira,

    Obrigado pela pronta ajuda.
    fiz os códigos de agordo abaixo

    porem aparece o usuário; mas quando entro com outro usuário o mesmo não altera.




    Option Compare Database
    Option Explicit

    Private strUsuarioAtual As String

    Function verificaLogin(argLogin As String, argSenha As String) As Boolean

       Dim criterio As String
       
       criterio = "login='" & argLogin & "' And senha='" & argSenha & "'"
       
       




    If Nz(DCount("login", "Usuario", criterio), 0) > 0 Then
           verificaLogin = True
           setUsuarioAtual argLogin
       Else
           verificaLogin = False
       End If

    End Function

    Sub setUsuarioAtual(argUsuario As String)
       strUsuarioAtual = argUsuario
    End Sub

    Function getUsuarioAtual() As String
       getUsuarioAtual = strUsuarioAtual
    End Function



    Outro coisa quando tento inserir na caixa de texto a funcao =getUsuarioAtual()
    da um erro que estou enviando no arquivo em anexo

    SD

    OliveiraFerraz
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Usuário Logado Empty Re: [Resolvido]Usuário Logado

    Mensagem  Alvaro Teixeira 7/2/2017, 09:20

    Olá Oliveira, faltou o anexo.

    A função está Privada, efetue o seguinte:
    Crie um Modulo (exemplo  mod_usuario) e cole o código abaixo:

    Código:
    Option Compare Database
    Option Explicit

    Public strUsuarioAtual As String

    Sub setUsuarioAtual(argUsuario As String)
       strUsuarioAtual = argUsuario
    End Sub

    Function getUsuarioAtual() As String
       getUsuarioAtual = strUsuarioAtual
    End Function

    Abraço
    avatar
    oliveiraferraz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 26/09/2012

    [Resolvido]Usuário Logado Empty [Resolvido]Usuário Logado

    Mensagem  oliveiraferraz 8/2/2017, 11:42

    ahteixeira,

    Obrigado pela pronta ajuda. funcionou 100%

    Sem querer abusar da sua atenção, poderia me passar o seu
    e-mail teria um projeto para resolver no privado.

    Mas desde já agradeço pela atenção e muito obrigado



    Oliveira
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Usuário Logado Empty Re: [Resolvido]Usuário Logado

    Mensagem  Alvaro Teixeira 8/2/2017, 15:02

    Olá Enio Oliveira,
    Obrigado pelo retorno.

    Aqui no fórm é local ideal para trocar opiniões, no entanto por vezes pode ser trabalho sensivel e podemos abordar na generalidade.

    Quanto ao email, não vou disponibilizar.
    Poderei dar uma opinião privada pontual, para o efeito pode enviar-me uma mensagem privada aqui mesmo pelo fórum.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Usuário Logado Empty Re: [Resolvido]Usuário Logado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:43