EsbOtlAssociateAttributeMember() associates an attribute member with a standard or base member.
EsbOtlAssociateAttributeMember (hOutline, BaseMember, AttributeMember)
ByVal hOutline As Long ByVal BaseMember As Long ByVal AttributeMember As Long
| hOutline | Handle to the outline |
| BaseMember | Handle to the standard of base member |
| AttributeMember | Handle to the attribute member |
Returns STS = 0 when successful. Otherwise, returns an error code.
This function requires no special privileges.
Sub ESB_OtlAssociateAttributeMember()
' NOTE: 'Out' is a sub to print the output within quotes to a listbox or text box
Dim BaseMbr As Long
Dim AttrMbr As Long
Dim sts as long
Dim hOutline as long
hOutline = ESB_OtlOpenOutline
If hOutline = vbNull Then Out "ESB_OtlOpenOutline() failed: " & sts: Exit Sub
BaseMbr = ESB_OtlFindMember("Enter base dimension: ")
If BaseMbr = vbNull Then
Out "No valid member found."
Out "ESB_OtlAssociateAttributeDimension() failed."
Exit Sub
End If
AttrMbr = ESB_OtlFindMember("Enter attribute dimension: ")
If AttrMbr = vbNull Then
Out "No valid member found."
Out "ESB_OtlAssociateAttributeMember() failed."
Exit Sub
End If
sts = EsbOtlAssociateAttributeMember(hOutline, BaseMbr, AttrMbr)
' abstract sub to call EsbOtlVerifyOutline(), EsbOtlWriteOutline(), EsbOtlRestructure(),EsbUnlockObject() and
' EsbOtlCloseOutline() as neededà
tuckinoutline
If sts <> 0 Then Out "EsbOtlAssociateAttributeMember failed" & sts: Exit Sub
ESB_OtlGetAttributeInfo
End Sub
EsbCheckAttributes()
EsbGetAssociatedAttributesInfo()
EsbGetAttributeInfo()
EsbGetAttributeSpecifications()
EsbOtlAssociateAttributeDimension()
EsbOtlDisassociateAttributeDimension()
EsbOtlDisassociateAttributeMember()
EsbOtlFindAttributeMembers()
EsbOtlGetAssociatedAttributes()
EsbOtlGetAttributeInfo()
EsbOtlGetAttributeSpecifications()
EsbOtlQueryAttributes()
EsbOtlSetAttributeSpecifications()