How to update a tagged value of an element in a VB script ?

[Domoina]

Hi,

I'm trying to update the tagged value of an element in a VB script like below :
(the tagged value is empty at the beginning)

Code: [Select]

        element.TaggedValues.GetByName("myTaggedValue").Value = "1"
element.TaggedValues.Refresh
        element.Update

But it doesn't work, the tagged value is still empty (even after the reload of the diagram).

So I tried with a SQL query :

Code: [Select]

        sqlUpdate="UPDATE t_objectproperties set Value= '1' where Object_ID = " & element.ElementID & " AND Property = 'myTaggedValue'"
Session.Output sqlUpdate
Repository.Execute(sqlUpdate)

But I get an error : DAO.Database [3144], syntax error in Update instruction.
What I get in the Output is :

UPDATE t_objectproperties set Value= '1' where Object_ID = 3161 AND Property = 'myTaggedValue'

I tested the query on a PostgreSQL database and it works well.

What I'm doing wrong ?

Thanks

[Geert Bellekens]

You have to update() the tagged value, not the element.
Try this:

Code: [Select]

dim myTag as EA.TaggedValue
set  myTag = element.TaggedValues.GetByName("myTaggedValue")
myTag.Value = "1"
myTag.Update
Geert

[Domoina]

Works like a charm 

Thank you Geert