Repository.Xfmea.AddXfmeaEffect Method: Difference between revisions
Jump to navigation
Jump to search
Kate Racaza (talk | contribs) mNo edit summary |
Kate Racaza (talk | contribs) No edit summary |
||
| Line 19: | Line 19: | ||
'''VBA''' | '''VBA''' | ||
{{APIComment|' | {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}} | ||
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Create a new effect. The following code creates a effect described as "No light, potential injury to user."}} | {{APIComment|'Create a new effect. The following code creates a effect described as "No light, potential injury to user."}} | ||
{{APIPrefix|Dim}} AEffect {{APIPrefix|As New}} XfmeaEffect | |||
AEffect.Dsc = {{APIString|"No light, potential injury to user"}} | |||
{{APIComment|'Add the new effect to failure #1 located in project #1.}} | {{APIComment|'Add the new effect to failure #1 located in project #1.}} | ||
MyRepository.Project.SetCurrentProject(1) | |||
{{APIPrefix|Call}} MyRepository.Xfmea.AddXfmeaEffect(AEffect,1) | |||
'''VB.NET''' | '''VB.NET''' | ||
{{APIComment|' | {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}} | ||
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Create a new effect. The following code creates a effect described as "No light, potential injury to user."}} | {{APIComment|'Create a new effect. The following code creates a effect described as "No light, potential injury to user."}} | ||
{{APIPrefix|Dim}} AEffect {{APIPrefix|As New}} XfmeaEffect | |||
AEffect.Dsc = {{APIString|"No light, potential injury to user"}} | |||
{{APIComment|'Add the new effect to failure #1 located in project #1.}} | {{APIComment|'Add the new effect to failure #1 located in project #1.}} | ||
MyRepository.Project.SetCurrentProject(1) | |||
MyRepository.Xfmea.AddXfmeaEffect(AEffect,1) | |||
Revision as of 16:05, 8 April 2016
 |
Member of: SynthesisAPI.Repository
Adds a new effect to a failure. Returns a Boolean value; when true, indicates a successful save.
Syntax
.Xfmea.AddXfmeaEffect(Effect, FailureID)
Parameters
Effect
- Required. The XfmeaEffect object to be added.
FailureID
- Required. Integer. The record ID of the failure to add the effect to.
Example
This example assumes that FMEAs exist in a repository. It creates a new effect, and then saves it to one of the failures in the repository.
VBA 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") 'Create a new effect. The following code creates a effect described as "No light, potential injury to user." Dim AEffect As New XfmeaEffect AEffect.Dsc = "No light, potential injury to user" 'Add the new effect to failure #1 located in project #1. MyRepository.Project.SetCurrentProject(1) Call MyRepository.Xfmea.AddXfmeaEffect(AEffect,1)
VB.NET 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") 'Create a new effect. The following code creates a effect described as "No light, potential injury to user." Dim AEffect As New XfmeaEffect AEffect.Dsc = "No light, potential injury to user" 'Add the new effect to failure #1 located in project #1. MyRepository.Project.SetCurrentProject(1) MyRepository.Xfmea.AddXfmeaEffect(AEffect,1)