Tenho a tabela tbl_User (Use_Codigo, Use_Login, Use_Senha, Bloqueado).
Tenho o formulário frmLogin (cboUsuário, Senha).
O código do botão OK do formulário frmLogin que uso é esse:
- Código:
Private Sub btok_Click()
Dim strSenha1 As String
Dim strsenha2 As String
Dim K As Integer
On Error Resume Next
'-------------------------------------------------
'Verifica preenchimento dos campos usuário e senha
'-------------------------------------------------
If IsNull(Me!cboUsuário) Then
MsgBox "Digite o nome do usuário...", vbInformation, "Aviso"
Me!cboUsuário.SetFocus
Exit Sub
Else
If IsNull(Me!Senha) Then
MsgBox "Digite a senha...", vbInformation, "Aviso"
Me!Senha.SetFocus
Exit Sub
End If
End If
'-----------------------------------------------------
'Compara senha digitada com senha armazenada na tabela
'Se for a correta, repassa a identificação do usuário
'para a variável login que armazena o valor enquanto
'o aplicativo estiver aberto
'-----------------------------------------------------
With Me!cboUsuário
strSenha1 = "": strsenha2 = ""
If Len(.Column(2) & "") <> Len(Me!Senha & "") Then
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso"
Me!Senha.SetFocus
Exit Sub
End If
For K = 1 To Len(Me!Senha)
strSenha1 = strSenha1 & Asc(Mid$(Me!Senha, K, 1))
strsenha2 = strsenha2 & Asc(Mid$(.Column(2), K, 1))
Next K
If strSenha1 = strsenha2 Then
'repassa a identificação do usuário para a variável login
login.id = .Column(0) 'IdUsuário
login.Usuario = .Column(1) 'Nome do usuário
'Passa o usuário para a variavel
'strNomeUsuario = Me.cboUsuário.Column(1)
'esconde o formulário login
Me.Visible = False
'Carrega título do aplicativo com o nome do usuário logado
Call fncTítuloUsuário(.Column(1))
'--------------------------------
'Limpar campos do form login
'--------------------------------
Me!cboUsuário = Null: Me!Senha = Null
Me!cboUsuário.SetFocus
DoCmd.OpenForm "frm_MenuMaster", acNormal, "", "", , acNormal
'DoCmd.OpenForm "frmProgresso"
'If login.id = 1 Then DoCmd.OpenForm "frmProgresso"
'If login.id > 1 Then DoCmd.OpenForm "frmPorgressso"
Else
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso"
Me!Senha.SetFocus
End If
End With
End Sub
Como é que eu faço para quando eu fazer o login (esta logado) filtrar nas consultas o Usuário logado?
E que no formulário Menu apareça o Usuário logado?
Obrigado.