Setfocus on Nested Multipage(s)

[kestrel1306]

Hi guys,

Due to poor performance graphics at work I have had to change from a continous userform to multipages with some nested multipages.

For data validation I need to check if certain items have been checked or not, and if not then send the user back to them for further attention.

If the item is just on a multipage, then it's simple to do using

UserForm8.multipage1.Value = 4
UserForm8.control1.SetFocus

The problem arises where I need to go a control on a multipage that's on a multipage.

I would have hoped that the following would have worked, but alas no...

UserForm8.multipage1.Value = 4 'upper page - 5th tab
UserForm8.multipage2.Value = 0 'lower page - 1st tab
UserForm8.control1.SetFocus

Any help would be greatly appreciated thanks.


Regards
Kes

[gmayor]

Without the userform to check it is difficult to be sure, but where TextBox1 is the first control on the first tab of MultiPage2 (which is a multipage form on the fifth tab of MultiPage1) the following certainly works for me.

MultiPage1.Value = 4
    MultiPage2.Value = 0
    TextBox1.SetFocus

[kestrel1306]

Hi gmayor,

Gosh what an idiot I am.

I was ultimately referencing a radio button inside a frame, which was causing the fault.

After you said it worked I played with it and got it work by referring to the frame.

Thanks very much for the quick reply and guidance.


Regards
Kes

[gmaxey]

You can also do this dynamically:

Private Sub UserForm_Initialize()
  'The textbox of interest located on Page 0 of Multipage2 nexted on Page 0 of Multipage1.
  'Hide it
  MultiPage1.Value = 1
  MultiPage2.Value = 1
  DynamicSetFocus TextBox3
lbl_Exit:
  Exit Sub
End Sub
Sub DynamicSetFocus(oCtrl As Control)
Dim oParentCtrl As Object
Dim arrCtrl()
Dim lngParent As Long, lngIndex As Long
  Set oParentCtrl = oCtrl.Parent
  If oParentCtrl.Name = Name Then
    oCtrl.SetFocus
  Else
    Do Until oParentCtrl.Name = Name
      ReDim Preserve arrCtrl(1, lngParent)
      arrCtrl(0, lngParent) = TypeName(oParentCtrl)
      arrCtrl(1, lngParent) = oParentCtrl.Name
      Set oParentCtrl = oParentCtrl.Parent
      lngParent = lngParent + 1
    Loop
  End If
  For lngIndex = UBound(arrCtrl, 2) To 1 Step -1
    Select Case arrCtrl(0, lngIndex)
      Case "MultiPage"
        Controls(arrCtrl(1, lngIndex)).Value = Controls(arrCtrl(1, lngIndex)).Pages(CStr(arrCtrl(1, lngIndex - 1))).Index
        lngIndex = lngIndex - 1
      Case "Frame"
        Controls(arrCtrl(1, lngIndex)).SetFocus
    End Select
  Next
  'The control's parent is now visible so set focus.
  oCtrl.SetFocus
lbl_Exit:
  Exit Sub
End Sub