Repository.Crew.AddCrew: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
 
(21 intermediate revisions by 5 users not shown)
Line 1: Line 1:
{{Template:APIClass|Repository Class|Repository}}
{{Template:API}}{{Template:APIBreadcrumb|.[[Repository Class|Repository]]}}


== Property Syntax==
{{APIName|AddCrew(}}
{{APIPrefix|ByVal}}
{{APIName|crew}}
{{APIPrefix|As}}
{{APIName|[[cCrew Class|cCrew]])}}
{{APIPrefix|As Boolean}}<br>
{{APIComment|Saves the crew in the repository.}}


== Parameters ==
<onlyinclude>Adds a new crew resource to the current project. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude>
'''crew'''
{{APIComment|The crew to add to the repository.}}




== Usage Example ==
'''Remarks''': 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.
{{APIComment|Declare a new repository connection class.}}
        Private WithEvents MyRepository As New Repository


{{APIComment|Connect to the Synthesis repository.}}
== Syntax ==
        Dim Success As Boolean = False
'''.Crew.AddCrew'''(''crew'')
        Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")


{{APIComment|Declare a new Crew.}}
=== Parameters ===
        Dim newCrew As New cCrew("NewCrew1")
''crew''
:Required. The [[CCrew Class|cCrew]] object that represents the crew resource to be added.


{{APIComment|Add the Crew to the repository.}}
 
        Dim SuccessAddCrew As Boolean
== Example ==
        SuccessAddCrew = MyRepository.AddCrew(newCrew)
This example creates a new crew resource, and then saves it in the first available project in a Synthesis repository.
'''VBA'''
{{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
  {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
{{APIComment|'Create a new crew. The following example creates a crew named "MyNewCrew."}}
  {{APIPrefix|Dim}} NewCrew {{APIPrefix|As New}} cCrew
  NewCrew.Name = {{APIString|"MyNewCrew"}}
{{APIComment|'Add the new crew to project #1.}}
  MyRepository.Project.SetCurrentProject(1) 
  {{APIPrefix|Call}} MyRepository.Crew.AddCrew(NewCrew)
 
'''VB.NET'''
{{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
  {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
{{APIComment|'Create a new crew. The following example creates a crew named "MyNewCrew."}}
  {{APIPrefix|Dim}} NewCrew {{APIPrefix|As New}} cCrew ({{APIString|"MyNewCrew"}})
{{APIComment|'Add the new crew to project #1.}}
  MyRepository.Project.SetCurrentProject(1) 
  MyRepository.Crew.AddCrew(NewCrew)

Latest revision as of 20:34, 18 August 2016

APIWiki.png


Member of: SynthesisAPI.Repository


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


Remarks: 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 that represents the crew resource 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)