Change userform control property value indirectly.

[HighAndWilder]

I'd like to be able to change the value of a userform control property by using a variable to hold the property name.

It seems that I can used the .Properties method for the userform but not for a control on the userform.

I get an error on the highlighted line.

Object doesn't support this property or method (Error 438)

This is just to demo the method.

Is there a way to do this or is it not possible?

Thanks

Private Sub subChangePropertyValue(strControl As String, strProperty As String, varValue As Variant)
Dim ctrl As Control

  Set ctrl = Me.Controls(strControl)
  
 [B] ctrl.Properties(strProperty).Value = varValue[/B]
  
End Sub

Private Sub cmdButton_Click()
  Call subChangePropertyValue("cmdButton", "Top", Me.cmdButton.Top + 10)
End Sub

 

[Jaafar Tribak]

You want CallByName Method as follows:

Private Sub subChangePropertyValue(strControl As String, strProperty As String, varValue As Variant)
    Dim ctrl As Control
    Set ctrl = Me.Controls(strControl)
    'ctrl.Properties(strProperty).Value = varValue
    CallByName ctrl, strProperty, VbLet, varValue
End Sub

Private Sub cmdButton_Click()
  Call subChangePropertyValue("cmdButton", "Top", Me.cmdButton.Top + 10)
End Sub

You would probably need to further refine the routine to also make it work for vbSet, vbMethod and vbGet

 

[HighAndWilder]

You want CallByName Method as follows:

Private Sub subChangePropertyValue(strControl As String, strProperty As String, varValue As Variant)
    Dim ctrl As Control
    Set ctrl = Me.Controls(strControl)
    'ctrl.Properties(strProperty).Value = varValue
    CallByName ctrl, strProperty, VbLet, varValue
End Sub

Private Sub cmdButton_Click()
  Call subChangePropertyValue("cmdButton", "Top", Me.cmdButton.Top + 10)
End Sub

You would probably need to further refine the routine to also make it work for vbSet, vbMethod and vbGet

Thank you.

I found this good site that explains it well.

VBA CallByName Function - Explained with Examples

CallByName seems to be a very useful function.

The project can resume now.