Changing focus to a control on a different form

[jimatqsi]

I'm having trouble changing the focus from form to form.

I've got a big form with two smaller forms. The main form takes the left 1/3 of the screen, subform1 the upper right, and subform2 the lower right portion of the screen. I want the user to be able to advance to subform1 with a control/M and to subform2 with a control/B keystroke.

I used this code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
' control/M will set the focus to the packages
If KeyCode = vbKeyM And vbKeyControl Then
    'Forms!frm_OEShippingSelectCustomer!fsub_OEShippingProduct.
    With Forms!frm_OEShippingSelectCustomer!fsub_OEShippingProduct
        !txtQtyShipped.SetFocus
        !txtQtyShipped = 99  ' just to see if anything happened
    End With
 
    KeyCode = 0
End If
 
' CONTROL/B will load the form for boxes/packages
If KeyCode = vbKeyB And vbKeyControl Then
    Forms!frm_OEShippingSelectCustomer!fsub_OEShippingProduct.Form!!txtWeight.SetFocus
    KeyCode = 0
End If
 
End Sub
 

I want to end up with the focus on a control in the proper subform. But I keep ending up still on the main form. The "99" is showing up on the control txtQtyShipped, so I can see that it is executing the code.

How do I get parked on the proper form after my control keystroke?

Thanks,
Jim

[FishVal]

Hi, Jim.

The following is from Access help.

You can use the SetFocus method to move the focus to a subform, which is a type of control. You can also move the focus to a control on a subform by using the SetFocus method twice, moving the focus first to the subform and then to the control on the subform.

So the code will look like this.

With Forms!frm_OEShippingSelectCustomer!fsub_OEShippingProduct
    .SetFocus
    !txtQtyShipped.SetFocus
End With
 

Regards,
Fish

[alzowze]

yeah you gotta do it in two steps, like fish said.

Another example using more with blocks - lol

 
With Me
  With .fsub_OEShipping
    .SetFocus
    With .Form
      With .txtQtyShipped
        .SetFocus
      End With
    End With
  End With
End With
 
 

As you can see you are trying to reference and object that has a nesting level 4 deep.

The best I come up with a two liner:

Me.Form!fsub_OEShipping.SetFocus
Me.Form!fsub_OEShipping.Form!txtQtyShipped.SetFocus

hth

Alan ";0)

[jaxjagfan]

If both of your subforms are based on the same table as their data source (your choices on which subform to pick seems to be based on package or box - basically package size). I would enable or disable controls within a single subform - if package enable QTY and disable weight and viceversa for box. Make it less for end users to have to remember. A little more development work but a better user experience.