ActiveControl again

The following code fails at line 2 with Object vaiable not set and I cannot
find the correct syntax.
The proc refers to 2 optionbutton labels in a frame on a multipage hence
needing to use SelectedItem.

If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay" Then
If fraOneDayTwoDay.ActiveControl.TabIndex = 3 Then
lblOneDayBack.Visible = True
Else
lblTwoDayBack.Visible = True
End If
End If

T.I.A.

Geoff

You don't need activecontrol:

If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay" Then
If fraOneDayTwoDay.TabIndex = 3 Then
lblOneDayBack.Visible = True
Else
lblTwoDayBack.Visible = True
End If
End If

--
Regards,
Tom Ogilvy



"Geoff" wrote:

> The following code fails at line 2 with Object vaiable not set and I cannot
> find the correct syntax.
> The proc refers to 2 optionbutton labels in a frame on a multipage hence
> needing to use SelectedItem.
>
> If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay" Then
> If fraOneDayTwoDay.ActiveControl.TabIndex = 3 Then
> lblOneDayBack.Visible = True
> Else
> lblTwoDayBack.Visible = True
> End If
> End If
>
> T.I.A.
>
> Geoff

Thank you.

Geoff

"Tom Ogilvy" wrote:

> You don't need activecontrol:
>
> If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay" Then
> If fraOneDayTwoDay.TabIndex = 3 Then
> lblOneDayBack.Visible = True
> Else
> lblTwoDayBack.Visible = True
> End If
> End If
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "Geoff" wrote:
>
> > The following code fails at line 2 with Object vaiable not set and I cannot
> > find the correct syntax.
> > The proc refers to 2 optionbutton labels in a frame on a multipage hence
> > needing to use SelectedItem.
> >
> > If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay" Then
> > If fraOneDayTwoDay.ActiveControl.TabIndex = 3 Then
> > lblOneDayBack.Visible = True
> > Else
> > lblTwoDayBack.Visible = True
> > End If
> > End If
> >
> > T.I.A.
> >
> > Geoff

Tom
I thought at first that was the solution but by coincidence it was
referencing the same tabindexc of the multipage not the tabindex of the frame
control . So i'm still stuck on this.

Geoff

"Geoff" wrote:

> Thank you.
>
> Geoff
>
> "Tom Ogilvy" wrote:
>
> > You don't need activecontrol:
> >
> > If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay" Then
> > If fraOneDayTwoDay.TabIndex = 3 Then
> > lblOneDayBack.Visible = True
> > Else
> > lblTwoDayBack.Visible = True
> > End If
> > End If
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> >
> > "Geoff" wrote:
> >
> > > The following code fails at line 2 with Object vaiable not set and I cannot
> > > find the correct syntax.
> > > The proc refers to 2 optionbutton labels in a frame on a multipage hence
> > > needing to use SelectedItem.
> > >
> > > If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay" Then
> > > If fraOneDayTwoDay.ActiveControl.TabIndex = 3 Then
> > > lblOneDayBack.Visible = True
> > > Else
> > > lblTwoDayBack.Visible = True
> > > End If
> > > End If
> > >
> > > T.I.A.
> > >
> > > Geoff

What are you actually trying to determine/do?

--
Regards,
Tom Ogilvy

"Geoff" <Geoff@discussions.microsoft.com> wrote in message
news:656AA61D-62DA-430C-A9F4-313840686ADC@microsoft.com...
> Tom
> I thought at first that was the solution but by coincidence it was
> referencing the same tabindexc of the multipage not the tabindex of the
frame
> control . So i'm still stuck on this.
>
> Geoff
>
> "Geoff" wrote:
>
> > Thank you.
> >
> > Geoff
> >
> > "Tom Ogilvy" wrote:
> >
> > > You don't need activecontrol:
> > >
> > > If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay"
Then
> > > If fraOneDayTwoDay.TabIndex = 3 Then
> > > lblOneDayBack.Visible = True
> > > Else
> > > lblTwoDayBack.Visible = True
> > > End If
> > > End If
> > >
> > > --
> > > Regards,
> > > Tom Ogilvy
> > >
> > >
> > >
> > > "Geoff" wrote:
> > >
> > > > The following code fails at line 2 with Object vaiable not set and I
cannot
> > > > find the correct syntax.
> > > > The proc refers to 2 optionbutton labels in a frame on a multipage
hence
> > > > needing to use SelectedItem.
> > > >
> > > > If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay"
Then
> > > > If fraOneDayTwoDay.ActiveControl.TabIndex = 3 Then
> > > > lblOneDayBack.Visible = True
> > > > Else
> > > > lblTwoDayBack.Visible = True
> > > > End If
> > > > End If
> > > >
> > > > T.I.A.
> > > >
> > > > Geoff

To get the control with focus when tabbing through the form. The problem is
how deep to go with activecontrol. The optionbuttons are within a frame on a
multipage.

So far I have:
Me.ActiveControl.Name returns "MultiPage1"
Me.MultiPage1.SelectedItem.Name returns "Page1"
Me.MultiPage1.SelectedItem.ActiveControl.Name returns "fraOneDayTwoDay"

but I cannot get to the controls within the frame fraOneDayTwoDay which are
named as optOneDay and optTwoDay.

Geoff


"Tom Ogilvy" wrote:

> What are you actually trying to determine/do?
>
> --
> Regards,
> Tom Ogilvy
>
> "Geoff" <Geoff@discussions.microsoft.com> wrote in message
> news:656AA61D-62DA-430C-A9F4-313840686ADC@microsoft.com...
> > Tom
> > I thought at first that was the solution but by coincidence it was
> > referencing the same tabindexc of the multipage not the tabindex of the
> frame
> > control . So i'm still stuck on this.
> >
> > Geoff
> >
> > "Geoff" wrote:
> >
> > > Thank you.
> > >
> > > Geoff
> > >
> > > "Tom Ogilvy" wrote:
> > >
> > > > You don't need activecontrol:
> > > >
> > > > If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay"
> Then
> > > > If fraOneDayTwoDay.TabIndex = 3 Then
> > > > lblOneDayBack.Visible = True
> > > > Else
> > > > lblTwoDayBack.Visible = True
> > > > End If
> > > > End If
> > > >
> > > > --
> > > > Regards,
> > > > Tom Ogilvy
> > > >
> > > >
> > > >
> > > > "Geoff" wrote:
> > > >
> > > > > The following code fails at line 2 with Object vaiable not set and I
> cannot
> > > > > find the correct syntax.
> > > > > The proc refers to 2 optionbutton labels in a frame on a multipage
> hence
> > > > > needing to use SelectedItem.
> > > > >
> > > > > If Me.MultiPage1.SelectedItem.ActiveControl.Name = "fraOneDayTwoDay"
> Then
> > > > > If fraOneDayTwoDay.ActiveControl.TabIndex = 3 Then
> > > > > lblOneDayBack.Visible = True
> > > > > Else
> > > > > lblTwoDayBack.Visible = True
> > > > > End If
> > > > > End If
> > > > >
> > > > > T.I.A.
> > > > >
> > > > > Geoff
>
>
>