Public Sub MakeAttribute()

Dim oCT As CCodeTable

Set oCT = New CCodeTable

oCT.Init REApplication.SessionContext

With oCT

   .Fields(ctfNAME) = "Tree"

   .Fields(ctfUSERDEFINED) = True


End With

Dim lID As Long

lID = oCT.Fields(ctfCODETABLEID)

Debug.Print lID


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


End With



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.