It is an honor to be featured in Gartner 2019 Magic Quadrant for Datacenter Backup and Recovery Solutions. Gartner’s MQ sets a high standard and earning a place on their grid is a great affirmation that Acronis is delivering on our mission to protect all data, apps, and systems.
Access - Tab Form - Trap Form Tab "Name" in a Textbox
Is there a way through VB code to trap a Form's Tab Page Name in a textbox?
If I have a subform on that tab, I am successful in trapping that Subform's Name, but Can I trap the Name of the Tab Page itself?
The following code traps the name of my Tab's Subform. However in this case this form is on the Tab Control Page3
Forms![frm_Inv]![frm_MiscI
If I have a subform on that tab, I am successful in trapping that Subform's Name, but Can I trap the Name of the Tab Page itself?
The following code traps the name of my Tab's Subform. However in this case this form is on the Tab Control Page3
Forms![frm_Inv]
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
If you are talking about the caption that appears in the Tab, you would use a syntax similar to:
Me.tabControlName.Pages(Me
If you have not assigned the tab a caption, then the "Name" property would be:
Me.tabControlName.Pages(Me
In case you don't know, you might try:
NZ(Me.tabControlName.Pages
This later method would return the caption (if it exists) or the name of the currently selected tab in your tab control. Make sure to replace "tabControlName" with the actual name of the tab control (not the individual pages).
Me.tabControlName.Pages(Me
If you have not assigned the tab a caption, then the "Name" property would be:
Me.tabControlName.Pages(Me
In case you don't know, you might try:
NZ(Me.tabControlName.Pages
This later method would return the caption (if it exists) or the name of the currently selected tab in your tab control. Make sure to replace "tabControlName" with the actual name of the tab control (not the individual pages).
The one I am "attempting" is
Me.tabControlName.Pages(Me
I have named the TabControl itself "TabCtl_InvParts"
The "Name" on the Property Sheet is Page2 which is Page Index 2 with a Blank Caption(not interested in trapping the Caption"
So I attempted
Me.TabCtl_InvParts.Pages(M
It doesn't like that..........
Me.tabControlName.Pages(Me
I have named the TabControl itself "TabCtl_InvParts"
The "Name" on the Property Sheet is Page2 which is Page Index 2 with a Blank Caption(not interested in trapping the Caption"
So I attempted
Me.TabCtl_InvParts.Pages(M
It doesn't like that..........
what are you doing with that value? and where is that coming from?
You may have to use:
Forms![frm_Inv]!TabCtl_Inv
You may have to use:
Forms![frm_Inv]!TabCtl_Inv
Try this syntax:
Me.TabControlName.Pages(Me
This will give you the current PageIndex ... 0,1,2 ect
Me.TabControlName.Pages(Me
This will give you the current PageIndex ... 0,1,2 ect
Creating a generic code that will make Visible = False a whole slew of Tabs after the subform on each tab is completed. So that I don't have to code each tab number within a process then I was going to do something like:
Dim lngPageNbr as Long, i as integer
i=1
For i = i to GetAllEstimFormCount()
Parent("Page" & i).Visible=False
Next
Dim lngPageNbr as Long, i as integer
i=1
For i = i to GetAllEstimFormCount()
Parent("Page" & i).Visible=False
Next
DataMx,
Thank you. Tried that and it always bombs on the TabControlName at the very end of the code...
Pages(Me.TabControlName).N
I Changed it to the "Name" of my Tab_Ctl_Inv and it still bombs.
Thank you. Tried that and it always bombs on the TabControlName at the very end of the code...
Pages(Me.TabControlName).N
I Changed it to the "Name" of my Tab_Ctl_Inv and it still bombs.
Forms![frm_Inv]![frm_MiscI
When I do the above, my text box gets the info "TabCtl_Inv" Which is the TabControl's Name.... Now I need it to go the next step and get the ActiveControl's Page Name.
Maybe there simply isn't a way to get it without hard coding each and every Page Name in my overall code.
When I do the above, my text box gets the info "TabCtl_Inv" Which is the TabControl's Name.... Now I need it to go the next step and get the ActiveControl's Page Name.
Maybe there simply isn't a way to get it without hard coding each and every Page Name in my overall code.
So, you are trying to fill the txtTest field, on the subform with the name of the tab that the control is on. Is that correct?
Forms![frm_Inv]![frm_MiscI
Forms![frm_Inv]![frm_MiscI
Yes,,, that is what I am attempting....
That code was awfully close.... But it is giving me the result of the Page Name of the Tab I am coming from, not the one Loading....
I was putting that in the On_Load event of the Form. If I move it somewhere that executes after the form is loaded I guess that will in fact work Tried it by putting a command button on the form once it is open and it does work.
So, Is there a way to leave it in the On_Load event????????
That code was awfully close.... But it is giving me the result of the Page Name of the Tab I am coming from, not the one Loading....
I was putting that in the On_Load event of the Form. If I move it somewhere that executes after the form is loaded I guess that will in fact work Tried it by putting a command button on the form once it is open and it does work.
So, Is there a way to leave it in the On_Load event????????
Try putting it in the Change event of the tab control (not the page) of the main form.
I usually don't even load subforms until the tab they are on gets the focus. The code I use for working with tabs looks something like:
I usually don't even load subforms until the tab they are on gets the focus. The code I use for working with tabs looks something like:
Private Sub TabCtl_Inv_Change
'I use the caption property because I can see what is on the captions
Select Case me.tabCtl_Inv.pages(me.TabCtl_Inv).Caption
Case "Tab 1 Caption"
Case "Tab 2 Caption"
'if the subform is not loaded, load it
if me.subTab2Subform.SourceObject = "" Then
me.subTab2Subform.SourceObject = "frm_MiscInvSub02"
endif
'assign the Name of the tab to txtTest if it is a new record
If me.frm_MiscInvSub02.form.NewRecord then
me.frm_MiscInvSub02.form.txtTest = me.[TabCtl_Inv].pages(me.[TabCtl_Inv]).Name
'but in reality, with this method, since you already know the tab that has the focus,
'you could use
me.frm_MiscInvSub02.form.txtTest = "Tab 2 Name"
End If
Case "Tab 3 Caption"
Case Else
msgbox "Invalid tab"
End Select
End Sub
Premium Content
You need an Expert Office subscription to comment.Start Free Trial