[Resolvido]Parar contagem de dias

Andei à procura mas não consegui encontar.
Tenho o campo “Data_Registo” onde registo a data do documento, o campo “prazo” que são os dias que tenho para despachar o documento, o campo “falta” os dias que faltam para terminar o prazo e o campo “Data_conclusão” onde registo a data de envio do documento.
No campo “prazo” coloquei:

Private Sub Prazo_AfterUpdate()
Data_Limite = DateAdd("d", Prazo, Data_Registo)

If Not IsNull(Me.Data_Limite) Then
Me.Falta.Value = Calcularprazo(Me.Data_Limite)
Else
Me.Falta = 0
End If
End Sub

Tenho o modulo data com:
Public Function Calcularprazo(Data_Limite As Date) As Integer
If IsDate(Data_Limite) And Not IsNull(Data_Limite) Then
Calcularprazo = Int([Data_Limite] - Date)
Else
Calcularprazo = 0
End If
End Function

Pretendia que ao colocar uma data no campo “Data_conclusão” os dias no campo “falta” deixassem de contar.
Obrigado

Olá António Amaro,

O ideal seria o campo Falta ser um campo calculado.
Algo assim (não testado):

Código:

=Iff( len(Me.Data_Limite)&"" =0 , Calcularprazo(DateAdd("d", Prazo, Data_Registo))

Se pretender manter no form como tem, pode tentar mover este código para o evento "no atual"

Código:

Data_Limite = DateAdd("d", Prazo, Data_Registo)

If Not IsNull(Me.Data_Limite) Then
Me.Falta.Value = Calcularprazo(Me.Data_Limite)
Else
Me.Falta = 0
End If

Abraço

Fiz a alteração de

If Not IsNull(Me.Data_Limite) Then
para

If IsNull(Me.Data_conclusão) Then

Olá António Amaro,

E conseguiu resolver dessa forma?

Se sim, não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Obrigado a quem tentou ajudar.
Resolvido.