creating string reference to control

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Basil - 31 May 2007 10:34 GMT

Hiya,

I have a load of tabs page1, page2, page3, etc

I have an option group above. When the user clicks the option, it will
return a value (1,2,3,4,...). I want it to set focus to the corresponding
page but am having trouble making a dynamic reference to the page control.
Can you help please?

This is my code that is failing:

Private Sub frameUpdate_Click()

Dim pg As String 'also doesn't work when set to be a Control

pg = "Page" & frameUpdate.Value
Me.[pg].SetFocus

End Sub

Thanks loads,

Basil

Reply to this Message

RoyVidar - 31 May 2007 10:50 GMT

"Basil" <Basil@discussions.microsoft.com> wrote in message
<F269FB10-412F-45C4-923C-E397675E0CDB@microsoft.com>:

> Hiya,
>
[quoted text clipped - 19 lines]
>
> Basil

I think you would need to refer through the tab

pg = "Page" & frameUpdate.Value
Me!MyTab.Pages(pg).SetFocus

Signature

Roy-Vidar

Reply to this Message

Basil - 31 May 2007 11:16 GMT

Thanks Roy.

I'm pretty sure there's another way though that is more simple and widely
useable. I asked the question before but MSDN removed it. (the work is at a
previous company so can't reference).

Thanks though, I'll use this in the meantime.

B

> "Basil" <Basil@discussions.microsoft.com> wrote in message
> <F269FB10-412F-45C4-923C-E397675E0CDB@microsoft.com>:
[quoted text clipped - 26 lines]
> pg = "Page" & frameUpdate.Value
> Me!MyTab.Pages(pg).SetFocus

Reply to this Message

Baz - 31 May 2007 11:31 GMT

The value of a tab control is the ordinal position of the current page, so
this will display the page corresponding to your option buttons:

tabOfMine.Value = frameUpdate.Value

> Thanks Roy.
>
[quoted text clipped - 36 lines]
> > pg = "Page" & frameUpdate.Value
> > Me!MyTab.Pages(pg).SetFocus

Reply to this Message

RoyVidar - 31 May 2007 11:52 GMT

"Baz" <bazz@REMOVEbcap.THEeuro1net.CAPScom> wrote in message
<465ea351$0$19255$da0feed9@news.zen.co.uk>:

> The value of a tab control is the ordinal position of the current
> page, so this will display the page corresponding to your option
[quoted text clipped - 42 lines]
>>> pg = "Page" & frameUpdate.Value
>>> Me!MyTab.Pages(pg).SetFocus

Isn't it zero based?

Me!MyTab.Value = frameUpdate.Value - 1

(or renumber the options starting with 0?)

Signature

Roy-Vidar

Reply to this Message

Baz - 31 May 2007 12:40 GMT

Might be, can't remember. Anyway, you've got the general idea.

> Isn't it zero based?
>
> Me!MyTab.Value = frameUpdate.Value - 1
>
> (or renumber the options starting with 0?)

Reply to this Message

Scott McDaniel - 31 May 2007 11:27 GMT

>"Basil" <Basil@discussions.microsoft.com> wrote in message
><F269FB10-412F-45C4-923C-E397675E0CDB@microsoft.com>:
[quoted text clipped - 26 lines]
> pg = "Page" & frameUpdate.Value
> Me!MyTab.Pages(pg).SetFocus

I've had some odd instances where the above didn't work correctly (for the most part, it works perfectly fine), however
I've always used the Cstr function to make sure:

pg = "Page" & Cstr(frameUpdate.Value)

Scott McDaniel
scott@takemeout_infotrakker.com
www.infotrakker.com

Reply to this Message