Navigation Form Tab Subforms

[wes9659]

Hello Everyone I hope everyone is staying warm. Can someone help me again on this brain teaser and I know it is something obvious I am missing. I have created a Horizontal Navigation form. That form is named for the sake of this discussion AjaxCo. I have two sub-forms within this navigation form are (Employees) and other named (Clients).



What I would like to do is as I tab through first tab form (Employees) when I lose focus on field named Spouse. I want to be able to automatically jump to next sub-form within this navigation form which is entitled (Clients) and regain tab focus on first field in (Clients) which is entitled FirstName.

I have placed the following code in First SubForm (Employees) field Spouse lost focus event

Private Sub Spouse_LostFocus()
Me. AjaxCo.SetFocus
Me. AjaxCo!Clients.SetFocus
Me. AjaxCo!Clients.Form! FirstName.SetFocus
End Sub

However, it is not triggering the desired response and getting errors. Does anyone have any ideas? I hope I explained it well. Once again like always Thanks everyone for their help and expertise I really appreciate it.

[Bob Fitz]

I think you may need to use Parent instead of Me

[amrut]

I have two sub-forms within this navigation form are (Employees) and other named (Clients)

I think you have one subform control and as you click on the tab you navigate to the selected form as is common with navigation form. Follow the code below -
navigationform is main form,NavigationSubform is subform control on it. Form3 is one of the forms on main form having field to which you wish to set focus

Private Sub Text4_LostFocus()
Forms!navigationform!NavigationSubform.SourceObject = "Form3"
Forms!navigationform!NavigationSubform.SetFocus
Forms!navigationform!NavigationSubform!Text0.SetFocus
End Sub

[wes9659]

Thanks everyone for the help, however, I must be doing something wrong. It throws errors. Using the example scenario provided above I entered it into code that amrut provided. Should the VBA code I use read as follows? If not please show what I am doing wrong if possible. Once again many thanks to everyone.


Private Sub Spouse_LostFocus()
Forms!AjaxCo!Employees.SourceObject = "Spouse"
Forms!AjaxCo!Clients.SetFocus
Forms!AjaxCo!Clients!FirstName.SetFocus
End Sub

[amrut]

Look for the subform control name on your main form and replace the Employees /Clients with it. Is "Spouse" name of a form in your project ? Navigation form is similar to subform. A single subform changes its source object when you click on the respective navigation buttons.

[wes9659]

Thank You Very much Amrut the attached file you did was the perfect explanation. Thank you so much