EsbOtlDisassociateAttributeMember() disassociates an attribute member from a base member.
EsbOtlDisassociateAttributeMember (hOutline, BaseMember, AttributeMember)
ByVal hOutline As Long ByVal BaseMember As Long ByVal AttributeMember As Long
| hOutline | Handle to the outline |
| BaseMember | Handle to the 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_OtlDisassociateAttributeMember()
Dim BaseMbr As Long
Dim AttributeMbr 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 member: ")
If BaseMbr = vbNull Then
Out "ESB_OtlGetMemberInfo() failed in ESB_OtlFindMember. " & sts: Exit Sub
AttributeMbr = ESB_OtlFindMember("Enter attribute member: ")
If AttributeMbr = vbNull Then Out "ESB_OtlGetMemberInfo() failed in ESB_OtlFindMember. " & sts: Exit Sub
sts = EsbOtlDisassociateAttributeMember(hOutline, BaseMbr, AttributeMbr)
If sts = 0 Then Out "EsbOtlDisassociateAttributeMember failed " & sts: Exit Sub
sts = EsbOtlDeleteMember(ghOutline, AttrMbr)
If sts <> 0 Then Out "EsbOtlDeleteMember failed" & sts: Exit Sub
' abstract sub to call EsbOtlVerifyOutline(), EsbOtlWriteOutline(), EsbOtlRestructure(),EsbUnlockObject() and
' EsbOtlCloseOutline() as neededà
tuckinoutline
End Sub
EsbCheckAttributes()
EsbGetAssociatedAttributesInfo()
EsbGetAttributeInfo()
EsbGetAttributeSpecifications()
EsbOtlAssociateAttributeDimension()
EsbOtlAssociateAttributeMember()
EsbOtlDisassociateAttributeDimension()
EsbOtlFindAttributeMembers()
EsbOtlGetAssociatedAttributes()
EsbOtlGetAttributeInfo()
EsbOtlGetAttributeSpecifications()
EsbOtlQueryAttributes()
EsbOtlSetAttributeSpecifications()