[Resolvido]Ajuda com módulo em formulário de multas

Sr. Boa tarde!!
Estou precisando resolver uma questão com um módulo em um formulário de lançamento de multas que tenho em um sistema de controle de veículos que montei com a valiosa ajuda dos Srs.
O problema é que quando vou lançar uma multa ele só libera a caixa do usuário após eu colocar a placa do veículo, isso se o veículo estiver em uso.
A minha idéia é:

Vamos supor que o veiculo placa WWL-1234 tenha sido usado em 18/05/2020 das 08:00 as 12:30 pelo usuário Antonio da Silva e das 13:10 as 17:50 pelo usuário José Alberto, pois bem

Chegou uma multa hoje dia 20/05/2020 do veículo placa WWL-1234 de 18/05/2020 as 14:55.
Pergunto:
Tem como nesse formulário de lançamento de multas ao lancar a data da multa em uma janela ele me mostrar a seguinte informação:

Antonio da Silva 08:00 as 12:30
Jose Alberto 13:10 as 17:50

Para que no campo usuário eu coloque o Jose Alberto, pois na hora da infração era ele quem estava usando o veículo

Abaixo o módulo

Código:

Private Sub bt_gravar_Click()

If IsNull(Me.Placa) Then
   MsgBox "Informe a Placa do Veículo", vbCritical, "Atenção"
ElseIf IsNull(Me.DataDaMulta) Then
   MsgBox "Informe a Data da Infração", vbCritical, "Atenção"
ElseIf IsNull(Me.Motivo) Then
   MsgBox "Informe o Motivo da Infração", vbCritical, "Atenção"
ElseIf IsNull(Me.Usuario) Then
   MsgBox "Escolha o Usuário", vbCritical, "Atenção"
ElseIf IsNull(Me.Local) Then
   MsgBox "Informe o Local", vbCritical, "Atenção"
ElseIf IsNull(Me.Hora_infracao) Then
   MsgBox "Informe a Hora da Infração", vbCritical, "Atenção"
Else

Me.gravado = True

DoCmd.RunCommand acCmdSaveRecord
 
   
If MsgBox("Infração do Veículo gravada com Sucesso!" & vbCrLf & "Deseja registrar outra Infração ? ", vbQuestion + vbYesNo, "Informando") = vbYes Then
   DoCmd.GoToRecord , , acNewRec
Else
   DoCmd.Close acForm, "veiculos_multas_registra"
End If
             
End If

End Sub

Private Sub bt_novo_Click()
DoCmd.GoToRecord , , acNewRec
End Sub


Private Sub Form_Current()
If Me.gravado = True Then
   Me.bt_gravar.Visible = False
   Me.DataDaMulta.Enabled = False
   Me.Hora_infracao.Enabled = False
   Me.Placa.Enabled = False
   Me.Local.Enabled = False
   Me.Motivo.Enabled = False
   Me.Pontos.Enabled = False
   Me.Valor_infracao.Enabled = False
   Me.DataVcto.Enabled = False
   Me.gravado.Enabled = False
Else
   Me.bt_gravar.Visible = True
   Me.DataDaMulta.Enabled = True
   Me.Hora_infracao.Enabled = True
   Me.Placa.Enabled = True
   Me.Local.Enabled = True
   Me.Motivo.Enabled = True
   Me.Pontos.Enabled = True
   Me.Valor_infracao.Enabled = True
   Me.DataVcto.Enabled = True
   Me.gravado.Enabled = True
End If

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub Placa_AfterUpdate()
Usuario = DLookup("[Usuario]", "Tbl_Uso_Veiculo", "[Placa] = '" & Placa & "' and data_saida = #" & Format([DataDaMulta], "mm/dd/yyyy") & "#")
End Sub

Desde já agradeço a ajuda dos senhores

Caro Amigo,

Coloque esse código dentro de uma nova consulta, faça as devidas adaptações e veja se ajuda em alguma coisa. Estou considerando aqui uma TbAluguel onde tenho a placa, data, intervalo de hora de locação e responsável. Outra TbMulta com placa, data, Horário. Fazendo o cruzamento das informações tenho quem estava com determinado carro em determinada hora da multa. Isso é uma sugestão.

SELECT TbAluguel.Alu_Placa, TbAluguel.Alu_Data, TbAluguel.Alu_HoraInicio, TbAluguel.Alu_HoraFinal, TbAluguel.Locatário, TbMulta.Mul_Placa, TbMulta.Mul_Data, TbMulta.Mul_Horario
FROM TbMulta INNER JOIN TbAluguel ON (TbAluguel.Alu_Data = TbMulta.Mul_Data) AND (TbMulta.Mul_Placa = TbAluguel.Alu_Placa)
WHERE (((TbMulta.Mul_Horario) Between [Alu_HoraInicio] And [Alu_HoraFinal]));

Lembrando que isso serve para locações em um mesmo dia. Para mais de um dia tem que fazer as devidas adaptações.

Faz seus lançamentos de locações e multas normalmente e depois ver resultados nessa consulta.

Espero que ajude em alguma coisa.

Abraços (cuidado com corona)

Bom dia Finformática

Desculpe pela demora, mas é que estava com alguns problemas difíceis de serem resolvidos.
Em primeiro lugar eu agradeço muito pela ajuda, mas não consegui fazer funcionar
Estou colocando anexo o banco de dados para que você possa ver como ele funciona e ai poder me direcionar para uma resolução.
Desde já agradeço a atenção.

Um forte abraço

Em tempo

O usuário do banco é: Teste
A senha é: 123456

Grato

Boa tarde a todos

Alguém ai consegue, por favor, me ajudar com essa questão?

Desde já agradeço

Bom dia a todos

Alguém poderia me dizer, por favor, se o que preciso não é viável

Desde já agradeço

Boa tarde Carlos!

Em anexo

Saludos

Franklin
Bom dia!

Está perfeito a não ser pelo fato de, o formulário de multa não deixar colocar o usuário
Se tentar gravar ele pede para selecionar o usuário mas o campo não habilita

Bom dia Carlos

Funciona sim!!!

Boa tarde Franklin

Ficou perfeito
Agora é continuar com os ajustes para ficar redondo

Muito obrigado pela valiosa ajuda

Um forte abraço

Que bom Carlos!!!