Which the control of the page in Form?

[Guest]

Hi!

I have a F_MainForm with pages, with one subform for page: SubF_A.Name,
SubF_B.Name, ...
I would like to show in textbox, in F_MainForm, the clicked subform page name.
Is it possible in Access2k, please.
Thanks in advance.
an

 

[Allen Browne]

Use the Change event of the tab control to compare its Value to the
PageIndex of the various pages, in a Select Case, and assign the name to the
unbound text box.

 

[Guest]

Thank you for the reply.
Excuse my ignorance, but as I make this, please.
an

 

[Guest]

Sorry.
I writed:

Private Sub TabCtl17_Change()

Select Case txtTextBoxName

PageIndex0 = "Page1"
PageIndex1 = "Page2"
PageIndex2 = "Page3"
...
End Select
End Sub

(Return compile error: Statments and labels invalid between Select Case and
first Case)

Thanks more one time.
an

 

[Douglas J. Steele]

The syntax for Select Case is:

Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select

For example:

Select Case performance
Case 1
Bonus = salary * 0.1
Case 2, 3
Bonus = salary * 0.09
Case 4 To 6
Bonus = salary * 0.07
Case Is > 8
Bonus = 100
Case Else
Bonus = 0
End Select

 

[Guest]

Thanks for your reply.

Sorry but... I continue don't to apply to my situation (?)
an

The syntax for Select Case is:

Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select

For example:

Select Case performance
Case 1
Bonus = salary * 0.1
Case 2, 3
Bonus = salary * 0.09
Case 4 To 6
Bonus = salary * 0.07
Case Is > 8
Bonus = 100
Case Else
Bonus = 0
End Select


--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)

Sorry.
I writed:

Private Sub TabCtl17_Change()

Select Case txtTextBoxName

PageIndex0 = "Page1"
PageIndex1 = "Page2"
PageIndex2 = "Page3"
...
End Select
End Sub

(Return compile error: Statments and labels invalid between Select Case
and
first Case)

Thanks more one time.
an

 

[Allen Browne]

The code will look something like this example, where:
- tabMain is the name of the tab control;
- text1 is the name of the unbound text box to show the result;
- the first page is named pgeBio, and the 2nd is pgeAddress.

Private Sub tabMain_Change()
Select Case Me.tabMain.Value
Case Me.pgeBio.PageIndex
Me.text1 = "Biographical page"
Case Me.pgeAddress.PageIndex
Me.text1 = "Addresses page"
Case Else
Me.text1 = "Huh?"
End Select
End Sub

You will need some experience with VBA code to apply this to your situation.

 

[Guest]

Exactly, AB.

Work fine.
Many, many thanks for your help!

an