Set focus to field on userform and activate relevant multipage

[sharky12345]

I'm using this to set the focus to a field which is empty;

For Each ctl In Me.Controls
If TypeName(ctl) Like "Text*" Or TypeName(ctl) Like "Combo*" Then
If ctl.Value = "" Then
Call MsgBox("You have fields with mandatory data missing", vbCritical, "Missing data")
ctl.SetFocus
Exit Sub
End If
End If
Next ctl

The issue I have is that all of the fields are on 4 different multipage pages, so I need a way to activate the relevant page once an empty field is found if anyone can help.

 

[dmt32]

Hi,

probably a cleaner way but try

Dim ctrl As Control
    Dim Page As Long
    
    With Me.MultiPage1
        For Page = 0 To .Pages.Count - 1
            For Each ctrl In .Pages(Page).Controls
                If TypeName(ctrl) Like "Text*" Or TypeName(ctrl) Like "Combo*" Then
                    If ctrl.Value = "" Then
                        .Value = Page
                        MsgBox "You have fields with mandatory data missing", vbCritical, "Missing data"
                        ctrl.SetFocus
                        Exit Sub
                    End If
                End If
            Next ctrl
        Next Page
    End With

Dave

 

[sharky12345]

That works just fine Dave - thanks!