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