Get the parameter property value from a custom menu item

[richiepr77]

I'm trying to return the value of a custom menu item from its parameter property and copy it to an unbound text field in a form. I've tried the following code with no success.

Function Menu1()
Me.txtMenuValue = Application.CommandBars("mnuCustom").Controls(1).Parameter
End Function

I've read in the Help section of the Parameter property, that If the parameter is set for custom controls, it can be used to send information to Visual Basic procedures.

 

[TheAceMan1]

How are ya richiepr77 . . .

This should work:

[blue]   Me.txtMenu = CommandBars("mnuCustom").Controls("[purple][b][i]ControlName[/i][/b][/purple]").Parameter[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]