Boa Tarde Amigos

 

Eu tenho varios Text no meu sistema e nesses Text eu os preencho totalmente, logo eu gostaria de passar automaticamente para o proximo Text sem precisar teclar Enter ou Tab.

 

Eu quero fazer isso e claro somente quando todo o conteudo do Text for preenchido.

 

Alguem pode me ajudar.

 

Obrigado

oi, tem como fazer sim,

 

no evento change do texto vc. coloca a seguinte linha:

 

If Len(Trim(Text1.Text)) = Text1.MaxLength Then Text2.SetFocus

 

Olá Ventana,

 

Para simplificar, crie uma procedure separada que poderá ser chamada por todas as suas TextBox, na procedure, coloque o seguinte:

 

Public Sub Pula_Text()

 

    If Len(Screen.ActiveControl.Text) = Screen.ActiveControl.MaxLength Then

        SendKeys "{TAB}"

    End if

 

End Sub 

 

No evento Change, coloque o seguinte:

 

Private Sub Text1_Change()

    Pula_Text

End Sub

 

Coloque a linha acima em todas as suas caixas de texto e veja que agora, ao chegar o limite da text, ela automaticamente irá pular para a próxima.

 

Um abraço,

Sandro.