Notifications
Clear all

TextBox(A).SetFocus É POSSIVEL????

4 Posts
3 Usuários
0 Reactions
873 Visualizações
(@wlopes)
Posts: 2
New Member
Topic starter
 

- Olá a todos.
Estou com um problema que não consigo resolver.
Tenho um formulário com diversos TextBox. Um dos TextBox, TextBox4, é numérico e serve de controle para diversas situações. Tudo está funcionando.
Resolvi fazer um controle mais rigoroso e queria usar o conteúdo do TextBox4 como indexador.
Exemplo: TextBox(TextBox4).SetFocus, quando TextBox4 for igual a 5 ir para o TextBox5. Não funcionou. Já tentei usar uma variável como TextBox(A).SetFocus e outros recursos e não funcionou.
A rotina que pensei seria assim:

Private Sub TextBox12_Change()
Dim A As integer
A = TextBox4
If TextBox4 < 7 Then
TextBox(A).SetFocus '<= se A=5 seria TextBox5.SetFocus
End If
End Sub

Tem como fazer isso?
Abs.

 
Postado : 27/03/2016 7:36 pm
(@pedro_m)
Posts: 56
Trusted Member
 

Bom dia.
Não sei se perceb, mas o que quer é se tiver na textbox4 o valor 5 então mudar para a textbox5.

E se tentar o código "if"
if textbox. Value=5 then
Textbox5. Setfocus
End if

Não sei se o código dá certo, os meus conhecimentos são poucos, mas pode ajudar nalguma coisa adaptando ao que quer

 
Postado : 28/03/2016 4:45 am
(@edcronos2)
Posts: 346
Reputable Member
 

não sei se entendi oq vc quer fazer , mas objetos de formulario tem a facilidade de ser usados com nomes fragmentados ou dentro de variaveis
"até hoje eu quero algo do tipo para variaveis comuns "

TextBox(A).SetFocus

tem que ser assim
me.controls("TextBox" & A).SetFocus

 
Postado : 28/03/2016 7:14 am
(@wlopes)
Posts: 2
New Member
Topic starter
 

- Obrigado, é isso mesmo funcionou.
Muito obrigado.
Abs.

 
Postado : 28/03/2016 5:20 pm