Solved ShortCut Menu .OnAction

[HASAN-1993]

How Can I Call Function On The Same Form
.OnAction = "UnitePrice"
.OnAction = "=UnitePrice"
.OnAction = "=UnitePrice()"
.OnAction = "MainForm.UnitePrice()"
All of these did not work

It only works from the main module page

 

[theDBguy]

Did you declare the function as Public?

 

[HASAN-1993]

Yes, and it is already in the same form

 

[HASAN-1993]

Access Cannot Run The Macro Or Callback Function

Although if I tries to call function from one of the button, it will work

 

[theDBguy]

Yes, and it is already in the same form

Maybe try:

.onAction="=Form_MainForm.UnitPrice()"

 

[HASAN-1993]

It also did not work

 

[theDBguy]

It also did not work

Do you get an error? What does UnitPrice() do?

 

[HASAN-1993]

Cannot Find The Name You Entered In the Expression

I just put a msgbox to make sure the function is working

 

[NauticalGent]

Can you show your code for both the CommandBar and UnitPrice?

 

[HASAN-1993]

Public Function UnitPrice()
Msgbox "Hello"
End Function

Public Function ShortCutMenuM()
Set Button = .Controls.Add(msoControlButton)
With Button
.Caption = "PriceName"
.OnAction = "=UnitPrice()"
End With
End Function

 

[NauticalGent]

If this is your actual code, change
.OnAction = "=UnitPrice()"
to
.OnAction = ="UnitPrice"

Your open quotes were on the wrong side of the "=" sign

 

[HASAN-1993]

If the equal sign is inserted twice next to each other, the code will not work at all

 

[NauticalGent]

Also,

'Add
Public Function ShortCutMenuM()
    Set myShortCutMenu = CommandBars("Custom")
    Set Button = myShortCutMenu.Controls.Add(msoControlButton)
    With Button
        .Caption = "PriceName"
        .OnAction = "UnitPrice"
    End With
End Function

 

[NauticalGent]

If the equal sign is inserted twice next to each other, the code will not work at all

Typo, sorry. Remove one of them

 

[HASAN-1993]

Also,

'Add
Public Function ShortCutMenuM()
    Set myShortCutMenu = CommandBars("Custom")
    Set Button = myShortCutMenu.Controls.Add(msoControlButton)
    With Button
        .Caption = "PriceName"
        .OnAction = "UnitPrice"
    End With
End Function

Of course, this is my full code, but it only works from the main module, either from the same form, not

 

[The_Doc_Man]

The action will only run from the form inside of which the action occurs. Remember that a sub-form is a separate form that has to be separately designed. It is activated only because the sub-form control points to it.

So.... is your .OnAction declaration in the form where that action will really occur / be detected?

 

[HASAN-1993]

The action will only run from the form inside of which the action occurs. Remember that a sub-form is a separate form that has to be separately designed. It is activated only because the sub-form control points to it.

So.... is your .OnAction declaration in the form where that action will really occur / be detected?

yes, on the same

 

[HASAN-1993]

I tried to put the function on the main Form and call it from the subform
And I tried to put it in the same subform and call it from the subform
All this did not work

 

[The_Doc_Man]

So the next question is, when you say it doesn't work form anything except the main module page, are those events ALSO linked on the sub-form; i.e. repeated each place where you want them to run?

EDIT: Obviously our posts crossed in transmission.

 

[HASAN-1993]

So the next question is, when you say it doesn't work form anything except the main module page, are those events ALSO linked on the sub-form; i.e. repeated each place where you want them to run?

EDIT: Obviously our posts crossed in transmission.

I just put a msgbox to make sure the function is working