# EsbOtlAssociateAttributeMember

Description

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

Parameters

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

Return Value

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

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.

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

See Also

EsbCheckAttributes()
EsbGetAssociatedAttributesInfo()
EsbGetAttributeInfo()
EsbGetAttributeSpecifications()
EsbOtlAssociateAttributeDimension()
EsbOtlDisassociateAttributeDimension()
EsbOtlDisassociateAttributeMember()
EsbOtlFindAttributeMembers()
EsbOtlGetAssociatedAttributes()
EsbOtlGetAttributeInfo()
EsbOtlGetAttributeSpecifications()
EsbOtlQueryAttributes()
EsbOtlSetAttributeSpecifications()