[Resolvido]Campo de texto com data

Bom dia e saúde para todos. Eu tenho um formulário contínuo com 2 campos texto, num dos campos poderei  ter que escrever uma data (dd-mm-aaaa) mas fica sempre como texto e é assim que eu pretendo.  Depois tenho um outro form contínuo  para onde vou passando as datas que me convém, mas nesse 2º form o campo é mesmo formatado como data (dd-mm-aaaa). Criei um comando que me transporta a data do 1º para o 2º form. Tudo funciona bem, mas se eu me enganar e seleccionar um um registo no 1º form onde o texto seja diferente de dd-mm-aaaa aparece naturalmente a mensagem de erro no 2º form a dizer que o valor não é compatível.
A pergunta é a seguinte: como posso accionar uma caixa de mensagem dizendo que eu seleccionei o registo errado para poder reposicionar de novo o foco no campo certo (dd-mm-aaaa) do 1º form sem que o programa se feche automaticamente.
Obrigado pela atenção.

Tente ao levar o valor da caixa1 para a caixa2 transformar a string em data

Me.Caixa2 = CDate(Me.Caixa1)

Cumprimentos.

Funciona muito bem mas apenas se eu seleccionar o registo na caixa1 onde tenha escrito: dd-mm-aaaa.
Se seleccionar um registo onde onde na caixa1 em vez de dd-mm-aaaa estiver escrito Brasil dá outro o erro: "type mismatch" e claro não transporta nada para a caixa2.
Obrigado.

Após atualizar da caixa1 verifique se o valor digitado é do tipo data

If IsDate(Me.Caixa1) = False
   Blablabla
Else
   Blablaba
End If 

Cumprimentos.

A propósito... Seja bem vindo ao Fórum!


Cumprimentos.

Desculpe, só agora pude testar.
Funciona às mil maravilhas, fico sempre surpreendido com a simplicidade e lógica das soluções.
Obrigado.

Ps: Quem sabe sabe quem não sabe aprende.

Desculpe, esqueci-me de cliclar "resolvido"

E esqueceu-se também de clicar no joinha da mensagem que o auxiliou...

Você falou:

Ps: Quem sabe sabe quem não sabe aprende.

Devo tudo que sei ao Fórum.. quando aqui postei minha primeira mensagem... não sabia nada.... nada mesmo.. tudo que aprendi foi aqui... espero que assim como eu... Cresça em conhecimento e quando isto acontecer..(e vai acontecer, só depende de você).. Ajude aos demais...

Nada mais justo o que faço... retribuir àquilo que recebi quando iniciei.

Cumprimentos.

"E esqueceu-se também de clicar no joinha da mensagem que o auxiliou..."
Confesso que não foi esquecimento, apenas não sabia que o devia fazer, desculpe.
Tudo quanto sei aprendi, também eu, aqui no Forum. Mas a melhor e mais importante lição que aprendi, como muito bem diz, é ensinar quem não sabe.
Obrigado.
Um abraço de Cabo Verde.

E o joinha Sergio?
Onde o encontrá-lo?


Dê um clique nesta figura ► localize ela no "rodapé" da  resposta que o auxiliou.


Encontrou?