Repository.Pool.AddPool

Adds a new spare part pool to the current project. Returns a Boolean value; when true, indicates indicates a successful save.

If a pool with the same name already exists in the destination project, the name will be incremented automatically. For example, if "Pool1" already exists, the new pool might be renamed to "Pool2," "Pool3," etc.

Syntax
.Pool.AddPool(pool)

Parameters
pool
 * Required. The cPool object that represents the spare part pool to be added.

Example
This example creates a new spare part pool resource, and then saves it in the first available project in a Synthesis repository. VBA MyRepository Repository MyRepository.ConnectToAccessRepository NewSpares cPool NewSpares.Name = MyRepository.Project.SetCurrentProject(1) MyRepository.Pool.AddPool(NewSpares)

VB.NET MyRepository Repository MyRepository.ConnectToAccessRepository NewSpares cPool MyRepository.Project.SetCurrentProject(1) MyRepository.Pool.AddPool(NewSpares)