Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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: 29
Registrado em: Sex Jan 31, 2020 9:53 am

setfocus com criterio [RESOLVIDO]

Mensagem por rachelgdias » 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......
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: 2780
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: setfocus com criterio

Mensagem por webmaster » 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


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

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

Re: setfocus com criterio

Mensagem por rachelgdias » 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...



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

Re: setfocus com criterio [RESOLVIDO]

Mensagem por rachelgdias » Seg Mar 23, 2020 8:29 am

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: 29
Registrado em: Sex Jan 31, 2020 9:53 am

Re: setfocus com criterio [RESOLVIDO]

Mensagem por rachelgdias » Seg Mar 23, 2020 8:31 am

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