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

  • No labels