In the following example, an event procedure for the save button saves DUOS data objects in the Customer Maintenance window only if the user entered all required fields (the Required property is True):
Private Sub Save_BeforeUserChanged(KeepFocus As Boolean, _ CancelLogic As Boolean) Dim CustomerCollection As DUOSObjects Dim CustomerObject As DUOSObject If CustomerMaintenance.Required = True Then 'The user entered all required fields. Create/get the collection Set CustomerCollection = DUOSObjectsGet("CustomerCollection") 'Create the object, using the customer ID as the object ID Set CustomerObject = CustomerCollection.Item(CustomerID) 'Set the properties in the collection CustomerObject.Properties("URL Address") = URLAddress CustomerObject.Properties("Contact E-Mail Address") _ = ContactEMailAddress End If End Sub