[Resolvido]Problema com datas em formulário

Boa dia à todos,

Em meu banco de dados tenho um formulário de cadastro de veículos, onde há campos: Data do cadastro, Ano Fabricação e Ano Modelo.

A questão é que se alguém digitar uma data com "valores" incorretos passa, por exemplo: no campo data do cadastro se digitar 12/12/2035 (datas com valores superior a atual) ele aceita, se eu deixar ele como data automática ou seja data atual, meu box list (itens já cadastrados) que consta no meu form., pára de funcionar. Já nos campos Ano Fabric. e Ano Modelo, aceita qualquer digito, gostaria que ele aceitasse apenas anos corretos ex: 1986, 1999, 2005, 2012 etc...(não 65360,0002,etc...) e que o ano modelo jamais ser menor que o ano de fabricação.

Se alguém puder ajudar, ficarei imensamente grato

Sandro.
Goiânia

Boa tarde,
Para não aceitar data posterior à actual utilize, no acontecimento, ao sair do controlo
if TxtDataFabrico > Date then ...
Para só aceitar datas válidas no controlo, coloque o campo como tipo Data/Hora

Obrigado pela força, coloquei o referido código mas dá erro e cai em depuração de vba.
Sem querer abusar, como seria o código completo indicando com mensagem box quando: ao colocar data incorreta retornasse uma mensagem dizendo data tal incorreta, Ano de fabricação está posterior ao ano do modelo, digite a data correta. Já no campo Ano do modelo se digitar uma menor que o Ano de fabricação também informasse e solicitasse o ano correta.

Para as várias situações, é melhor disponibilizar a bd com dados significativos mas fictícios

Estou enviando o bd gch.zip.

Por gentileza, observe no formulário cadastro de veículos, data do cadastro para não receber datas inválidas (data inferior ou superior a atual) e os campos: ano fabricação e ano modelo, para só digitarem ano válido, e que o ano do modelo seja maior ou igual ao da fabricação. E se possível um código para o campo placa do veículo, caso não digitem nada sair uma mensagem de aviso pedindo a digitação da placa. 
desde já agradeço

aqui vai
É melhor normalizar os nomes dos controlos

Alexandre, mais uma vez agradeço a força.

O campo de data do Cadastro ficou perfeito, já aos campos Ano fabric. e Ano modelo continuam do mesmo jeito, mesmo com os códigos nos eventos.

O campo Ano modelo está aceitando valor menor que o Ano de fabric., o que não pode ocorrer.

mesmo assim obrigado pela ajuda.

Sandro

Boa tarde,
Realmente, havido uma falha no código do anomodelo
coloque
Private Sub TxtAnoMod_Exit(Cancel As Integer)
    If Len("" & TxtAnoMod) = 0 Then Exit Sub
    If Not IsDate(DateSerial(TxtAnoMod, 1, 1)) Then
        MsgBox "Tem de introduzir um ano válido."
        DoCmd.CancelEvent
    ElseIf TxtAnoMod < TxtAnoFabr Then
        MsgBox "O ano do modelo não pode ser infeiror ao ano de fabrico."
        DoCmd.CancelEvent
    End If
End Sub

Sobre outros erros, informe dados concrectos que acusem erro

Alexandre muito obrigado pelos códigos vba, ajudou muito.

Sandro

Boa tarde, socgyn

O Resolvido tem de ser marcado no local apropriado
Marquei-o agora

Obrigado pela informação e desculpe a falha, não havia percebido

Conforme informei na mensagem, já tinha marcado Resolvido
Como marcou agora, retirou o Resolvido
Vou remarcá-lo e não altere para que continue marcado