Set focus / MultiPa...
 
Notifications
Clear all

Set focus / MultiPage


Wenceslau
Posts: 4
Registered
Topic starter
(@wenceslau)
New Member
Entrou: 1 ano atrás

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.

Responder
1 Reply
Anderson
Posts: 188
Registered
(@anderson)
Estimable Member
Entrou: 2 anos atrás

https://youtu.be/e5_J1kaP5lQ

Responder