Repository.Crew.UpdateCrew

From ReliaWiki

(Difference between revisions)
Jump to: navigation, search
Line 2: Line 2:
-
<onlyinclude>Applies any changes made to an existing crew. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude>   
+
<onlyinclude>Sends any changes made to an existing crew resource to the Synthesis repository. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude>   
== Syntax ==
== Syntax ==
Line 17: Line 17:
  '''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|'Get crew #1 from project #1.}}
  {{APIComment|'Get crew #1 from project #1.}}
-
  {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
+
  {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
-
  MyRepository.Project.SetCurrentProject(1)   
+
  MyRepository.Project.SetCurrentProject(1)   
-
  {{APIPrefix|Set}} MyCrew = MyRepository.Crew.GetCrew(1)
+
  {{APIPrefix|Set}} MyCrew = MyRepository.Crew.GetCrew(1)
   
   
  {{APIComment|'Change the crew's name to "New_Name."}}
  {{APIComment|'Change the crew's name to "New_Name."}}
-
  MyCrew.Name = {{APIString|"New_Name"}}
+
  MyCrew.Name = {{APIString|"New_Name"}}
   
   
-
  {{APIComment|'Apply the change to the crew. Changes are recorded in the Synthesis repository.}}
+
  {{APIComment|'Send the change to the Synthesis repository.}}
-
  {{APIPrefix|Call}} MyRepository.Crew.UpdateCrew(MyCrew)
+
  {{APIPrefix|Call}} MyRepository.Crew.UpdateCrew(MyCrew)
  '''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|'Get crew #1 from project #1.}}
  {{APIComment|'Get crew #1 from project #1.}}
-
  {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
+
  {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
-
  MyRepository.Project.SetCurrentProject(1)   
+
  MyRepository.Project.SetCurrentProject(1)   
-
  MyCrew = MyRepository.Crew.GetCrew(1)
+
  MyCrew = MyRepository.Crew.GetCrew(1)
   
   
  {{APIComment|'Change the crew's name to "New_Name."}}
  {{APIComment|'Change the crew's name to "New_Name."}}
-
  MyCrew.Name = {{APIString|"New_Name"}}
+
  MyCrew.Name = {{APIString|"New_Name"}}
   
   
-
  {{APIComment|'Apply the change to the crew. Changes are recorded in the Synthesis repository.}}
+
  {{APIComment|'Send the change to the Synthesis repository.}}
-
  MyRepository.Crew.UpdateCrew(MyCrew)
+
  MyRepository.Crew.UpdateCrew(MyCrew)

Revision as of 18:36, 8 April 2016


Member of: SynthesisAPI.Repository


Sends any changes made to an existing crew resource to the Synthesis repository. Returns a Boolean value; when true, indicates a successful save.

Syntax

.Crew.UpdateCrew(crew)

Parameters

crew

Required. The cCrew object to be updated.


Example

This example assumes that a crew with ID #1 exists in the first available project of a repository.

VBA

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

 'Change the crew's name to "New_Name." 
  MyCrew.Name = "New_Name"

 'Send the change to the Synthesis repository. 
  Call MyRepository.Crew.UpdateCrew(MyCrew)
VB.NET

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

 'Change the crew's name to "New_Name." 
  MyCrew.Name = "New_Name"

 'Send the change to the Synthesis repository. 
  MyRepository.Crew.UpdateCrew(MyCrew)
Personal tools
ReliaWiki.org
Create a book