Description

This the Optionality of the Relationship. Optional = 0. Mandatory = 1. DATATYPE: Integer.

Property type

Read-write property

Syntax

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

Relationship Object