Repository.Pool.GetAllPools

Returns an array of cPool objects that represent the spare part pools in the current project.

Syntax
.Pool.GetAllPools(Filter)

Parameters
Filter
 * Optional. A filter that returns a particular type of resource (e.g., global only, local and global only, etc.). Can be any ResourceFilterEnum constant. Default value = 0, which returns local resources only.

Example
This example assumes that spare part pools exist in the first available project of a repository.

VBA|VB.NET MyRepository Repository MyRepository.ConnectToAccessRepository ListofPools cPool MyRepository.Project.SetCurrentProject (1) ListofPools = MyRepository.Pool.GetAllPools NumberofElements Integer NumberofElements = UBound(ListofPools) - LBound(ListofPools) + 1 MsgBox (NumberofElements)