[Resolvido]Preenchimento de campo automático

Bom dia a todos!
Estou novamente recorrendo a ajuda de vocês.

Montei um formulário de solicitação de pedido que ao mudar o status para aprovado ele preenche automaticamente a data de aprovação com o valor "data atual".

Private Sub Etapa_AfterUpdate()
If (Me.Etapa.Value = "Aprovada") = True Then
Me.Aprovação.Value = Now
End If
DoCmd.RunCommand acCmdSaveRecord
Call Form_Current
End Sub


Mas, surgiu um problema: Caso a data atual seja após às 17h ele considere 8h do próximo dia útil, ou seja, caso o usuário aprove um pedido no dia 18/11/2015 às 17:15 o sistema preencha com a data de 19/11/2015 08:00... e se for uma sexta-feira após às 17h ele considere 8h da manhã da segunda.

É possível fazer isso?
Desde já agradeço a ajuda de todos.

Olá Bruno Nogueira,

Teste assim:

Código:

Private Sub Etapa_AfterUpdate()

    If (Me.Etapa.Value = "Aprovada") = True Then
        
        'verifica se hora é depois das 17
        If Time() > "17:00:00" Then
            
            'verifica se é sexta-feira
            If Weekday(Date) = 6 Then
                Me.Aprovação.Value = Date + 3 & " 08:00:00"
            Else
                Me.Aprovação.Value = Date + 1 & " 08:00:00"
            End If
        Else
            
            'antes das 17 horas
            Me.Aprovação.Value = Now
        End If
    End If

    DoCmd.RunCommand acCmdSaveRecord
    Call Form_Current

End Sub



Abraço

Muito obrigado
Funcionou perfeitamente.

Abrs

Olá Bruno Nogueira, obrigado pelo retorno.
Os utilizadores do fórum agradecem
Abraço