Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
Alexandre Neves 3/2/2013, 15:31
No módulo Login_Senha, retire tudo e cole
Option Compare Database
Option Explicit
Private strUsuarioAtual As String, bytUsuarioAtual As Byte
Function verificaLogin(argLogin As String, argSenha As String) As Boolean
Dim criterio As String
criterio = "Login='" & argLogin & "' And senha='" & argSenha & "'"
If Nz(DCount("Login", "Tbl_Usuario", criterio), 0) > 0 Then
verificaLogin = True
setUsuarioAtual argLogin
Else
verificaLogin = False
End If
End Function
Sub setUsuarioAtual(argUsuario As String)
strUsuarioAtual = argUsuario
bytUsuarioAtual = DLookup("ID_Usuario", "Tbl_Usuario", "Login='" & argUsuario & "'")
End Sub
Function getUsuarioAtual() As String
getUsuarioAtual = strUsuarioAtual
End Function
Function getIDUsuarioAtual() As String
getIDUsuarioAtual = bytUsuarioAtual
End Function
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo