[Resolvido]pegar usuario logodo

boa noite , colegas , não consigo pegar meu usuario logado .
aonde erro?
no evento ao carregar

Código:

usuario.Value = frm_login.txtUsuario

e quero gravar ele na tabela quando iniciou e finalizou.
Na verdade não estou nem sabendo mostrar usuário logado

Eu consigo colocar na mesma tela , mas não consigo carregar o usuário logado na outra tela e gravar a data e hora do inicial e fim que isso não faço ideia como faz.

Boa noite

teste

Private Sub Form_Load()
userLogado.Value = Forms.frm_login.logado
End Sub

Boa noite.
Como alternativa, caso seja útil.

Boa tarde amigos, Marcelo e Assis muito obrigado por maisessa ajuda.

Macecelo bom dia.  Rapaz  o formulário parou de registrar a saída do usuário , está só registrando a entrada. Não fiz nenhuma alteração, só coloquei a tabela e frm em outro sistema.
Pode me ajudar a entender o porque? pois passando todo o sistema para o arquivo que você fez, eu fico sem entender , porque entendi a sua lógica. mas aonde causou o problema

Boa tarde,
a noite em casa verifico.

Beleza Marcelo, também o login do meu sistema começou a da pau..
o fórum esta dificil de ser acessado aqui , eu tenho 3 navegadores.
Aguardo ...

deu ruim em tudo , ja não consigo conferir login , não está carregando usuario logado so registra a entrada.
misericordia

boa tarde. Concertei algumas partes , so mesmo a parte de registrar entrada e saída

boa tarde. Concertei algumas partes , so mesmo a parte de registrar entrada e saída, mas agi=urda a ajuda mas continuo tentando.

Boa tarde Marcelo me ajuda essa  e mais uma explicação que entendi essa logica, eu copiei ele para outro formulário que é esse mas está nos mesmo campos!

Boa noite. eu so estou aguarrado nisso! Para fechar o sistema e lançar "

Meu amigo, tinha alguns códigos faltando...
A variável intIdAcesso não estava declarada, por isso não salvava...
Alterei de variável para um campo invisível de mesmo nome...

Marcelo Boa tarde, mais tarde vou dar uma olhada e vou te pedir ajuda para explicar.

Bom dia marcelo, no seu arquivo esta tudo ok, passei para meu , para entender sobre o código , mas continua dando erro , com operador faltando !?

   CurrentDb.Execute "UPDATE tbl_log_usuarios SET data_saiu=#" & Now & "# WHERE id_acesso=" & Me.intIdAcesso, dbFailOnError
DoCmd.Close
End Sub[/code]
Isso é problema de versão? Porque são os mesmos campos. Nem registra a entrada.
vou quebrando a cabeça aqui , porque do erro

Eu estou mexendo em outras parte aqui,mas na tabela de registar os usuários ainda continua dando erro.
Mesmo se eu copiar tudo dar o mesmo erro.
Qual erro estou cometendo?
Caraca, incrível

Boa noite, chegou a criar o campo intIdAcesso? Imagino que seja ele...
Lemba que falei que esse campo fica invisível...

Não! eu mudei ele como você deixo, agora ele sempre da erro e manda outra mensagem " operador faltando"

poste aqui o banco que está dando o erro

cheguei a criar outro tipo de logica , pois fiquei sei entender  essa

Você não copiou (ou alterou o que eu havia feito).

O código do botão OK do formulário de login,
na parte que abre o formulário principal o código não está do jeito]
que eu postei no exemplo anterior.

Veja p correto (e está no exemplo anterior, basta baixar):

If txtUsuario = Me.usuarioTab.Value And txtSenha = Me.senhaTab Then
    DoCmd.OpenForm "frm_principal", , acNormal, , , , Me.txtUsuario '<= Esse linha é a correta, pois passo como argumento de abertura o nome do usuário txtUsuario

DoCmd.OpenForm "frm_principal", , acNormal '<= Cadê o argumento? O correto é o de cima. Pode apagar essa e deixar apenas a de cima

     DoCmd.Close acForm, "frm_login"
Else
     MsgBox "Campos Inválidos", vbInformation, "Arquivamento-Login"
End If

Observe que, assim como no exemplo anterior, você não passou o argumento de abertura do formulário.
E eu já havia inclusive comentado no código anterior também isso.

falta de atenção em mim que não falta depois de 5 hs programando ja não passa nenhuma logica na minha cabeça.
obg