[Resolvido]Dlookup com data

Bom dia!

Tenho um formulário que ao digitar o Numero da OS ele busca em uma tabela o numero do contrato de manutenção e a data de expiração desse contrato, no entanto, em vez de atualizar o campo com a data do vencimento, ele preenche com a data do dia.

Veja o código abaixo:

Código:



Private Sub os_c_numero_serie_AfterUpdate()

If IsNull(DLookup("CadastroTagNumeroContratoManutencao", "TabCadastroTagOs", "CadastroTagNumeroSerieCinco='" & Me!os_c_numero_serie & "'")) Then
MsgBox "Este equipamento Não Possui Contrato de Manutenção", vbInformation, "Aviso"
Exit Sub
Else
If Not IsNull(DLookup("CadastroTagNumeroContratoManutencao", "TabCadastroTagOs", "CadastroTagNumeroSerieCinco='" & Me!os_c_numero_serie & "'")) Then
MsgBox "Este equipamento Possui Contrato de Manutenção", vbInformation, "Aviso"
Me.EntradaNumeroContrato = DLookup("CadastroTagNumeroContratoManutencao", "TabCadastroTagOs", "CadastroTagNumeroSerieCinco='" & Me!os_c_numero_serie & "'")
Me.EntradaDataExpiracao = DLookup("CadastroTagExpiracao", "TabCadastroTagOs", "CadastroTagNumeroSerieCinco='" & Me!os_c_numero_serie & "'")
MsgBox "Contrato de Manutenção Nº  " & Me.EntradaNumeroContrato & " Válido até  " & DLookup("CadastroTagExpiracao", "TabCadastroTagOs", "CadastroTagNumeroSerieCinco='" & Me!os_c_numero_serie & "'"), vbInformation, "Aviso"

Exit Sub

End If
End If
End Sub




Como solucionar o problema?
Desde já agradeço!

Não conheço a estrutura do seu banco, no entanto você está a complicar toda a instrução que deverá ser o mais simples possivel;

Código:

Private Sub os_c_numero_serie_AfterUpdate()
    If Nz(DCount("*", "TabCadastroTagOs", "CadastroTagNumeroSerieCinco='" & Me!os_c_numero_serie & "'"), 0) = 0 Then
            MsgBox "Este equipamento Não Possui Contrato de Manutenção", vbInformation, "Aviso"
            Exit Sub
        Else
            MsgBox "Este equipamento Possui Contrato de Manutenção", vbInformation, "Aviso"
            Me.EntradaNumeroContrato = DLookup("CadastroTagNumeroContratoManutencao", "TabCadastroTagOs", "CadastroTagNumeroSerieCinco='" & Me!os_c_numero_serie & "'")
            Me.EntradaDataExpiracao = DLookup("CadastroTagExpiracao", "TabCadastroTagOs", "CadastroTagNumeroSerieCinco='" & Me!os_c_numero_serie & "'")
            Me.Recalc
            MsgBox "Contrato de Manutenção Nº  " & Me.EntradaNumeroContrato & " Válido até  " & Me.EntradaDataExpiracao, vbInformation, "Aviso"
        Exit Sub
    End If
End Sub

Obrigado pelas sugestões!

Problema resolvido!