[Resolvido]Condição de preenchimento de campos

Amigos, bom dia!
Estou com uma dificuldade que dá até raiva!!! e

Em um form tem um campo data (DataEntrega, para este campo tenho que ter duas condições:

1ª - não pode ficar em branco;
2ª - não pode ser menor que o campo (DataRecebimento) do mesmo frm;

Já tentei escrever um if dentro do outro nas propriedades ao sair e após atualizar, mas não dá certo.

Sei que não é difícil, já tentei pela pesquisa no fórum (e vou continuar), mas se alguém tiver uma ideia prática, agradeço.

no campo DataEntrega ao perder foco :
Dim dataentrega as Date
Dim datarecebimento as Date


If IsNull(DataEntrega) then
msgbox("Campo de preechimento obrigatorio")
Me.undo
end if

dataentrega = format(DataEntrega, "dd-mm-yyyy")
datarecebimento = format(DataRecebimento, "dd-mm-yyyy")

If "#" & dataentrega & "#" < "#" & datarecebimento & "#" then
msgbox("Data de entrega nao pode ser menor que data recebimento")
else
exit sub
end if

Olá amigo Óscar Prazer em conhecê-lo.

Obrigado pelo seu retorno.

Sua sugestão não funcionou como esperado.
Estou lhe disponibilizando o arquivo. Se for possível, dê uma olhada.
Veja se tem relação com o tipo de campo na tabela. Lá estão definidos como data/hora e data abreviada

http://www.minhateca.com.br/joaochiodi/Documentos/,474120104.

Fala João!!! Tenta aí no evento antes de atualizar:

Código:

'Se a data de entrega for maior que data de recebimento
If DataEntrega < DataRecebimento Then
    'O sistema reporta a mensagem ...
    MsgBox "Data da entrega não pode ser menor que a data do recebimento.", vbInformation, "Sistema"
    '...e cancela o evento
    DoCmd.CancelEvent
'Ou se a data de entrega for NULO
ElseIf IsNull(DataEntrega) Or DataEntrega = "" Then
    'O sistema reporta a mensagem ...
    MsgBox "É necessário preencher a data da entrega.", vbInformation, "Sistema"
    '...e cancela o evento
    DoCmd.CancelEvent
End If

Você ainda poderá utilizar do código abaixo no evento "ao sair". Creio que esse atenderá melhor a sua necessidade:

Código:

'Se a data de entrega for maior que data de recebimento
If DataEntrega < DataRecebimento Then
    'O sistema reporta a mensagem ...
    MsgBox "Data da entrega não pode ser menor que a data do recebimento.", vbInformation, "Sistema"
    '...e cancela o evento
    Cancel = True
'Se a data de entrega for NULO
ElseIf IsNull(DataEntrega) Or DataEntrega = "" Then
    'Se a data de entrega for maior que data de recebimento
    MsgBox "É necessário preencher a data da entrega.", vbInformation, "Sistema"
    '...e cancela o evento
    Cancel = True
End If

Abraços,

Olá João como só tenho access2003 ainda não posso ver, mas tenta a dica do Uilson.

e já agora o formato de data/hora abreviado é "dd-mm-yyyy"

Abraço

Fala amigo conterrâneo. Como vai nossa capital?

Obrigado pelo vosso retorno. Funcionou com a sugestão do amigo Uilson.

Até a próxima.

Fala João ... Aqui tudo blz. E os peixes aí estão saindo fora d'água???

Abraços,

Tá saindo pacu no Passo do Lontra.
Fui lá semana passada.

Abraços