[Resolvido]Preencher um campo automático e pular para outro

Bom dia Amigos do Forum,

Preciso de ajuda para um campo do formulário.

Possuo uma caixa de texto com um botão ao lado que quando acionado o mesmo abre um calendario para selecionar a data e prencher a caixa de texto.
Acontece que o foco fica na caixa de texto, e eu gostaria que o foco pulasse automaticamente para a outra caixa de texto.
Tem como fazer isto?

Dentro do VBA do calendario, utilizo estas funções que não estão visiveis, mas funfam;


Private Sub SeuCalendário_BeforeUpdate(Cancel As Integer)
Me.SuaCaixaTexto1.Value = Me.SeuCalendário.Value
Me.SuaCaixaTexto1.Requery
End Sub

Private Sub SeuCalendário_Click()
DoCmd.GoToControl "SuaCaixaTexto2"
End Sub

JPaulo,

Mais uma vez obrigado pela ajuda.

Me utilizei do - SendKeys "{tab}" no botão OK do form Calendário.

Esse procedimento pode ser usado também?

Sds,

Estamos a falar de situações diferentes;

Voce tem um calendario popup que reage por um botão, eu estava a falar no calendario do Access (activex control) que é inserido no form, pode ficar invisivel ou não e funfa como lhe passei acima.

Nota de gato escaldado:
Evitem ao máximo, a utilização do SendKeys, com o tempo irão ver os resultados.

Olhe aqui uma preciosa ajuda;

http://www.fontstuff.com/access/acctut09.htm

Ok Amigão,

Realmente estou usando um calendario popup, não estou a

usar o do Access somente pela estética do mesmo. rsrsss

No 2003 ele é horroroso.

Obrigado mais uma vez pelo esclarecimento.

Sds,