TEXT AUTO FOCUS

USUARIO.EXCLUIDOS 30/08/2007 10:36:54
#233382
cirei 3 campos para data com activetext gostaria
de saber como faço p/ Focus ir de um campo pro outro
automaticamente:

quando colocar dois digitos no activetext16 pular
pro activetext17 e qndo digitar mais 2 no 17
pular pro 18...

alguem pode me dizer como fazer isso?


grt!
USUARIO.EXCLUIDOS 30/08/2007 11:06:59
#233390
Nao conheco o ActiveText.
Mas, no TextBox faria assim:

Private Sub TextAtual_Change()
If Len(TextAtual.Text) = 2 Then
    ProximoText.Text
End If
End Sub


Valeu!
USUARIO.EXCLUIDOS 30/08/2007 11:08:18
#233391
ERRATA,

ProximoText.SetFocus

Valeu!
WHELLNET 30/08/2007 12:43:51
#233411
Ou vc pode alterar a propriedade do maxlenght do text e ai coloca o código
Private Sub txt_dado_Change()
If Len(txt_dado.text) = txt_dado.maxlenght then sendkeys "{tab}" 'q vai seguir para o proximo controle
Tópico encerrado , respostas não são mais permitidas
Voltar