Examples: ValueSeg property

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

Documentation Feedback