The attaced code is not able to find the active control.
Q 1: How to find if the subform has the focus or the main form?
Q 2: How to find out what is the name of the active control?
'code in subform
Private Sub Form_Current()
Dim ctl As Control
' Active control could be on the subform or the form
Set ctl = Screen.ActiveControl '<<<<<<<<