[Resolvido]Código para referenciar duas datas.

Prezados, bom dia.

Qual o código para criar uma condição em um campo Data na qual o usuário somente poderá digitar uma data entre 01012013 e a data atual.

Tentei com o código
Me.DataRecebimento1 >= #01/01/2013# And Me.DataRecebimento1 <= Date, mas não funcionou, deu erro de compilação.

Se alguém tiver alguma sugestão, agradeço.

Bom dia !
Uma dica seria criar um campo texto no qual informará a data e no evento "antes de atualizar" inserir o código:

Código:

If campotexto.Value < #1/1/2013# Then
    MsgBox "Erro, a data não pode ser menor que 01/01/2013"
    DoCmd.CancelEvent
    Exit Sub
         else
    msgbox "A data está de acordo !"
End If

Teste e retorne.
Abraços.

Uma alternativa seria usar a regra de validação do campo, que fica na guia dados da folha de propriedades do mesmo. Copie e cole nele

Código:

>=#01/01/2013# E <=Data()

E bem abaixo, texto de validação, coloque a mensagem a ser exibida caso a data informada não esteja dentro do intervalo de validação

Bom dia, senhores.


ThiagoSilvaa, obrigado pela a atenção e ajuda. Funcionou. Fiz da forma abaixo:


If Me.DataDocumento.value >= #1/1/2013# And Me.DataDocumento.value <= Date Then


IvanJr.

Agradeço-lhe, também, pela a atenção e a ajuda. A sua sugestão (a qual somente visualizei quando estava a responder este tópico) também funcionou. É bom termos opções de escolha.

Agradecido a ambos.

O fórum agradece pelo retorno !
Abraços.