[Resolvido]Gravar usuário logado em um campo do formulario ou tabela

Boa Noite,

Volto a esse maravilhoso fórum......onde consegui varias ajuda sem quiser perguntar....rsrsrsrsrs

Estou com problema em um formulário e preciso da ajudas de vocês.....

Preciso que em um campo do formulário fique registrado quando ele inclui em outro campo.

Ex: tem colunas - col 1 código - col 2 bairro - col 3 usuário

Gostaria que na hora que ele fosse digitar ou salvar, ficasse registrado o usuário mas sendo visualizado no formulário para os outros ver.

Já tem no formulário o campo mostrando o usuário logado, mas não sei como fazer essa modificação.

Aguardo uma ajuda.
Sandro

Sandro,

Não consegui entender a claramente a sua necessidade. Entretanto se quer gravar o ultimo usuário que alterou o formulário e tem a informação do usuário logado é simples:

No botão salvar
me.quemalterou = me.usuariologado


Abraços,

Boa Noite Uilson,

é quase isso.....só que aí só vou ter o usuário na linha quando ele clicar em salvar.....

eu gostaria e se possível.....que fosse na hora que ele digitasse o bairro que é antes do campo ususario e na hora que perdesse o foco no campo bairro aparecesse o usuario .......será que é possível fazer isso........eu sei que no excel é possível.....mas não sei no access....

no aguardo.....
Sandro

Sandro,

O conceito é o mesmo no evento "após atualizar".

me.quemalterou = me.usuariologado

Se preferir disponibilize seu bd.


abraços,

fechando o assunto

Sandro,

Poderia descrever como foi resolvido?


abraços,

boa noite , eu queria registrar a data e hora que ele entrou e saiu .
pode me ajuda?

Olá...

Você quer gravar onde?
O ideal seria ter um tabela de log para essa finalidade. É isso que você busca???

eu sa tenho a tabela , mas esta dand erro aqui :

Código:

Private Sub sairDoSistema_Click()
If Me.intIdAcesso = 0 Then Exit Sub
    CurrentDb.Execute "UPDATE tbl_log_usuarios SET data_saiu=#" & Now & "# WHERE id_acesso=" & Me.intIdAcesso, dbFailOnError
DoCmd.Close
End Sub


Da erro de sintaxe, qual sintaxe estou errando? estou com esse impasse a dias , um colega me ajudou , mas colocando no meu arquivo da erro.

Se possível passa os objetos para que eu possa analisar.

Uma 23hs eu te passo Alison o arquivo

Segue o anexo , ele pula linha

Bom dia

Teste e retorne, aqui funfa.

Obrigados colegas , tinha resolvido aqui com outros amigos do forum, mas o que me pega é ele não guarda a saída na mesma linha, mas essa fica guardada caso eventualmente pare , , sei que mas pra frente vou ter problemas com o W-64bits, não consegui pegar essa declaração da function.

Boa tarde

No Botão de SAIR

Private Sub sairDoSistema_Click() ' Aqui eu registros data e hora que  ususario feccha o sistema
   
  Dim db As DAO.Database
  Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl_log_usuarios WHERE Hora_saiu IS NULL")
   'se n?o tem registos, morre aqui
  If rst.RecordCount = 0 Then Exit Sub
  With rst
  .Edit
  rst("Data_saiu") = Date
  rst("Hora_saiu") = Time
  .Update
 End With
'fecha o recordset e limpa a memoria
rst.Close: Set rst = Nothing
   
   DoCmd.Close
   End Sub