Repository.Xfmea.GetXfmeaCause Method

Member of: SynthesisAPI.Repository

Returns an XfmeaCause object, which represents an FMEA cause. Returns nothing if the cause does not exist or is not in the current project.

Syntax

.Xfmea.GetXfmeaCause(ID)

Parameters

ID

Required. Integer. The record ID number of the cause to retrieve.

Example

This example assumes that a cause with ID#1 exists in 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 cause ID#1 from the first project in the repository. 
  Dim ACause As XfmeaCause
  MyRepository.Project.SetCurrentProject(1)
  Set ACause = MyRepository.Xfmea.GetXfmeaCause(1)

 'Output sample: Display the description of the cause. 
  MsgBox (ACause.Dsc)

VB.NET

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
  
 'Get cause ID#1 from the first project in the repository. 
  Dim ACause As XfmeaCause
  MyRepository.Project.SetCurrentProject(1)
  ACause = MyRepository.Xfmea.GetXfmeaCause(1)

 'Output sample: Display the description of the cause. 
  MsgBox (ACause.Dsc)