Description
Optionality of the Relationship. Valid values are: 0 = Optional and 1 = Mandatory = 1. DATATYPE: Integer.
Property Type
- Read-write property
Syntax
Public Property OptionalityValue() As Variant
Example
Sub Main
Dim d As Diagram
Dim m As Model
Dim rel As Relationship
Set d = DiagramManager.ActiveDiagram
Set m = d.ActiveModel
'Force every Relationship to be Mandatory and One-To-One or More
For Each rel In m.Relationships
rel.OptionalityValue = 1
rel.CardinalityNo = 1
Next rel
End Sub
See Also