Boa tarde
Em meu projeto tenho 3 formulários onde tem um campo txt chamado txtUsuarioLogado, conforme orientações deste excelente fórum criei um modulo de nome LoginSenha onde tem o código com segue abaixo:
Na propriedade Fonte do Controle adicionei =getUsuarioAtual()
Mas infelizmente não aparece nada no campo em questão.
Alguém pode me orientar onde posso estar errando?
Desde ja agradeço.
Em meu projeto tenho 3 formulários onde tem um campo txt chamado txtUsuarioLogado, conforme orientações deste excelente fórum criei um modulo de nome LoginSenha onde tem o código com segue abaixo:
- Código:
ption Compare Database
Option Explicit
Private strUsuarioAtual As String
Function verificaLogin(argLogin As String, argSenha As String) As Boolean
Dim criterio As String
criterio = "User'" & argLogin & "' And Senha='" & argSenha & "'"
If Nz(DCount("User", "TBLUsuario", 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
Na propriedade Fonte do Controle adicionei =getUsuarioAtual()
Mas infelizmente não aparece nada no campo em questão.
Alguém pode me orientar onde posso estar errando?
Desde ja agradeço.