Tabbing Subforms

[Ian Mac]

All,

Can anyone point me in the direction of how to Tab between subforms in the normal fashion, inc, Shift+Tab.....

I have 13 Subforms on my Main form,
The problem is that each one is set to Cycle Current Record so I as soon as I tab into the Subform it tabs round and round.

I have tried using OnExit on the last control in each form:

e.g.

[Forms]![Subform2].Setfocus

But this doesn't really tackle the problem.

Would really like this to be sorted as it's a big part of the user interface.

Cheers.

 

[Stubby Holder]

Hi,

isn't it ctl + tab ?

Or,you could create your own method if you think that your interface would benefit. Using the Form KeyDown event, you could trap pgUp & pgDn (or what ever keys you think best) and move between the subforms...

Merry Xmas!

stubby

 

[Ian Mac]

Cheers Stubby but the interface would definately benefit.

Anyways I've solved the issue very neatly, and if anyones interested:

I created a tiny tranparent button on each of the subforms with it set as the last Tab Stop.

Then I've used the on Enter event:

Private Sub Cb_Enter()

If Screen.PreviousControl.Name = "Date" Then
On Error Resume Next
Me.Parent.cmbBack.SetFocus
Else
On Error Resume Next
Me.Parent.cmbForward.SetFocus
End If

End Sub

Then on the main Form I have 2 more transparent buttons, these don't need Tab Stops

cmbBack and cmbForward

The code on these 2 is similar to:

Private Sub cmbForward_Enter()

Dim forward As String

If IsNull(Screen.PreviousControl.Name) Then
Else
forward = Screen.PreviousControl.Name

Select Case forward

Case "frm_1_Subform"

Me!frm_2_Subform.SetFocus
Me!frm_2_Subform.Form!Date.SetFocus

Case "frm_2_Subform"

Me!frm_3_Subform.SetFocus
Me!frm_3_Subform.Form!Date.SetFocus

Case "frm_3_Subform"

Me!frm_4_Subform.SetFocus
Me!frm_4_Subform.Form!Date.SetFocus

Case Else

End Select

End If
End Sub

And the reverse for the other one.

Works like a charm, and makes my smile

Happy Christmas

Cheers,