Jump to navigation Jump to search
Assigns a control to a cause. Returns a Boolean value; when true, indicates the control was assigned successfully.
- Required. The Control ID of the control 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 controls from project #1. Dim Controls() As cXfmeaControl MyRepository.Project.SetCurrentProject(1) Set Controls = MyRepository.Action.GetAllXfmeaControls() '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 Controls 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.AssignControlToXfmeaCause(Controls(0), Causes(0))