ISTSConcept.Code

Example

Display some information about the selected concept, including its code.

Dim aTermSelector
Dim aTermset
Dim aMessage
Dim aConcept
Dim aTerms, aTerm 

Set aTermSelector = Profile.ShowTermSelector
if aTermSelector.Cancelled then
  Profile.MsgBox("No concept is selected")
  exit sub
end if

Set aTermset = aTermSelector.SelectedTermset
aMessage =_
  "The code of the termset: " & vbTab & vbTab & aTermset.Code & vbNewLine &_
  "The description of the termset: " & vbTab & aTermset.Description & vbNewLine 

set aConcept = aTermSelector.SelectedConcept   
aMessage = aMessage &_
  "The code of the concept: " & vbTab & vbTab & aConcept.Code & vbNewLine &_
  "The description of the concept: " & vbTab & aConcept.Description & vbNewLine 

set aTerms = aConcept.Terms

do
  set aTerm = aTerms.Item 
  aMessage = aMessage &_
    "The code of the term: " & vbTab & vbTab & aTerm.Code & vbNewLine &_
    "The description of the term: " & vbTab & aTerm.Description & vbNewLine  
loop until not aTerms.Next  
      
Profile.MsgBox(aMessage)