Go to tab (page) help

[Bob Waggoner]

I have a form with tabs that have names instead of numbers. Concerns; Enter
Complaint, etc. I want my code to open to the correct tab. How do I write
code that says, Open the complaints form and go to tab b? Everything I try
gives me an error.
The docmd.gotopage , 2 doesn't work because it says it cannot find page 2.
(My properties box shows tab1 name.... concerns; index 0. The second tab, the
one I'm trying to point to, is Name... Enter Complaints; index 1. None of the
tabs have a caption. I'm working in Access 2003 (converted from 97). Any help
would be appreciated.
Bob

 

[June7 via AccessMonster.com]

I have code that controls which tabs are enabled depending on certain
conditions and then uses SetFocus method to make the tab active. Ex:

Private Sub Form_Open(Cancel As Integer)
ShowTabs
If Me.OpenArgs = "ViewData" Then
Me.btnFinish.Caption = "&Close"
End If
End Sub

Private Sub ShowTabs()

With Me

..tbxSet = TestSet(.tbxLABNUM, "Soils & Aggregate")

..tab1.Visible = True
..tab2.Visible = True
..tab3.Visible = True
..tab4.Visible = True
..tab5.Visible = True
..tab6.Visible = True
..tbxLABNUM.SetFocus

If Not .tbxSet Like "*1*" Then
.tab1.Visible = False
.ctr1.SourceObject = ""
End If
'... five more If Then structures
If .tab1.Visible = True Then
.tab1.SetFocus
ElseIf ...
Endif
End With
End Sub

 

[June7 via AccessMonster.com]

You are designing for other users and don't want to rely on menu/right click
data sorting and filtering but instead create controls? Use a subform or if
in Access2007 check out the new Split Form object. Have unbound controls on
main form where users enter or select from list info to base search on. Then
in Click event of button have code that changes the RecordSource or Filter
property of the subform and Requeries the RecordSource or sets Filter.

Ex of subform recordset requery, note the reference to the subform container
name:
Me.ctrSampleList.Form.RecordSource = "SELECT Submit.* " & _
"FROM Submit WHERE LabNum = '" & Me.tbxLabNum & "' ORDER BY Submit.LabNum
DESC"
Me.ctrSampleList.Form.Requery

Ex of changing form filter:
rm.RequeryMe.FilterOn = False
Me.Filter = "LabNum='" & Me.cbxLabNum & "'"
Me.FilterOn = True

 

[June7 via AccessMonster.com]

Sorry, previous post went to wrong thread (mousing clicking bungle.)

You are designing for other users and don't want to rely on menu/right click
data sorting and filtering but instead create controls? Use a subform or if
in Access2007 check out the new Split Form object. Have unbound controls on
main form where users enter or select from list info to base search on. Then
in Click event of button have code that changes the RecordSource or Filter
property of the subform and Requeries the RecordSource or sets Filter.

Ex of subform recordset requery, note the reference to the subform container
name:
Me.ctrSampleList.Form.RecordSource = "SELECT Submit.* " & _
"FROM Submit WHERE LabNum = '" & Me.tbxLabNum & "' ORDER BY Submit.LabNum
DESC"
Me.ctrSampleList.Form.Requery

Ex of changing form filter:
rm.RequeryMe.FilterOn = False
Me.Filter = "LabNum='" & Me.cbxLabNum & "'"
Me.FilterOn = True

I have a form with tabs that have names instead of numbers. Concerns; Enter
Complaint, etc. I want my code to open to the correct tab. How do I write

[quoted text clipped - 6 lines]

would be appreciated.
Bob

 

[Bob Waggoner]

Thanks for your help. I stumbled onto the answer based on trying to do what
you suggested. The solution turned out to be simple:

Docmd.openform "FormName",,"",""
Docmd.gotocontrol "Tab name"

Thanks again.
Bob

Sorry, previous post went to wrong thread (mousing clicking bungle.)

You are designing for other users and don't want to rely on menu/right click
data sorting and filtering but instead create controls? Use a subform or if
in Access2007 check out the new Split Form object. Have unbound controls on
main form where users enter or select from list info to base search on. Then
in Click event of button have code that changes the RecordSource or Filter
property of the subform and Requeries the RecordSource or sets Filter.

Ex of subform recordset requery, note the reference to the subform container
name:
Me.ctrSampleList.Form.RecordSource = "SELECT Submit.* " & _
"FROM Submit WHERE LabNum = '" & Me.tbxLabNum & "' ORDER BY Submit.LabNum
DESC"
Me.ctrSampleList.Form.Requery

Ex of changing form filter:
rm.RequeryMe.FilterOn = False
Me.Filter = "LabNum='" & Me.cbxLabNum & "'"
Me.FilterOn = True

I have a form with tabs that have names instead of numbers. Concerns; Enter
Complaint, etc. I want my code to open to the correct tab. How do I write

[quoted text clipped - 6 lines]

would be appreciated.
Bob