User Form Control Exit with Frames

I would like to share what I have learned and perhaps get a tip on best practice.

I have a User Form with a two Frames (fr) that each contain several Text Boxes (tb).

The _Enter code works exactly as expected. I wasted a lot of time trying to figure out why the (tb)_Exit code didn't consistently run.

What I figured out is the (fr)_Exit code supersedes the (tb)_Exit when you click out of the frame. Clicking from (tb) to (tb) within a frame allows the "local" (tb)_Exit to work as expected.

My workaround is to have the (fr)_Exit code call each (tb)_Exit for the (fr) members.

I realise this may cause unwanted behavior in some cases, when a particular (tb)_Exit may only need to be trigged when actually exiting that control. My workaround for that is to have a module-level boolean variable that is set True by the (tb)_Enter code. Then my (fr)_Exit will only call a particulr (tb)_Exit if its set flag is true. The (tb)_Exit code will always clear its flag.

Any ideas?

I admit having the same frustrations with the Frame control.

My workaround is to not use the Frame at all. I resort to placing straight lines around the other controls or using command buttons that are reduced to thin lines
and changed to DISABLED.

I'll continue to watch your thread to see what others have come up with.

Cheers.

There is a certain visual appeal for the OCD in using frames. :P

What I'm stuck in now is determining where focus lies.

I have a subroutine in my form that does this:

Private Sub LocalLookUp(strDataCell$)
Dim strCellData$, frmActive$
    frmActive = F01_InputForm.ActiveControl.Name
    strCellData = Sheets(1).Range(strDataCell)
    Select Case strCellData
        Case vbNullString
            ' NOOP
        Case Else
            Select Case F01_InputForm.ActiveControl.Name
                Case "frSRC"
                    With frSRC
                        frmActive = frSRC.ActiveControl.Name & "IP"
                        frSRC(frmActive).SetFocus
                        .ActiveControl = NSLookupLoop(strCellData)
                    End With
                Case "frDST"
                    With frDST
                        frmActive = frDST.ActiveControl.Name & "IP"
                        frDST(frmActive).SetFocus
                        .ActiveControl = NSLookupLoop(strCellData)
                    End With
            End Select
    End Select
End Sub

What I do not like is the way I had to determine which frame I'm in to then deal with the correct 'Focus' item.

There has got to be a better wat to determine both the frame and the active control in one step.