Code from the Order Popup wherein the order number is chosen in a combo:
DoCmd.Minimize 'OrderPopup
DoCmd.OpenForm "Orders", acNormal, "", "", , acNormal
DoCmd.Maximize
DoCmd.GoToControl "text0" 'Order number
DoCmd.FindRecord Forms!orderpopup!Combo3, acEntire, False, ...