Fóruns
Microsoft Excel - 2...
Formulários
Mudar o foco de um ...
 
Notifications
Clear all

Mudar o foco de um textbox para um botão

 
Formulários
Post Recente por andjesus 8 anos atrás
9 Posts
3 Usuários
0 Reactions
3,487 Visualizações
RSS
 Jan
(@jan)
Posts: 12
Active Member
Topic starter
 

Olá pessoal tudo bom. Sou novato em VBA e gostaria de uma ajuda dos nossos colegas para resolver a seguinte questão: em um form tenho 3 textbox (sendo que o último está desabiliado.(Só servirá para exibir valores) e 2 botões que se encontram desabitado. Sei que se pressionar a tecla enter após preencher um txtbox, o foco muda para o próximo txtbox, seguindo a propriedade TabIndex. Porem, preciso que o após preencher o penultimo txtbox, habilite o botão e mude o foco para o mesmo. Já mudei a ordem do TabIndex porém não surte o efeito desejado. Estou tentando simular uma entrada de dados via leitor de barras, já que o mesmo digita o código lido e acionar o Enter.Conto com a ajuda de todos

 
Postado : 20/02/2015 8:14 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente se basear no raciocínio abaixo.

Private Sub TextBox2_Change()
TextBox1.SetFocus
End Sub
Private Sub TextBox2_Enter()
TextBox1.SetFocus
End Sub

Por favor lembre se de usar a pesquisa, antes de postar a dúvida!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/02/2015 8:20 pm
 Jan
(@jan)
Posts: 12
Active Member
Topic starter
 

Alexandre, boa noite. Ajudou sim, em uma parte, porém gostaria de habilitar e mudar o foco para o botão após o usuário clicar no enter. O evento change é ativado após o primeiro caracter ser digitado, apesar de funcionar também. Porém gostaria de ativar somente após o enter. Desculpa se estou me expressando mal, sou iniciante. Agradecido por tudo

 
Postado : 20/02/2015 8:36 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente algo assim...

Private Sub TextBox1_AfterUpdate()
Me.CommandButton1.SetFocus
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/02/2015 8:38 pm
 Jan
(@jan)
Posts: 12
Active Member
Topic starter
 

Também não amigo. Ele habilitou o botão, porém o foco permaneceu no referido TextBox sendo o texto estando selecionado na cor azul

 
Postado : 20/02/2015 8:48 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Por favor, poste um arquivo modelo compactado!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/02/2015 4:58 am
 Jan
(@jan)
Posts: 12
Active Member
Topic starter
 

Segue abaixo o modelo. Digite algo e pressione enter no ultimo textbox e veja o que acontece. O foco não passa para o botão

 
Postado : 21/02/2015 8:15 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

tente

Private Sub TextBox2_AfterUpdate()
    Me.CommandButton1.Enabled = True
    Me.CommandButton1.SetFocus
End Sub

Vá em propriedades desse botão e mude a opção Default para True
Use a tecla Tab para saltar os controles, enquanto preenche o userform.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/02/2015 11:38 am
 andjesus
(@andjesus)
Posts: 1
New Member
 

Olá, briguei um pouco com o mesmo problema, consegui da seguinte forma

me.NomeBotao.activate

Abcs

Anderson

 
Postado : 01/07/2016 7:25 am
Forum Jump:
  Tópico Anterior
Próximo Tópico