VBA text box fill Properties

[j.romo]

Hello guys

Here I am struggling again

I mannaged to make a button to create some iproperties in VBA in a user form, but now I want to have some Textboxes to fill the value of the iproperties

but I can¡t get arroud it

 some hel would be great

the custom property is telephone

thanks

Private Sub TextBox1_Enter()

  Dim invDoc As Document
    Set invDoc = ThisApplication.ActiveDocument
    
    ' Get the design tracking property set.
    Dim invDesignInfo As PropertySet
    Set invDesignInfo = invDoc.PropertySets.Item("Design Tracking Properties")
    
    ' Get the part number property.
    Dim invPartNumberProperty As Property
    Set invPartNumberProperty = invDesignInfo.Item("TELEPHONE")
    
 invPartNumberProperty.Value
    
    
End Sub

[b_sharanraj]

Hi @j.romo

Please look into the below pic from the Toolbox Controls you can add a Textbox to Userform 🙂

[MechMachineMan]

It also helps if you access the proper property set: "Inventor User Defined Properties" instead of "Design Tracking Properties".

See this blog: http://modthemachine.typepad.com/my_weblog/2010/02/accessing-iproperties.html

[j.romo · Accepted solution]

Ifound out how to do it

I Had to call the textbox1.value to insert the value typed in the textbox to the iproperty the code is like this.

the link is very helpfull justin...

Private Sub CommandButton2_Click()
 
    ' Get the active document.
    Dim doc As Document
    Set doc = ThisApplication.ActiveDocument

    ' Get the custom property set.
    Dim customPropSet As PropertySet
    Set customPropSet = doc.PropertySets.Item( _
    "Inventor User Defined Properties")

    ' Get the property named "TELEFONO".
    Dim customProp As Property
    Set customProp = customPropSet.Item("TELEFONO")

    ' Display the value of the iProperty.
    'MsgBox "TELEFONO = " & customProp.Value
    
     ' Set the value of the property.
    customProp.Value = TextBox1.Value
End Sub