I have a userform that contains a multipage control. Each of the pages of
this control has several other controls on it. I'm adding a help key
functionality to my form that pops up a help message whenever the user hits
the F1 key while a control has the focus. The code I was implementing to do
this is:

Call HelpMsg(Me.ActiveControl.Name)

Unfortunately, if the control with the focus is on one of these multipage
controls, Me.ActiveControl.Name returns then name of the multi-page control,
not the text, list, or combo that is on that control. I can obviously hard
code the name of the control as the parameter, but it is easier to copy and
paste the same code over and over again. Is there another techique that will
provide the name of the control that actually has the focus?

Dale
--
Email address is not valid.
Please reply to newsgroup only.

Dale,
You need the active control on the active page...
Me.MultiPage1.SelectedItem.ActiveControl
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


"Dale Fye"
wrote in message I have a userform that contains a multipage control. Each of the pages of
this control has several other controls on it. I'm adding a help key
functionality to my form that pops up a help message whenever the user hits
the F1 key while a control has the focus. The code I was implementing to do
this is:
Call HelpMsg(Me.ActiveControl.Name)
Unfortunately, if the control with the focus is on one of these multipage
controls, Me.ActiveControl.Name returns then name of the multi-page control,
not the text, list, or combo that is on that control. I can obviously hard
code the name of the control as the parameter, but it is easier to copy and
paste the same code over and over again. Is there another techique that will
provide the name of the control that actually has the focus?
Dale
--
Email address is not valid.
Please reply to newsgroup only.

Hi,

Modify your routine to accept an object rather than text and then test that
object for type.
If it's one of the container types re call the routine with the
activecontrol of the container.

Sub HelpMsg(Ctl As Object)
If TypeOf Ctl Is MultiPage Then
HelpMsg Ctl.Pages(Ctl.Value).ActiveControl
ElseIf TypeOf Ctl Is Frame Then
HelpMsg Ctl.ActiveControl
Else
MsgBox Ctl.Name
End If
End Sub

The actual call to the routine will also require changing.

Call HelpMsg(ActiveControl)

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Dale Fye" <(E-Mail Removed)> wrote in message
news:F7967C41-DB9B-4479-9F13-(E-Mail Removed)...
>
> I have a userform that contains a multipage control. Each of the pages of
> this control has several other controls on it. I'm adding a help key
> functionality to my form that pops up a help message whenever the user
> hits
> the F1 key while a control has the focus. The code I was implementing to
> do
> this is:
>
> Call HelpMsg(Me.ActiveControl.Name)
>
> Unfortunately, if the control with the focus is on one of these multipage
> controls, Me.ActiveControl.Name returns then name of the multi-page
> control,
> not the text, list, or combo that is on that control. I can obviously
> hard
> code the name of the control as the parameter, but it is easier to copy
> and
> paste the same code over and over again. Is there another techique that
> will
> provide the name of the control that actually has the focus?
>
> Dale
> --
> Email address is not valid.
> Please reply to newsgroup only.

Andy,

Very elegant. Thanks.

--
Email address is not valid.
Please reply to newsgroup only.


"Andy Pope" wrote:

> Hi,
>
> Modify your routine to accept an object rather than text and then test that
> object for type.
> If it's one of the container types re call the routine with the
> activecontrol of the container.
>
> Sub HelpMsg(Ctl As Object)
> If TypeOf Ctl Is MultiPage Then
> HelpMsg Ctl.Pages(Ctl.Value).ActiveControl
> ElseIf TypeOf Ctl Is Frame Then
> HelpMsg Ctl.ActiveControl
> Else
> MsgBox Ctl.Name
> End If
> End Sub
>
> The actual call to the routine will also require changing.
>
> Call HelpMsg(ActiveControl)
>
> Cheers
> Andy
>
> --
>
> Andy Pope, Microsoft MVP - Excel
> http://www.andypope.info
> "Dale Fye" <(E-Mail Removed)> wrote in message
> news:F7967C41-DB9B-4479-9F13-(E-Mail Removed)...
> >
> > I have a userform that contains a multipage control. Each of the pages of
> > this control has several other controls on it. I'm adding a help key
> > functionality to my form that pops up a help message whenever the user
> > hits
> > the F1 key while a control has the focus. The code I was implementing to
> > do
> > this is:
> >
> > Call HelpMsg(Me.ActiveControl.Name)
> >
> > Unfortunately, if the control with the focus is on one of these multipage
> > controls, Me.ActiveControl.Name returns then name of the multi-page
> > control,
> > not the text, list, or combo that is on that control. I can obviously
> > hard
> > code the name of the control as the parameter, but it is easier to copy
> > and
> > paste the same code over and over again. Is there another techique that
> > will
> > provide the name of the control that actually has the focus?
> >
> > Dale
> > --
> > Email address is not valid.
> > Please reply to newsgroup only.
>