Fóruns
Microsoft Excel - 2...
Formulários
Duvida Multipage X ...
 
Notifications
Clear all

Duvida Multipage X Setfocus

 
Formulários
Post Recente por eng_sidnei 13 anos atrás
11 Posts
2 Usuários
0 Reactions
4,741 Visualizações
RSS
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

Estou crinado um formulario em multipaginas. Quando chego na terceira pagina e tentar salvar com algum comando errado, quero voltar a setfocus para a textbox errada. Consigo quando estou com a textbox errada na mesma pagina da multipage. Se a textbox estiver em outra multipage que não seja a que esta selecionado no momento da erro.

Acredito que deve attivar a multipage.page1 antes de mandar o setfocus para a textbox errada. Como faço isso?

Como ativar a multipage.page1, ou multipage.page2, ou multipage.page3 antes de fazer uma verificação?

 
Postado : 19/02/2012 8:09 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

Em quanto os mestres não te responde....poderia postar seu arquivo modelo?

 
Postado : 19/02/2012 8:30 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se os links abaixo ajudam:

Navegar em MultiPages
viewtopic.php?f=23&t=2704&p=12065&hilit=page#p12065

Botão comanda page ativo
viewtopic.php?f=10&t=3207&p=14539&hilit=multipage#p14539

[]s

 
Postado : 19/02/2012 8:47 pm
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

Segue formulario anexo....Obrigado.

 
Postado : 19/02/2012 8:53 pm
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

Deixa as textbox em branco, seleciona a multipage page3 e clica em salvar. Vai ver o problema.

 
Postado : 19/02/2012 9:05 pm
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

Resolvido:

O codigo que estava procurando era esse:

Me.MultiPage1.Value = 0

 
Postado : 19/02/2012 9:09 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sidnei, apesar de ja ter resolvido, se a intensão é voltar para a Page1 e dar o Foco no TextBox_Nome, troque a linha

'DIRECIONO O FOCO PARA A TEXTBOX NOME
' Me.TextBox_Nome.SetFocus
por esta:

    For i = 0 To 1
        MultiPage1.Value = i - 1
    Next i
        Me.TextBox_Nome.SetFocus

[]s

 
Postado : 19/02/2012 9:13 pm
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

Valeu mesmo pela atenção dada. Muito obrigado!!!

...............

Aproveitando o topico.
Existe alguma forma de trocar as paginas da multipage com tab? Tipo o tabindex das textbox. Existe um comando similuar para a multipage?

 
Postado : 19/02/2012 9:23 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Desde que o Foco esteja em uma das Pages, você pode utilizar as teclas de Atalho :
CTRL+TAB, mas se o focu estiver em outro controle, não surtirá o efeito desejado.

O que pode ser feito é adicionar no último controle a instrução para pular para a proxima Guia (Page)

[]s

 
Postado : 19/02/2012 9:49 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Exemplificando o que eu disse acima, supondo que seu último controle na Page1 a ser preenchido é o textbox : "TextBox_InscricaoEstadual", então usariamos a instrução abaixo para pular para a Page2 apos sair do mesmo :

Private Sub TextBox_InscricaoEstadual_AfterUpdate()
  
  MultiPage1.Page2.Enabled = True
  MultiPage1.Value = 1
  
End Sub

[]s

 
Postado : 19/02/2012 9:57 pm
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

Show!!!!

 
Postado : 20/02/2012 9:27 am
Forum Jump:
  Tópico Anterior
Próximo Tópico