[Resolvido]Select Case em Formulário Contínuo.

Boa tarde pessoal, gostaria de saber se existe alguma maneira de obter resultado de um Select Case em formulário continuo. Tenho um Campo chamado [Prazo de Entrega] que retorna um valor definido por um Selec Case, está funcionado porém só quando recebe o foco. Todo dia pela manhã uso um "Robo" com a instrução {DOWN} para recalcular o valor desejado. Segue abaixo o Select Case.

Select Case Status

Case "Não Iniciada", "Em Andamento", "Desenho Finalizado", "Aguardando outra Pessoa", "Adiada", "Correção de Desenho"
If (Forms![Lista de Questões]![Data Entrega] >= Date + 2) Then
[Prazo de Entrega] = "Restam " & [Data Entrega] - Date & " dias para o prazo de Entrega"
End If

If (Forms![Lista de Questões]![Data Entrega] = Date + 1) Then
[Prazo de Entrega] = "Resta apenas " & [Data Entrega] - Date & " dia para o prazo de Entrega"
End If

If (Forms![Lista de Questões]![Data Entrega] <= Date - 2) Then
[Prazo de Entrega] = "Processo em atraso " & Date - [Data Entrega] & " dias"
End If

If (Forms![Lista de Questões]![Data Entrega] = Date - 1) Then
[Prazo de Entrega] = "Processo em atraso " & Date - [Data Entrega] & " dia"
End If

If (Forms![Lista de Questões]![Data Entrega] = Date) Then
[Prazo de Entrega] = "Último dia para o prazo de entrega"
End If

Case Else
[Prazo de Entrega] = "Processo Finalizado"

End Select

Já tentei desacoplar o campo [Prazo de entrega] mas também não deu certo.
Atenciosamente, Luís Augusto

Este trecho: [Prazo de Entrega] = "Resta apenas " & [Data Entrega] - Date & " dia para o prazo de Entrega"

Não precisará registrar na tabela?

Ou pode somente aparecer em caixa desacoplada na visualização do form continuo.

Boa Tarde Dilson, obrigado pelo interesse.
Na realidade não tenho necessidade de registro na tabela, será apenas informativo para que não tenhamos que interpretar a informação. Tentei tirar a fonte de controle para desacoplar o campo porém, quando faço a seleção de algum registro, ele executa o Select Case e passa a informação para todos os campos [Prazo de entrega] do formulário, ficando todos com a mesma resposta de acordo com o registro selecionado.

Experimente:
Salve esta função em módulo e dê o nome que desejar:

Function situacao(argumentoStatus)

Dim DataX As Date

On Error Resume Next

DataX = (Forms![Lista de Questões]![Data Entrega])

Select Case argumentoStatus

Case "Não Iniciada", "Em Andamento", "Desenho Finalizado", "Aguardando outra Pessoa", "Adiada", "Correção de Desenho"
If DataX >= Date + 2 Then
situacao = "Restam " & DataX - Date & " dias para o prazo de Entrega"

ElseIf DataX = Date + 1 Then
situacao = "Resta apenas " & DataX - Date & " dia para o prazo de Entrega"

ElseIf DataX <= Date - 2 Then
situacao = "Processo em atraso " & Date - DataX & " dias"

ElseIf DataX = Date - 1 Then
situacao = "Processo em atraso " & Date - DataX & " dia"

ElseIf DataX = Date Then
situacao = "Último dia para o prazo de entrega"
End If

Case Is = ""
situacao = ""
End Select

End Function

Agora crie uma textBox no formulário continuo e em sua fonte de controle coloque:

=situacao([status])

Boa tarde Dilson, simplesmente perfeito! Acredito que estava com esse problema me incomodando a mais de um ano. Enfim resolvido, não sabe como sou grato a sua ajuda. Muito obrigado.
Como devo proceder agora, tenho que postar o exemplo ou é só dar como caso resolvido?

Aperte somente o botão resolvido.

No mais, todos felizes por ter dado certo. Disponha sempre!