Time In e Time Out na mesma linha

Bom dia pessoal,
No meu sistema cada vez que o Usuário faz LogIn ou LogOut  do Programa é gerado um registro na tabela LogUserInOut, campos: IdUsuario; LogDate; LogTime; LogInOut.
No campo LogInOut é armazenado “In” quando o usuário Entra e “Out” quando Encerra/Fecha o programa. Até aqui sem problemas.

Como gero uma consulta ou relatório da tabela juntando na mesma linha/registro o Time In e o Time Out de cada Usuário?

Exemplo tabela LogUserInOut:
IdUsuario; LogDate; LogTime;  LogInOut
Avelino; 01/10/2020; 10:00:00; In
Avelino; 01/10/2020; 10:15:00; Out
Avelino ; 01/10/2020; 12:00:00; In
Avelino; 01/10/2020; 12:10:00; Out
Fernando; 01/10/2020; 10:05:00; In
Fernando; 01/10/2020; 10:30:00; Out
Fernando; 01/10/2020; 14:00:00; In
Fernando; 01/10/2020; 15:00:00; Out

Consulta ou Relatório desejado:
IdUsuario; LogDate; Time In; Time Out
Avelino; 01/10/2020; 10:00:00; 10:15:00
Avelino; 01/10/2020; 12:00:00; 12:10:00
Fernando; 01/10/2020; 10:05:00; 10:30:00
Fernando; 01/10/2020; 14:00:00; 15:00:00

Obrigado.

Boa tarde e bem-vindo ao fórum
Sem dados é mais difícil mas vamos tentar
Seria melhor se tivesse campo de registo
SELECT IdUsuario, LogDate, LogTime, (SELECT LogInOut FROM LogUserInOut as T2 WHERE IsNull(LogTime) and T1.IdUsuario=T2.IdUsuario and T1.LogDate=T2.LogDate) FROM LogUserInOut as T1 WHERE IsNull(LogInOut)

Muito obrigado Alexandre, mas não funcionou. Acrescentei o programa adaptado ao questionamento.

Boa tarde . faz pelo recorset
coloca seu bd aqui

Em anexo, o programa adaptado ao questionamento.

Obrigado Sr. Avelino pela sugestão,

Já utilizem no programa tabela semelhante ao sugerido com campos TimeIn e TimeOut e  com variável global que gravava IdLog, mas funcionava somente quando estava em ambiente monousuário. Com mais de um usuário acessando o programa a variável global é modificada para a última entra de um usuário, e ao fazer o Update o programa gravava o TimeOut  em outro registro. Pensei em utilizar um array global(IdUsuario) = IdLog.

Vou continuar um pouco mais com a outra solução. Vou pensar também em voltar para a sua sugestão, mas sem a utilização de variável global.

Penso num Update com Where IdUsuario, Max(LogDateIn) para achar o último registro do Usuário, então gravar o TimeOut.
Muito, muito obrigado.

em anexo

Sr. Crysostomo,
Verifiquei seu arquivo e não consta nenhuma solução ao questionamento inicial.
O Sr. acrescentou dois Forms de Login tentando registrar a entrada e a saída.
Obrigado pela sugestão, mas o meu projeto ja faz isso.
O que estou necessitando agora, é fazer umas consultas/relatórios mais elegantes com os dados do projeto, através, por exemplo de um SQL juntando o TimeIn e TimeOut numa mesma linha.
Acho que o arquivo pode confundir outros, pois o Sr. modificou consideravelmente os dados sendo impossível gerar consulta/relatorio.
Grato.

Boa tarde, mandei o arquivo errado para fazer teste e deletei todos  após enviar . desculpa, vou dar uma olhada aqui se tenho uma cópia.
da uma olhada aqui, se for esse o caso modifique algumas coisa
https://www.maximoaccess.com/t35421p12-resolvidocomo-faco-para-digitar-uma-letra-maiscula-precionando-a-tecla-shift-no-campo-de-pesquisa-do-access#242462

https://www.maximoaccess.com/t37806p5-resolvidoexibir-o-filtro-na-impressao-de-um-relatorio#258206

Boa tarde
Num módulo

Código:

Function HoraSaida(IdUsuario As String, LogDate As Date, LogTime As Date) As Date
    '--------------------------------------------------------------'
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '    utilize o código livremente mas mantenha os créditos    '
    '--------------------------------------------------------------'
    Dim Rst As DAO.Recordset
   
    Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tLogUserInOut LEFT JOIN tUsuarios ON tLogUserInOut.IdUsuario=tUsuarios.IdUsuario ORDER BY tLogUserInOut.IdUsuario, LogDate, LogTime")
    Rst.FindFirst "tUsuarios.IdUsuario=" & IdUsuario & " and LogDate=#" & LogDate & "# and LogTime=#" & LogTime & "#"
    Do
        If Rst("tUsuarios.IdUsuario") = IdUsuario And Rst("LogDate") = LogDate And Rst("LogInOut") = "Out" Then HoraSaida = Rst("LogTime"): Exit Do
        Rst.MoveNext
    Loop
End Function

Consulta
SELECT IdUsuario, LogDate, LogTime, HoraSaida( IdUsuario, LogDate, LogTime) AS HoraSaida FROM tLogUserInOut WHERE LogInOut='In';

Alexandre Neves,

Quase resolvido Alexandre,
Ao revisar a consulta gerada verifiquei que em alguns casos a HoraSaída está errada. Ex (Fernando 14:00:00 10:30:00)
Mas mesmo assim Top, top...
Obrigado.

PS
Marquei o Tópico/questionamento  erradamente com a Tag  Resolvido, mas não sei como remove-lá.

Sim Avelino, vou migrar para a sua sugestão, mas antes de migrar queria melhorar a consulta com o TimeIn e TimeOut na mesma linha.
São muitos registros de Logs.
Se não conseguir melhorar a apresentação da consulta com os dados atuais, não tem muito problema não.
Como os projetos estão em produção tenho que migrar com cautela.

Vou tentar responder o seu questionamento: (depois devo abrir novo Tópico focado no Log)

Vou testar a sua solução de TempVars para o IdLog.
Utilizo TempVars para a maioria dos dados do Usuario, mas armazenava o IdLog em uma variável Public. (isso no antigo projeto)
TempVars!IdUsuario = Nz(rs!IdUsuario.Value, 0)
TempVars!Usuario = Nz(rs!UsuarioNomeCurto.Value, "")
TempVars!IdSetor = Nz(rs!IdSetor.Value, 0)
TempVars!IdGrupo = Nz(rs!IdGrupo.Value, 0)

Como ja tenho muitos dados de Logs, conforme mostrado no inicio do Topico, estou focado agora, em apresentar melhor esses dados.
Obrigado novamente.

Acrescentando ao tópico
https://www.maximoaccess.com/t36171-login-usando-macros-nomeadas