Jump to navigation Jump to search
Assigns an action to a cause. Returns a Boolean value; when true, indicates the action was assigned successfully.
- Required. The Action ID of the action that is to be assigned to the cause.
- Required. The Cause ID of the cause to which the action is to be assigned.
VBA|VB.NET 'Declare a new Repository object and connect to a repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr18") 'Get a list of actions from project #1. Dim Actions() As cAction MyRepository.Project.SetCurrentProject(1) Set Actions = MyRepository.Action.GetAllActions() 'Get a list of causes for failure #1 from project #1. Dim Causes() As cCause Set Causes = MyRepository.Xfmea.GetAllXfmeaCauses(1) 'Assign the first item in the Actions array to be assigned to the first item in the Causes array. For VB.NET, dictionaries could also be used. Dim bOK As Boolean bOK = MyRepository.Xfmea.AssignActionToXfmeaCause(Actions(0), Causes(0))