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

Bom dia

Teste e retorne, aqui funfa.

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