Set Focus Multiple Sub Forms

**Derrick T. Davidson** · 01-20-2016, 03:01 AM

I have a form [frmTransactions] containing eight sub forms, the sub forms are either hidden or visible when combo [Categories] is completed, I want to set the focus on a Text Box within the sub forms i.e.

Category = "Transport" subForm = [frmBreakdownTransport] Text Box = [trbRate]

I tried the following code:

Code:

If Me!TranCat = "Transport" Then
    Forms![frmTransactions]![frmBreakdownTransport]![trbRate].SetFocus 
End If

and repeated with seven ElseIf's

But the error message " cant find frmBreakdownTransport" displays ???

Can anyone tell me what I am doing wrong?

**cyanidem** · 01-20-2016, 03:08 AM

Try:

Code:

Me![frmBreakdownTransport].Form![trbRate].SetFocus

Edit: Here's good summary on how to refer to forms and subforms controls and objects.

**Derrick T. Davidson** · 01-20-2016, 03:34 AM

I get the same error message
"cant find the field frmTransport referred to in your expression????

**Derrick T. Davidson** · 01-20-2016, 03:40 AM

Same error message??

**cyanidem** · 01-20-2016, 03:48 AM

Can you paste code on which it breaks?

**Derrick T. Davidson** · 01-20-2016, 03:53 AM

Code:

Private Sub Text194_Enter()
If Me!TranCat = "Misc" Then
    Forms![frmTransactions]![frmBreakdownMisc]![trbRate].SetFocus
ElseIf Me!TranCat = "Finance" Then
    Forms![frmTransactions]![frmBreakdownFinance]![trbRate].SetFocus
ElseIf Me!TranCat = "Transport" Then
    Forms![frmTransactions]![frmBreakdownTransport]![trbRate].SetFocus
ElseIf Me!TranCat = "Home" Then
    Forms![frmTransactions]![frmBreakdownHome]![trbRate].SetFocus
ElseIf Me!TranCat = "Goverment" Then
    Forms![frmTransactions]![frmBreakdownGovernment]![trbRate].SetFocus
ElseIf Me!TranCat = "Grocery" Then
    Forms![frmTransactions]![frmBreakdownGrocery]![trbRate].SetFocus
ElseIf Me!TranCat = "Utilities" Then
    Forms![frmTransactions]![frmBreakdownUtilities]![trbRate].SetFocus
ElseIf Me!TranCat = "Dining" Then
    Forms![frmTransactions]![frmBreakdownDining]![trbRate].SetFocus
End If
'Me![frmBreakdownTransport].Form![trbRate].SetFocus
End Sub[

**cyanidem** · 01-20-2016, 04:07 AM

Ok.
First, you didn't apply what I told you to your code, only to that one line with [frmBreakdownTransport] and it's commented anyway so either you don't want help with that or I don't know what else.
Second, there's nothing about frmTransport in this part of code so it probably breaks somewhere else and that "somewhere else" is the part I'd like you to paste.

**Derrick T. Davidson** · 01-20-2016, 04:24 AM

I am sorry for misunderstanding I commented my code and pasted your code but I received the same error message so I changed it back and commented your code for future reference.
The Transport ref is the 6th line of code [frmBreakdownTransport] but it never gets past the first line of code [frmBreakdownMisc]?

**Derrick T. Davidson** · 01-20-2016, 04:29 AM

This is what I tried:

Code:

Private Sub Text194_Enter()
If Me!TranCat = "Misc" Then
    Me![frmBreakdownMisc].Form![trbRate].SetFocus
'ElseIf Me!TranCat = "Finance" Then
    'Forms![frmTransactions]![frmBreakdownFinance]![trbRate].SetFocus
'ElseIf Me!TranCat = "Transport" Then
 '   Forms![frmTransactions]![frmBreakdownTransport]![trbRate].SetFocus
'ElseIf Me!TranCat = "Home" Then
'    Forms![frmTransactions]![frmBreakdownHome]![trbRate].SetFocus
'ElseIf Me!TranCat = "Goverment" Then
'    Forms![frmTransactions]![frmBreakdownGovernment]![trbRate].SetFocus
'ElseIf Me!TranCat = "Grocery" Then
'    Forms![frmTransactions]![frmBreakdownGrocery]![trbRate].SetFocus
'ElseIf Me!TranCat = "Utilities" Then
'    Forms![frmTransactions]![frmBreakdownUtilities]![trbRate].SetFocus
'ElseIf Me!TranCat = "Dining" Then
'    Forms![frmTransactions]![frmBreakdownDining]![trbRate].SetFocus
End If
'Me![frmBreakdownTransport].Form![trbRate].SetFocus
End Sub

**Derrick T. Davidson** · 01-20-2016, 04:30 AM

I tried this when [frmBreakdownMisc] was visible

**cyanidem** · 01-20-2016, 04:31 AM

Again, you need to change ALL your references to subforms and it's to controls to proper syntax (as in post #2). And no, frmBreakdownTransport is not the same as frmTransport that you receive error message about (and that says FIELD which clearly indicates issues with syntax).
So please, fix your references and try again.

**Derrick T. Davidson** · 01-20-2016, 05:06 AM

Ok sorry to bother you

**Derrick T. Davidson** · 01-20-2016, 05:55 AM

I changed the names, etc, and tried this code

Code:

Private Sub Text194_Enter()
If Me!TranCat = "Finance" Then
    Forms![frmTransactions]![frmSubBreakdownFinance].SetFocus
    Forms![frmSubBreakdownFinance]![trbRate].SetFocus
End If
End Sub

and this code (your earlier suggestion)

Code:

Private Sub Text194_Enter()
If Me!TranCat = "Finance" Then
    Me![frmSubBreakdownFinance].Form![trbRate].SetFocus
End If
End Sub

I no longer get an error message, however in both cases instead of tabbing to the sub form it goes to the next record and sets the focus in [trbRate] on the next record.
Hope you can bear with my ignorance?

**cyanidem** · 01-20-2016, 06:12 AM

I'm not sure what you want to achieve anymore. Isn't that what you wanted? To set focus on trbRate textbox?
Maybe you could upload your database and try to explain once again what is it you want to achieve exactly?

**Derrick T. Davidson** · 01-20-2016, 06:31 AM

Yes I wanted to do that (set focus on trbRate textbox) but on the same transaction form, not to move to the next transaction record.

Set Focus Multiple Sub Forms

Thread Tools

Set Focus Multiple Sub Forms

Similar Threads

Multiple picture change subform focus

parent form losing focus on print previews from child forms

Forms: VBA to set focus to form's default search box (at the bottom of the form)

Switching between forms window(Fail to auto focus corresponding form)

multi forms open & focus issue

Posting Permissions