[Resolvido]Usuário Logado

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

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

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

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

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

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