Vídeo recomendado
https://youtu.be/diWPPPhW-9E

setfocus com criterio [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
rachelgdias
Colaborador
Colaborador
Mensagens: 43
Registrado em: Sex Jan 31, 2020 9:53 am

setfocus com criterio [RESOLVIDO]

Mensagem por rachelgdias »

Bom dia,

No userform1
tenho uma TEXTBOX1 que recebe a palavra Agendado e Atendido.
tenho tambem dois botoes, GRAVAR e ALTERAR.

bem: qdo a TEXBOX1 receber a palavra AGENDADO, gostaria que o Focu, fosse para o botão GRAVAR
e ado a TEXBOX1 receber a palavra ATENDIDO, gostaria que o Focu fosse para o botão ALTERAR.

Agradeço a vocês pela colaboração sempre......
Editado pela última vez por rachelgdias em Seg Mar 23, 2020 8:35 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: setfocus com criterio

Mensagem por webmaster »

Assim?

Código: Selecionar todos

Private Sub TextBox1_Change()
    If TextBox1.Text = "Agendado" Then CommandButton1.SetFocus
    If TextBox1.Text = "Atendido" Then CommandButton1.SetFocus
End Sub


rachelgdias
Colaborador
Colaborador
Mensagens: 43
Registrado em: Sex Jan 31, 2020 9:53 am

Re: setfocus com criterio

Mensagem por rachelgdias »

webmaster escreveu: Sáb Mar 21, 2020 1:16 pm Assim?

Código: Selecionar todos

Private Sub TextBox1_Change()
    If TextBox1.Text = "Agendado" Then CommandButton1.SetFocus
    If TextBox1.Text = "Atendido" Then CommandButton1.SetFocus
End Sub
Isso mesmo...... Ainda não testei. Mas é isso. Obs: na textbox=atendido será commandButton2

Private Sub TextBox1_Change()
If TextBox1.Text = "Agendado" Then CommandButton1.SetFocus
If TextBox1.Text = "Atendido" Then CommandButton2.SetFocus
End Sub

Vou testar na segunda, obrigada...


rachelgdias
Colaborador
Colaborador
Mensagens: 43
Registrado em: Sex Jan 31, 2020 9:53 am

Re: setfocus com criterio [RESOLVIDO]

Mensagem por rachelgdias »

rachelgdias escreveu: Sáb Mar 21, 2020 1:38 pm
webmaster escreveu: Sáb Mar 21, 2020 1:16 pm Assim?

Código: Selecionar todos

Private Sub TextBox1_Change()
    If TextBox1.Text = "Agendado" Then CommandButton1.SetFocus
    If TextBox1.Text = "Atendido" Then CommandButton1.SetFocus
End Sub
Isso mesmo...... Ainda não testei. Mas é isso. Obs: na textbox=atendido será commandButton2

Private Sub TextBox1_Change()
If TextBox1.Text = "Agendado" Then CommandButton1.SetFocus
If TextBox1.Text = "Atendido" Then CommandButton2.SetFocus
End Sub

Vou testar na segunda, obrigada...
Obrigada, testei e funcionou perfeitamente.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


rachelgdias
Colaborador
Colaborador
Mensagens: 43
Registrado em: Sex Jan 31, 2020 9:53 am

Re: setfocus com criterio [RESOLVIDO]

Mensagem por rachelgdias »

rachelgdias escreveu: Sáb Mar 21, 2020 9:02 am Bom dia,

No userform1
tenho uma TEXTBOX1 que recebe a palavra Agendado e Atendido.
tenho tambem dois botoes, GRAVAR e ALTERAR.

bem: qdo a TEXBOX1 receber a palavra AGENDADO, gostaria que o Focu, fosse para o botão GRAVAR
e ado a TEXBOX1 receber a palavra ATENDIDO, gostaria que o Focu fosse para o botão ALTERAR.

Agradeço a vocês pela colaboração sempre......


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder