[Resolvido]Calculo horas com duas condições

Bom dia pessoal,

tenho uma bd que lançamento de horas extas, que que ao clicar num botao roda o VBA abaixo:


If Me.Tipo_Lançamento.Value = "PAGAMENTO" Then
Me.Total_Horas = (Me.SaidaManha - Me.EntradaManha) + (Me.SaidaTarde - Me.EntradaTarde)
Me.log.Value = Now & " - " & [Forms]![logado]![usuário]
Total_Horas.SetFocus
Me.JUSTIFICATIVA.SetFocus
End If
DoCmd.GoToRecord , "", acNewRec

o que eu queria, ja querei a cabeça aqui, que quanto os campos (Me.SaidaManha, Me.EntradaManha, Me.SaidaTarde e Me.EntradaTarde) detectassem se entao dentro dos horários das 22:00 às 05:00 fizessem o calculo da diferença e inserissem em um novo registro como adicional noturno. Por exemplo:

Dia : 27/06/2022 - Entrada de Manha às 04:00, saída de manha às 06:00, inserir em um novo registro que:
houve entrada de manha às 04:00 e saída as 05:00, como adicional noturno

Dia : 26/06/2022 - Entrada a tarde às 09:00, saída da tarde às 23:00, inserir em um novo registro que:
houve entrada de manha às 10:00 e saída as 23:00, como adicional noturno

espero que de para entender minha duvida

Boa noite
Dê continuidade aos seus temas, pois verifico que tem vários temas seus em aberto há bastante tempo
Sobre esta dúvida:
1- Se bem entendi, em caso de sobreposição de horário noturno, ficará com 2 registos e com horas sobrepostas
4:00-6:00 ficará (1) 4:00-6:00 (2) 4:00-5:00. É isso?
2- Não entendi o porquê de, no 2ºexemplo, o registo ser das 10 às 23 e não das 22 às 23
3- Para acrescentar o registo tem de indicar nomes de todos os campos a inserir e com que valores

Alexandre Neves, primeiramente desculpa por nao dar como resolvido os tópicos em aberto, ja os dei retorno em todos, irei me policiar quanto a isso, quanto a minha duvida estou postando a imagem do form e uma breve explicação do que necessito




Os campos são do formulário são:
Entrada Manhã = Me.EntradaManha
Saída Manha = Me.SaidaManha =
Entrada Tarde Me.SaidaTarde =
Saída Tarde = Me.EntradaTarde =

O que estou querendo fazer é sempre que o período da manhã contiver um valor entre às 00:00 e 04:59, e a noite das 22:00 às 23:59 o após eu atualizar o campo JUSTIFICATIVA banco calculasse automaticamente essa diferença e jogasse em um novo registro para evitar lançamento errado, como já aconteceu, pois são várias pessoas que mexem nisso, e la na frente afeta o pagamento dos funcionários.

Deixei em vermelho como preciso que seja preenchido automaticamente,

Espero ter deixado minha dúvida melhor explicada

Boa noite
Vejo outros campos no formulário, mas usando apenas os que indicou:
Colocar no acontecimento BeforeInsert do form

Código:

Dim strCampos As String, strValores As String
If EntradaManha < #5:00:00 AM# Then
    strCampos = "EntradaManha,SaidaManha"
    If SaidaManha < #5:00:00 AM# Then
        strValores = "#" & EntradaManha & "#,#" & SaidaManha & "#,"
    Else
        strValores = "#" & EntradaManha & "#,#05:00#,"
    End If
End If
If SaidaTarde > #10:00:00 PM# Then
    If strCampos = "" Then
        strCampos = "EntradaTarde,SaidaTarde"
    Else
        strCampos = strCampos & ",EntradaTarde,SaidaTarde"
        strValores = strValores & ","
    End If
    If EntradaTarde > #10:00:00 PM# Then
        strValores = strValores & "#" & EntradaTarde & "#,#" & SaidaTarde & "#,"
    Else
        strValores = strValores & "#22:00#,#" & SaidaTarde & "#,"
    End If
End If
If strCampos <> "" Then
    CurrentDb.Execute "INSERT INTO Tabela (" & strCampos & ") VALUES (" & strValores & ")"
End If


Grande Alexandre Neves, primeiramente obrigado,

Tentei mexer aqui conforme o código que voce postou porem quebrei a cabeça e nao consegui, estou postanto o bd para voce dar uma olhada por favor e se puder ajudar fico imensamente agradecido, limpei ao máximo, inicie ele como o shift apertado,

o formulário que uso para o lançamento chama : formHorasExtras, e a tabela tblExtras,

ele vai dar erro de rodape que removi para deixar mais leve possivel

muito obrigado

Pessoal consegui em partes o codigo abaixo esta funcionando, porem so faltou uma coisa que nao consegui para finalizar, que quando os campos nao tiverem que nao tiverem valor sejam preenchidos com o valo "00:00" porem tentei e nao consegui.

If EntradaManha < #5:00:00 AM# Then
strCampos = "EntradaManha" & "," & "SaidaManha"
If SaidaManha < #5:00:00 AM# Then
strValores = EntradaManha & "','" & SaidaManha
Else
strValores = EntradaManha & "','" & "05:00"
End If
End If


If SaidaTarde > #10:00:00 PM# Then
If strCampos = "" Then
strCampos = "EntradaTarde" & "," & "SaidaTarde"
Else
strCampos = strCampos & "," & "EntradaTarde" & "," & "SaidaTarde"
strValores = strValores
End If
If EntradaTarde > #10:00:00 PM# Then
strValores = strValores & "," & EntradaTarde & "," & SaidaTarde & ","
Else
strValores = strValores & "," & "','" & "22:00" & "','" & SaidaTarde
End If
End If


If strCampos <> "" Then

CurrentDb.Execute "INSERT INTO tblextra (" & strCampos & ") VALUES ('" & strValores & "')"

Consegui resolver depois de quebrar a cabeça, rs

Valeu...