[Resolvido]Formulário Menu Principal colocar nome do usuário

Boa tarde pessoal.
O meu segundo tópico de hoje.
Depois de Resolvido o Script do login, estava tentando colocar o nome do usuário logado no rodapé do formulário Menu Principal mas por enquanto não consegui.
Alguém poderia me dar uma ajuda para que eu faça isto.?

Desde já Agradeço.

Veja esse modelo:

Boa Tarde PatSoft..

Não sei onde eu errei, mas não deu certo, pelo modelo que você me enviou ficou meio vago.

Te agradeço muito pelo retorno, qualquer novidade aguardo outra resposta sua.

Muito obrigado.

Boa noite amigos, esse sera facil para entender como funciona.

Obrigado pessoal...
não consegui fazer funcionar aqui, mas mesmo assim muito obrigado pela ajuda.

Boa noite Samuel;

Se interessar poste parte do bd para vermos isso.

Ou pode fazer de uma forma mais facil em uma caixa de texto no formulario que quiser

exibir usuario.

=Formulários!Seu_Formulário_De_Login!Campo_Usuario

Bom dia Fernando Bueno..

Quais tabelas você gostaria que eu postasse.?

Bom dia Samuel, poste o que envolve o login no bd..

Tabela de usuarios e senha, formulario de login..

Fernando Bueno segue em anexo a tabela tblUsuario onde o login busca as informações, gostaria que o campo nomeUsuario aparecesse no txtNomeUsuario no rodapé do formulário Menu Principal.

Desde já te agradeço.

Ok, anexe junto o formulario de login e o menu principal..

Samuel veja..

Usando o modulo do exemplo que tinha te passado alterei os nomes dos campos

criei outro form exemplo.

Para usar em seu bd se for a tabela que passou em anexo basta copiar o modulo

e em qualquer formulario que quiser que apareça o usuario atual crie uma caixa de texto e

coloque como fonte do controle =GetUsuarioAtual()

Qualquer duvida so dar um toque ok.

Obs: Coloquei a senha do usuario Samuel 123

Fernando Bueno segue em anexo os forms que você me pediu.

Aqui esta colega, funcionando!

Bom final de semana amigo.

Muito bem, vamos la Fernando Bueno.

Fonte de controle do txtFuncionarioLogado: =GetUsuarioAtual

Copiei o módulo para o meu sistema só que não funcionou.
Tem algo que eu não fiz?
Ou este módulo tem que colocar em alguma classe do formulário.

Observe o Codigo do Modulo:

Option Compare Database
Option Explicit

Private strUsuarioAtual As String

Function verificaLogin(argCampoUsuarioNaTabela As String, argCampoSenhaNaTabela As String) As Boolean

   Dim criterio As String
   
   criterio = "CampoUsuarioNaTabela='" & argCampoUsuarioNaTabela & "' And CampoSenhaNaTabela='" & argCampoSenhaNaTabela & "'"
   
   If Nz(DCount("CampoUsuarioNaTabela", "SuaTabela", criterio), 0) > 0 Then
       verificaLogin = True
       setUsuarioAtual argnomeUsuario
   Else
       verificaLogin = False
   End If

End Function

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

Function getUsuarioAtual() As String
   getUsuarioAtual = strUsuarioAtual
End Function

Nota: Se estiver assim na caixa de texto esta errado Fonte de controle do txtFuncionarioLogado: =GetUsuarioAtual
Correto =GetUsuarioAtual()

Se a tabela for exatamente a que você postou não precisa mudar nada no modulo

Observe que tem a chamada da função no botão acessar do form login.

Private Sub cmdAcessar_Click()
If Not IsNull(txtUsuario) And Not IsNull(txtSenha) Then
If verificaLogin(txtUsuario, txtSenha) Then
DoCmd.Close
DoCmd.OpenForm "Menu Principal"
Else
MsgBox "Senha inválida!", vbExclamation, "Login"
End If
End If

End Sub

Bom dia Fernando Bueno.
Veja o Script que eu estou usando no botão de login.
Não sei se vai aparecer as linhas em vermelho que destaquei, foi onde modifiquei conforme código seu. Por este Script não da para fazermos aparecer o nome do usuário no formulário principal?

Código:

Option Compare Database

Private Sub cmdAcessar_Click()
If KeyCode = vbKeyReturn Then
Call cmdAcessar_Click
End If
    
    Dim DB As Database
    Dim rs As Recordset
    Static Tentativas As Byte
    
    Tentativas = Tentativas + 1
    If Tentativas > 3 Then
    MsgBox "Você Esgotou as Tentativas de Acesso!", vbCritical, "Sistema para Analises de Sementes - Aviso!!"
    Application.Quit
    Exit Sub
    End If
    
    If IsNull(Me.txtUsuario) Or Me.txtUsuario = "" Then
    MsgBox "Nome do Usuário é Obrigatório", vbExclamation, "Sistema para Analise de Sementes - Atenção!!"
    Me.txtUsuario.SetFocus
    Exit Sub
     DoCmd.CancelEvent
    End If
    
    If IsNull(Me.txtSenha) Or Me.txtSenha = "" Then
    [color=#cc3333]If verificaLogin(txtUsuario, txtSenha) Then[/color]
    MsgBox "A Senha do Usuário é Obrigatóra", vbExclamation, "Sistema para Analise de Sementes - Atenção!!"
    Me.txtSenha.SetFocus
    Exit Sub
     DoCmd.CancelEvent
    End If
    End If
    
    Set DB = CurrentDb
    Set rs = DB.OpenRecordset("select * from tblUsuario")
    rs.MoveFirst
    Do While Not rs.EOF
   [color=#cc3333] If rs("nomeUsuario") = Me.txtUsuario Then[/color]
    If rs("senhaUsuario") = Me.txtSenha Then
    Achei = "s"
    End If
    End If
    rs.MoveNext
    Loop
    If Achei <> "s" Then
    s = MsgBox(" Senha ou Usuário Inválido ", vbCritical, "Sistema para Análise de Sementes - Atenção!!")
    Me.txtUsuario.SetFocus
    
    Else
    
    DoCmd.OpenForm "Menu Principal", acNormal
    DoCmd.Close acForm, "Login"
    
    End If
    
End Sub

Um pitaco;

Baseado no seu exemplo que lhe resolvido no outro tópico, veja eu mostrar o usuário logado no form cadastro só como exemplo;

Fernando, onde é que  o codigo de 3 tentativas que estava no botão, estava errado ???

JPaulo Começou a dar certo, depois que seleciono o usuário e a senha, ele entra no sistema e aparece o Menu principal mas da este erro de depuração que segue em anexo.

Parece que você não entendeu o simples;

No formulario Principal, você tem uma caixa de texto de nome txtUsuarioLogado ?????

E o valor não é o do usuarioUsuario, é o do txtUsuario;

  Forms!Menu_Principal.txtUsuarioLogado = Me.txtUsuario.Value

Outra coisa que estou a ver nessa imagem, é que você não está a utilizar nada das alterações que eu tinha feito, ou seja, nunca mais vamos saír daqui.

Nada disto está igual;

   Do While Not rs.EOF
   If rs("usuarioUsuario") = Me.txtUsuario And rs("senhaUsuario") = Me.txtSenha Then
   Achei = "s"
   End If
   rs.MoveNext
   Loop

Neste caso, a minha ajuda ficará por aqui mesmo.

Me perdoe mestre JPaulo não tinha reparado este detalhe.

Option Compare Database

Private Sub cmdAcessar_Click()
If KeyCode = vbKeyReturn Then
Call cmdAcessar_Click
End If
   
   Dim DB As Database
   Dim rs As Recordset
   Static Tentativas As Byte
   
   Tentativas = Tentativas + 1
   If Tentativas > 3 Then
   MsgBox "Você Esgotou as Tentativas de Acesso!", vbCritical, "Sistema para Analises de Sementes - Aviso!!"
   Application.Quit
   Exit Sub
   End If
   
   If IsNull(Me.txtUsuario) Or Me.txtUsuario = "" Then
   MsgBox "Nome do Usuário é Obrigatório", vbExclamation, "Sistema para Analise de Sementes - Atenção!!"
   Me.txtUsuario.SetFocus
   Exit Sub
    DoCmd.CancelEvent
   End If
   
   If IsNull(Me.txtSenha) Or Me.txtSenha = "" Then
   If verificaLogin(txtUsuario, txtSenha) Then
   MsgBox "A Senha do Usuário é Obrigatóra", vbExclamation, "Sistema para Analise de Sementes - Atenção!!"
   Me.txtSenha.SetFocus
   Exit Sub
    DoCmd.CancelEvent
   End If
   End If
   
   Set DB = CurrentDb
   Set rs = DB.OpenRecordset("select * from tblUsuario")
   rs.MoveFirst
   Do While Not rs.EOF
   If rs("usuarioUsuario") = Me.txtUsuario And rs("senhaUsuario") = Me.txtSenha Then
   Achei = "s"
   End If
 
   rs.MoveNext
   Loop
   If Achei <> "s" Then
   s = MsgBox(" Senha ou Usuário Inválido ", vbCritical, "Sistema para Análise de Sementes - Atenção!!")
   Me.txtUsuario.SetFocus
   
   Else
   
   DoCmd.OpenForm "Menu_Principal", acNormal
   Forms!Menu_Principal.txtUsuarioLogado = Me.txtUsuario.Value
   
   DoCmd.Close acForm, "Login"
   
       End If
   
End Sub

E veja o ero que esta dando agora depois de tudo feito, conforme Anexo:

A caixa de texto "txtUsuarioLogado" existe no form Menu_Principal ?

Veja bem, que no exemplo que lhe passei, ainda não está igual à totalidade do seu;

Quer anexar aqui o form Login e esse form principal ?


Option Compare Database
'esta variavel tem de estar fora
Private strTentativas As Byte


Private Sub cmdAcessar_Click()
Dim rs As Recordset
Dim Achei As String

If KeyCode = vbKeyReturn Then
Call cmdAcessar_Click
End If

strTentativas = strTentativas + 1
If strTentativas > 3 Then
MsgBox "As três tentativas foram esgotadas, Banco vai encerrar.", vbCritical, "Erro!"
Application.Quit
End If

If IsNull(Me.txtUsuario) Or Me.txtUsuario = "" Then
MsgBox "Nome do Usuário é Obrigatório", vbExclamation, "Sistema para Analise de Sementes - Atenção!!"
Me.txtUsuario.SetFocus
Exit Sub
DoCmd.CancelEvent
End If

If IsNull(Me.txtSenha) Or Me.txtSenha = "" Then
MsgBox "A Senha do Usuário é Obrigatóra", vbExclamation, "Sistema para Analise de Sementes - Atenção!!"
Me.txtSenha.SetFocus
Exit Sub
DoCmd.CancelEvent
End If

Set rs = CurrentDb.OpenRecordset("select * from tblUsuario")
rs.MoveFirst

Do While Not rs.EOF
If rs("usuarioUsuario") = Me.txtUsuario And rs("senhaUsuario") = Me.txtSenha Then
Achei = "s"
End If
rs.MoveNext
Loop

If Achei <> "s" Then
MsgBox " Senha ou Usuário Inválido ", vbCritical, "Sistema para Análise de Sementes - Atenção"
Me.txtUsuario.SetFocus
Exit Sub
Else

DoCmd.OpenForm "Menu Principal", acNormal
Forms!Menu_Principal.txtUsuarioLogado = Me.txtUsuario.Value

DoCmd.Close acForm, "Login"
End If
rs.Close
End Sub

Bom dia amigos do Forum.

Pois é João Paulo, acabei me expressando errado peço desculpas pela gafe..

Notei que no form login não tinha a caixa que aparece quando ocorre erro de login, ja estou

retirando o comentario mal entendido na mensagem.

Tranquilo Fernando.

Samuel, quer anexar aqui o form Login e esse form principal ?

Já vamos na mensagem Nº25 com um problema simples de mais.

Se não quiser anexar, envie para mim;

jpaulo65@gmail.com

esqueci de avisar, o que você me pediu esta no seu E-mail.

Reenviado, aguardo seu retorno.

Boa tarde JPaulo..

Resolvido, muito obrigado a você e a todos que envolveram neste Tópico.

Te agradeço muito, DEUS te Abençoe.

Obrigado pelo retorno o forum agradece.

Para constar na resolução;

Faltava a caixa txtUsuarioLogado no formulario principal.