Public Sub LoopRelationships()

Dim oRels As CRelationships2
Set oRels = New CRelationships2

'Load constituent record using system record id
oRels.Init REApplication.SessionContext, 751

Dim oRel As CRelationship2

For Each oRel In oRels
Debug.Print oRel.Fields(RELATIONSHIP_FLD_Relation) & " - " & oRel.Fields(RELATIONSHIP_FLD_Name)
If oRel.Fields(RELATIONSHIP_FLD_Relation) = "Employee" Then
Debug.Print "Profession - " & oRel.Fields(RELATIONSHIP_FLD_Profession)
End If
Next oRel

Set oRels = Nothing
Set oRel = Nothing

End Sub

Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.