[Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário

Boa tarde, amigos.
Uma questão simples que, por um motivo não decifrei, não consegui resolver.
No Banco de Dados em anexo estou tentando implantar um recurso bem simples:

Gostaria que o controle txt_IdentifVeiculo mudasse sua cor de fundo (backcolor) para VERMELHO, se a caixa de texto (DataSaida) está preenchida e a outra (DataRetorno) está VAZIA. Ou seja quando o veiculo ainda não retornou da viagem.
Tentei usar esse código abaixo mas ele não funcionou. Coloquei no evento NO ATUAL e no APÓS ATUALIZAR no Formulario Principal. Poderiam ver se há erro no código ou como fazer para funcionar, por favor?


Código:

Select Case Forms!Fml_Veiculo!SubFml_Viagem!DataRetorno
   Case Is = ""
       Select Case Forms!Fml_Veiculo!SubFml_Viagem!DataSaida
           Case Is <> 0
       Me.txt_IdentifVeiculo.BackColor = vbRed
       End Select
   Case Is = ""
       Select Case Forms!Fml_Veiculo!SubFml_Viagem!DataSaida
           Case Is = ""
       Me.txt_IdentifVeiculo.BackColor = vbBlue
       End Select
End Select


Obrigado.

Boa tarde . Você pode colocar esse campo no condicional, na própria pagina ele vai identificar se precisar verificar outro formulário.

Obrigado pela atenção, Crysostomo.

Voce poderia explicar melhor como fazer isso?
Não entendi bem...


Se a sua sugestão é usar o If Then eu tentei agora:

If Forms!Fml_Veiculo!SubFml_Viagem!DataRetorno = "" And Forms!Fml_Veiculo!SubFml_Viagem!DataSaida <> 0 Then
Me.txt_IdentifVeiculo.BackColor = vbRed
Else
Me.txt_IdentifVeiculo.BackColor = vbBlue
End If

Mas não funcionou...

cheguei agora deu uma olhada.
Voce não precisa colocar a condição para dois campos se você só quer o retorno do carro.


So acrescenta o seguinte codigo

Código:


Private Sub Cbo_Veiculo_AfterUpdate()
    DoCmd.ApplyFilter , "CodigoVeiculo=" & Me!Cbo_Veiculo.Column(0)
    Me.txt_IdentifVeiculo = Me.Cbo_Veiculo.Column(1)
    Me.SubFml_Viagem.SetFocus
    Me.Btao_NovaViagem.SetFocus
    Me!Cbo_Veiculo = Null
===ESSE '===
If IsNull(Me!SubFml_Viagem!DataRetorno) Then
    Me.txt_IdentifVeiculo.BackColor = vbRed
Else
      Me.txt_IdentifVeiculo.BackColor = vbBlue
End If
End Sub

Perfeito, meu amigo!

Funcionou direitinho.

Muito obrigado pela sua atenção e disposição.

Um grande abraço.

Obg pelo retorno.
Sucesso