Public Sub MakeAttribute()



Dim oCT As CCodeTable

Set oCT = New CCodeTable

oCT.Init REApplication.SessionContext



With oCT

   .Fields(ctfNAME) = "Tree"

   .Fields(ctfUSERDEFINED) = True

   .Save

End With



Dim lID As Long

lID = oCT.Fields(ctfCODETABLEID)



Debug.Print lID



oCT.CloseDown

Set oCT = Nothing



Dim oAT As CAttributeTypes

Set oAT = New CAttributeTypes

oAT.Init REApplication.SessionContext, bbAttributeRecordType_CONSTITUENT



With oAT.Add

   .Fields(atfRECORDTYPE) = bbAttributeRecordType_CONSTITUENT

   .Fields(atfDESCRIPTION) = "Tree"

   .Fields(atfTYPEOFDATA) = bbAttribute_TABLEENTRY

   .Fields(atfCODETABLESID) = lID

   .Validate

End With

oAT.Save



oAT.CloseDown

Set oAT = Nothing



End Sub

Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Our Customer Support can help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality. If you are interested in learning more about the VBA and API modules, contact your account manager.