The following procedure moves the focus to the Cash Account field using the FocusSeg method:
Private Sub CheckbookID_BeforeUserChanged(KeepFocus _ As Boolean, CancelLogic As Boolean) CashAccount.FocusSeg (1) End Sub
Once the Cash Account has focus, a BeforeGotFocus event procedure sets the value of the segments in the composite using the ValueSeg property:
Private Sub CashAccount_BeforeGotFocus(CancelLogic As Boolean) If CheckbookID = "CO. PAYROLL" Then CashAccount.ValueSeg(1) = "000" CashAccount.ValueSeg(2) = "21" CashAccount.FocusSeg (2) End If End Sub