TeamInfo.SetCrewIDs Method

Member of: SynthesisAPI.TeamInfo

Sets the IDs of the crews included in the team.

Remarks: Designed for VB6/VBA users, .NET users should use CrewIDs property instead.

Syntax

.SetCrewIDs(ByRef arr())

Parameters

arr()

Required as integer. An array of the crew IDs.

Example

VBA

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr19")
  
 'Get crew #1 from project #1. 
  Dim MyCrew As cCrew
  MyRepository.Project.SetCurrentProject(1)
  Set MyCrew = MyRepository.Crew.GetCrew(1)

 'Add code to get an existing team. 
 Dim aTeam As TeamInfo
 ... 

 'Get the IDs of the crews assigned to the team. 
 Dim myarray() As integer
 Call aTeam.GetCrewIDs(myarray)

 'Sample output. 
 Dim i As Integer
 Dim upper As Integer
 Dim lower As Integer

 lower = LBound(myarray)
 upper = UBound(myarray)

 For i = lower To upper
  MsgBox "Crew ID = " & myarray(i)
 Next i