Set focus / MultiPa...
 
Notifications
Clear all

Set focus / MultiPage

2 Posts
2 Usuários
0 Reactions
1,858 Visualizações
(@wenceslau)
Posts: 4
New Member
Topic starter
 

Senhores estou fazendo um userform...
estou utilizando este código pra verificar campos sem preenchimento.

Dim objeto As control

For Each objeto In Me.Controls
If TypeName(objeto) = "TextBox" Or TypeName(objeto) = "ComboBox" Then
If objeto.Value = "" Or IsNull(objeto.Value) Then
MsgBox vMensagem, vbInformation, "Atenção!"
objeto.SetFocus
Exit Sub
End If
End If
Next
o problema q estou utilizando Multipages... ai qdo está na page 2 ele não volta pro objeto qdo é dado o SetFocus causando um erro por estar em uma page diferente....
Alguém pode me dar a dica de como resolver?
Antecipo agradecimentos.

 
Postado : 02/12/2020 9:59 am
(@anderson)
Posts: 203
Reputable Member
 

https://youtu.be/e5_J1kaP5lQ

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

 
Postado : 02/12/2020 10:54 am