Passing Tag From MenuBar Button

[ind]

I have created a custom menubar for an application that I will be using in the near future. I need to pass the Tag Property of the commandbar button to a form I created to print various reports. How can I accomplish this?????

 

[TorF]

I don't know a solution to directly pass the button tag property.

But when you set the button Tag property, modify too the OnAction property: call a fonction with a parameter that is the same value than tag.

Example:
You set button tag to "MyTag"
Set the OnAction to =Menu_OnClickButton("MyTag&quot

Add this function into a module :
Public Function Menu_OnClickButton(ByVal Tag As String)
'Send on click event to form
set frm = GetForm() 'Get here your form
frm.OnClick( Tag ) 'Add the function OnClick into your form
End Function

 

[ind]

This line of code is throwing me for a loop....

frm.OnClick( Tag ) 'Add the function OnClick into your form

What does this mean??????

Thanks

 

[TorF]

In your form you have to add a procedure like:


public Sub OnClick(Tag as string)
'Button treatment here
if tag = "MyTag" then
...
end if
End Sub