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