[Resolvido]Ajuda com Login e Usuário

Boa tarde pessoal.

Desde já agradecendo a ajuda de todos que sempre nos tira dúvidas e nos ajuda a aprender e crescer em conhecimento, desenvolvendo no access e VB.

Todos são uma benção de Deus.

Já estou concluindo o aplicativo Controle de caixa. Mais empanquei com o Usuário. Por isso voltei pedindo ajuda para compreender e concluir.

Estou usando o seguinte script que consegui aqui no forum. Foi postado pelo amigo Cricrio...

no Botão Enter:

Private Sub cmdEnter_Click()
On Error Resume Next
Dim Identificacao As Integer
If Me.txtSenha.Value = DLookup("[Senha]", "[tblUsuarios]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[tblUsuarios]", "[User] = '" & Me.txtUser & "'")
Select Case Identificacao
Case 1
stDocName = "frmEntrada"
Case 2
stDocName = "frmEntrada"
Case 3
stDocName = "frmManutenção"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
End If

End Sub

Módulo LoginSenha:

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", "tblUsuarios", 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


No frmPrincipal:

Caixa de texto: txtUsuarioAtual e Fonte de Controle: =getUsuarioAtual()

Porém, ao abrir o frmPrincipal não mostra o Usuário Logado...

Por favor me ajudem...

Desde já agradeço mais uma vez e que Deus continue abençoando a todos...

Abraços...

Se você armazena o login do usuário em alguma tabela, tente.

=DLookup("[User]", "[tblUsuarios_logado]")

Mas se quiser por variável, tente isso:

https://www.maximoaccess.com/t9699-resolvidonome-do-usuario-logado-aparece-no-form-principal#77547

Ok, vou testar e dou retorno.

Estamos aguardando.

Bom dia Cláudio.

Fiz o teste e está Logando. Quando abre o form principal, tem hora que mostra o usuário logado e hora que não.

É como se ficasse invisível. Aí passo o mouse sobre a caixa de texto ou clico em outra parte do form ou botão ai mostra o nome do usuário.

Coloquei no Ao carregar do form principal, Me.txtUsuarios.visible = true

Mesmo assim não mostra o usuário.

Você pode me dar uma dica de como exibir?

O usuário está Logando. Só não aparece as vezes na caixa.

Abraço,

Um maneira que eu  acho simples, sem precisar "aguardar" o nome do usuário atual é:
Ao invés de uma caixa de texto, usa-se uma caixa de combinação com dua colunas
id_Usuario
Usuario

Isso evita de precisar digitar o nome.

Em um modulo básico qualquer colocar:

Public login As login
Type login
   id  As Long
   Usuario As String * 50
   
End Type

No botão do formulário que irá clicar para logar o usuário, bem no final do código apos o
código de verificação e o usuário ter sido validado, coloque:
login.id = Me.nomeCombox.Column(0)
login.Usuario = Me.nomeCombox.Column(1)

Sempre que quiser se referenciar ao usuário atual, em qualquer parte do aplicativo
é só usar essas duas variáveis. Ex.:

Me.caption = "Usuário atual: " & login.usuario

Isso irá colocar o nome do usuário no cabeçalho  do formulário.

[ ]'s

Bom dia Silva.
Mais fácil do que o Noob postou impossível.

Obrigado Cláudio e Noobezinho.

Fiz o seguinte,

DoCmd.Close
DoCmd.OpenForm "frmMenus"
Forms! FrmMenus! txt_User = Me.txtUser

No Ao carregar do form principal

Me.txt_User. Setfocus

Estatou blz.

Desde já agradeço pela ajuda que vocês me tem me dado.

Deus os abençoe.

Por nada.
Bem, se resolvido está só falta fechar o tópico.

Blz, foi resolvido. Obrigado mais uma vez.

"Mesmo que situações nos sobre venham. A ponto de querer sucumbir nosso pequeno barco. Há um Deus que está sempre pronto a nos ouvir e nos ajudar. Mateus 7.7-8"

Francisco

Quando um tópico é resolvido, devemos colocar o Resolvido
no título do tópico.
Se ainda não sabe como, dê uma olhada ali embaixo na minha
assinatura.

[ ]'s

Bom dia Noobezinho. Estou usando o meu celular. Pois estamos com problema na Internet via radio aqui. No celular só aparece a opção de responder.

Agradeço a todos do fórum. Sempre que preciso tem me ajudado.

Resolvido.

Certo

Eu coloco pra você.

[ ]'s