[Resolvido]Campo data automático após atualização da hora

Pessoal, bom dia

Meu problema é o seguinte:

1. Tenho um formulário que possui a DATA de início, HORAde Início e HORA final de um processo. Ex. 27/05/2019 das 11:00 as 12:00;
2. O próximo campo é a data inicial do segundo processo que após eu atualizar a hora final deverá verificar se a hora é maior que 12:00:00 AM, ou seja, se for maior que 0 o campo data desse formulário deve trazer o próximo dia, nesse exemplo manteria a mesma data, mas se fosse digitado 27/05/2019 das 23:00 as 00:01 o sistema deveria colocar a data do campo igual a 28/05/2019.

Usei esse código, mas já percebi que qualquer numero que coloque será sempre maior que zero

Os campos respectivamente são:

• data_inicial_processo1
  
• horainicial
  
• horafinal
  
• data_inicial_processo2
  

Código:

Private Sub horaFinal_AfterUpdate()
    If Me.horafinal > "12:00:00 AM" Then
    Me.data_inicial_processo2.SetFocus
    [Forms]![MeuForm].[data_inicial_processo2] = Me.data_inicial_processo1 + 1
    End If
End Sub

Abs

Resolvido galera, de um jeito mais simples,

Peguei a hora final e subtrai da hora inicial, se o resultado for menor que 0 então ai somei 1 a data inicial, ficando da seguinte forma:

Código:

    If (Me.horafinal - Me.horainicial) < 0 Then
    Me.data_inicial_processo2.SetFocus
    [Forms]![MeuForm].[data_inicial_processo2] = Me.data_inicial_processo1+ 1
    Else
    Me.data_inicial_processo2.SetFocus
    [Forms]![MeuForm].[data_inicial_processo2] = Me.data_inicial_processo1
    End If

Ufa!

Valeu