[Resolvido]Como validar período de dadas de forma sequencial?

Pessoal..bom dia a todos...Olhei no repositório e não vi nada parecido.. O que eu preciso é um seguinte:
Tenho um formulário (modo simples) com dois campos: DATA_INICIO e DATA_FIM. Necessito criar um botão para validar: “A DATA_INICIO de um registro posterior deve ser sempre maior que a DATA_FIM do registro anterior”. Desse forma, eu validaria uma sequência de períodos conforme no exemplo abaixo:
EXEMPLO DE COMO FICARIA A TABELA DO REFERIDO FORMULÁRIO
REGISTRO..........DATA_INICIO.....DATA_FIM
1.........................01.02.2012......15.03.2012
2.........................10.05.2012......30.05.2012
3.........................02.08.2013......05.08.2103

Pessoal desde já agradeço a todos..esse fórum tem sido mais que um professor....

Segue figura para entender melhor...

Leonardus,

Os dados estão no formulário? ou na tabela?

Alexandre...é um prazer fazer contato....os dados estão no formulário.....

Pela descrição, pareceu-me mas estranho. Confirme se já se encontram na tabela. É que, na tabela, é mais fácil fazer o que quer.

Aexandre...vamos lá
Primeiro criei uma tabela com dois campos do tipo data. São eles: DATA_INICIO e DATA_FIM. Em seguida criei um formulário simples com os mesmos campos. O que eu quero é que o usuário insira somente datas sequenciais no formulário. Não consigo anexar o banco de dados como exemplo...se você concordar em passar seu e-mail posso enviar-lhe e você retornaria no fórum..

Leonardus,
O envio por c.e. particular é contra as regras do fórum e só deve ser usado em caso justificado.
Veja o caminho:
Deve ter um campo Registo (indexado)
Ao sair do controlo TxtDataInicio, valide se a data é igual ou superior à última DataInicio
If DLookup("Data_Fim","Tabela","Registo=" & DMax("Registo","Tabela")) > TxtDataInicio Then
MsgBox "A data início não pode ser anterior à última data fim"
TxtDataInicio.setfocus
end if
Ao sair do controlo TxtDataFim, valide se a data é igual ou superior à TxtDataInicio
If TxtDataInicio > TxtDataFim Then
MsgBox "A data final não pode ser anterior à data inicial"
TxtDataFim.setfocus
end if

Adapte para o seu caso

Alexandre...tá dando Erro de síntese, operador faltando...
inseri da seguinte forma:

Private Sub dataFim_Exit(Cancel As Integer)
If dataInicio > dataFim Then
MsgBox "A data final não pode ser anterior à data inicial"
dataFim.SetFocus
End If
End Sub

Private Sub dataInicio_Exit(Cancel As Integer)
If DLookup("DataFim", "teste", "CodData=" & DMax("CodData", "Teste")) > dataInicio Then
MsgBox "A data início não pode ser anterior à última data fim"
dataInicio.SetFocus
End If
End Sub

estou anexando o banco...

Leonardus,

Tem DataInicio para nome de campo e nome de controlo ...
Quando indica DataInicio não espere que o Access adivinha ao que se quer referir

Está a dar erro. Onde?

Alexandre..não sei se entendi...na verdade não existem caixas de texto. São somente dois campos de datas e um campo com (numeração automática)

Então, não disse que os dados estavam no formulário?
Não pode executar código directamente na tabela.

Alexandre...desculpe pelo mal entendido....eu gostaria de validar no formulário...enviei o banco para facilitar o entendimento...se ainda puder me ajudar agradeço....

Utilizo 2003

Ok..Alexandre..desculpa a demora..estou postando em 2003.

Não tenho havido continuidade. O assunto passa a Resolvido.