Context Menu (1 Viewer)

[ECEK]

I found this code to produce a context menu for runtime users.

Ive just created a new module, pasted this code and called it from the form. However I've saved the module but it doesn't come up in the dropdown section for the Shortcut Menu Bar.

Any ideas what I'm doing wrong?

Option Compare Database
Option Explicit

Private Sub CreateContextMenu()

Const strMenuName As String = "Form1_CommandBar"

Dim cbar As CommandBar
Dim bt As CommandBarButton
    
    Set cbar = CommandBars.Add(strMenuName, msoBarPopup, , False)
    Set bt = cbar.Controls.Add
        bt.Caption = "Cut"
        bt.OnAction = "=fCut()"
        bt.FaceId = 21
    Set bt = cbar.Controls.Add
        bt.Caption = "Copy"
        bt.OnAction = "=fCopy()"
        bt.FaceId = 19
    Set bt = cbar.Controls.Add
        bt.Caption = "Paste"
        bt.OnAction = "=fPaste()"
        bt.FaceId = 22
End Sub

Function fCut()
On Error Resume Next
    Application.CommandBars.ExecuteMso ("Cut")
End Function

Function fCopy()
On Error Resume Next
    Application.CommandBars.ExecuteMso ("Copy")
End Function

Function fPaste()
On Error Resume Next
    Application.CommandBars.ExecuteMso ("Paste")
End Function

highlighted
cbar As CommandBar

I'm getting a Compile error: User-defined type not defined

 

[arnelgp]

add reference to Microsoft Office xx.x Object Library

 

[Uncle Gizmo]

Try:-

Public Sub CreateContextMenu()
.....
.......

Sent from my SM-G925F using Tapatalk

 

[ECEK]

Gizmo = Syntax error
Arnie = "I already have the object lirary reference.

It works it the original attached
I just can't get it to work in my form.
Could it be that there is something counter-productive with my form?
I can't get the module to appear in the dropdown.
It's as though it isn't saving.

 

[arnelgp]

it's working alright. you have to right-click on your mouse for the context menu to appear.

 

[ECEK]

The solution was quite simple.
I imported the module from the file that I attached as opposed to copying the code.
It works fine now.
Thanks for your contributions.

 

[Uncle Gizmo]

The solution was quite simple.
I imported the module from the file that I attached as opposed to copying the code.
It works fine now.
Thanks for your contributions.

Well something doesn't make sense. If your Subroutine "Private Sub CreateContextMenu()" is in a stand-alone module, you cannot call it from a Form because the sub is prefixed with "Private". It can only be called from within the module. Therefore you must have other code in the module that calls subroutine.