Repository.Crew.AddCrew: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
mNo edit summary
No edit summary
Line 2: Line 2:




<onlyinclude>Adds a new crew to a Synthesis repository. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude>  
<onlyinclude>Adds a new crew to a project. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude>  


If a crew with the same name already exists in the destination project, the name will be incremented automatically. For example, if "Crew1" already exists, the new crew might be renamed to "Crew2," "Crew3," etc.
If a crew with the same name already exists in the destination project, the name will be incremented automatically. For example, if "Crew1" already exists, the new crew might be renamed to "Crew2," "Crew3," etc.
Line 18: Line 18:
  '''VBA'''
  '''VBA'''
   
   
  {{APIComment|'Add code to connect to a Synthesis repository.}}
  {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  {{APIComment|...}}
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
  {{APIComment|'Create a new crew. The following example creates a crew named "MyNewCrew."}}
  {{APIComment|'Create a new crew. The following example creates a crew named "MyNewCrew."}}
  {{APIPrefix|Dim}} NewCrew {{APIPrefix|As New}} cCrew
  {{APIPrefix|Dim}} NewCrew {{APIPrefix|As New}} cCrew
  NewCrew.Name = {{APIString|"MyNewCrew"}}
  NewCrew.Name = {{APIString|"MyNewCrew"}}
   
   
  {{APIComment|'Add the new crew to project #1.}}
  {{APIComment|'Add the new crew to project #1.}}
  MyRepository.Project.SetCurrentProject(1)   
  MyRepository.Project.SetCurrentProject(1)   
  {{APIPrefix|Call}} MyRepository.Crew.AddCrew(NewCrew)
  {{APIPrefix|Call}} MyRepository.Crew.AddCrew(NewCrew)


  '''VB.NET'''
  '''VB.NET'''
   
   
  {{APIComment|'Add code to connect to a Synthesis repository.}}
  {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  {{APIComment|...}}
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
  {{APIComment|'Create a new crew. The following example creates a crew named "MyNewCrew."}}
  {{APIComment|'Create a new crew. The following example creates a crew named "MyNewCrew."}}
  {{APIPrefix|Dim}} NewCrew {{APIPrefix|As New}} cCrew ({{APIString|"MyNewCrew"}})
  {{APIPrefix|Dim}} NewCrew {{APIPrefix|As New}} cCrew ({{APIString|"MyNewCrew"}})
   
   
  {{APIComment|'Add the new crew to project #1.}}
  {{APIComment|'Add the new crew to project #1.}}
  MyRepository.Project.SetCurrentProject(1)   
  MyRepository.Project.SetCurrentProject(1)   
  MyRepository.Crew.AddCrew(NewCrew)
  MyRepository.Crew.AddCrew(NewCrew)

Revision as of 15:43, 8 April 2016

APIWiki.png


Member of: SynthesisAPI.Repository


Adds a new crew to a project. Returns a Boolean value; when true, indicates a successful save.

If a crew with the same name already exists in the destination project, the name will be incremented automatically. For example, if "Crew1" already exists, the new crew might be renamed to "Crew2," "Crew3," etc.

Syntax

.Crew.AddCrew(crew)

Parameters

crew

Required. The cCrew object to be added.


Example

This example creates a new crew resource, and then saves it in the first available project in a Synthesis repository.

VBA

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
 
 'Create a new crew. The following example creates a crew named "MyNewCrew." 
  Dim NewCrew As New cCrew
  NewCrew.Name = "MyNewCrew"

 'Add the new crew to project #1. 
  MyRepository.Project.SetCurrentProject(1)   
  Call MyRepository.Crew.AddCrew(NewCrew)
VB.NET

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
 
 'Create a new crew. The following example creates a crew named "MyNewCrew." 
  Dim NewCrew As New cCrew ("MyNewCrew")

 'Add the new crew to project #1. 
  MyRepository.Project.SetCurrentProject(1)   
  MyRepository.Crew.AddCrew(NewCrew)