EsbOtlAssociateAttributeMember

Associates an attribute member with a standard or base member.

Syntax

EsbOtlAssociateAttributeMember (hOutline, BaseMember, AttributeMember)
ByVal hOutline        As Long
ByVal BaseMember      As Long
ByVal AttributeMember As Long

Parameter	Description
hOutline	Handle to the outline
BaseMember	Handle to the standard of base member
AttributeMember	Handle to the attribute member

Notes

Before you associate an attribute member with a standard or base member using this function, associate the dimension of the attribute member with the dimension of the standard or base member using EsbOtlAssociateAttributeDimension().
You cannot associate an attribute member with a base dimension.
Only a zero-level attribute member can associate with a standard or base member.
You cannot associate members of a given attribute dimension with base members that are at different levels from each other.
You cannot associate more than one member of an attribute dimension with a base member.
You can associate members of more than one attribute dimension with a base member.

Return Value

Returns STS = 0 when successful. Otherwise, returns an error code.

Access

This function requires no special privileges.

Example

        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(), ESBOTLNriteOutline(), EsbOtlRestructure(),EsbUnlockObject() and
' EsbOtlCloseOutline() as neededà
tuckinoutline
If sts <> 0 Then Out "EsbOtlAssociateAttributeMember failed" & sts: Exit Sub
ESB_OtlGetAttributeInfo
End Sub