Examples: Value property

The following example runs when the user clicks a button in a VBA user form. The procedure loops through a collection named Item Info and uses the Value property to set the value of the Item Color property for all data objects:

Private Sub UpdateItemColor_Click()
	Dim ItemCollection As DUOSObjects
	Dim ItemObject As DUOSObject
	Dim ItemProperties As DUOSProperties
	Dim ItemProperty As DUOSProperty

	Set ItemCollection = DUOSObjectsGet("Item Info")

	'Update the item color for all objects in the collection
	For Each ItemObject In ItemCollection
		For Each ItemProperty In ItemObject.Properties
			If ItemProperty.Name = "Item Color" Then
				ItemProperty.Value = "Red"
			End If
		Next
	Next
End Sub

Documentation Feedback

---