[Resolvido]Tratar erro ao digitar data errada ao abrir um formulário

Boa tarde. Tenho um formulário com uma consulta nele, que na data possui um critério entre colchetes, ou seja, quando for aberto, o formulário pergunta ao usuário qual data ele deseja consultar. O problema é que se ele digitar algo errado, uma letra por exemplo, ele me da um erro (2950) conforme foto em anexo, e manda parar todas as macros e,  se for access run time, fecha o programa. Tentei maneiras de como tratar o erro, mas mesmo pesquisando bastante nao consegui, sou muito iniciante em VBA, se alguém puder me passar qual cod utilizar.. Acredito que apenas colocando um cod VBA  de tratar erros ao abrir o formulário resolveria. Tentei mas não consegui :/

Obrigado

Bom dia....

algo parecido com isso no evento após atualizar dos campos datas referidos.

Private sub

on error goto fim.

bla...bla..
bla...bla..


fim:
if err.number = 2950 then
msgbox" Campo aceita apenas numeros ", vbinformation, "Aviso".
me!seucampodata1= ""
me!seucampodata2= ""
me!seucampodata1.setfocus
end if

Critério entre colchetes sempre irá dar trabalho, porque não tem máscara de entrada.

Sugiro que faça um pequeno formulário com uma caixa de texto para a entrada da data com máscara de entrada,

e um botão de comando para primeiro verificar se o campo não está em branco.

Logo em seguida comando para abrir o formulário.

Na consulta do formulário, troque o critério da data para:

= Forms!NomedoFormqueCriou!NomeDacaixaDeTexto.

[ ]'s

Deu trabalho (pois tenho vários formulários com esse problema) mas deu CERTO!

Muito obrigado

Gabriel


Utilizou a minha sugestão?

Sim! Esqueci de mencionar. Obrigado novamente

Que bom que pude ajudar,Gabriel

Valeu pelo retorno!

Boa sorte !