Giuro che è la prima volta che con Access sento una roba simile...!!!!
I Popup con Access si costruiscono con il VBA con poche righe di codice, al massimo serve 1 Chiamata API per recuperare la posizione del Cursore in modo da passarla al metodo ShowPopup... ma solo se lo devi pilotare da Comando.
Sei certo di aver preso la strada giusta...?
Un esempio "banale":
Crea una Form vuota e su Load scrivi:
Private Sub Form_Load
Call CreateFilterPopup()
Me.ShortcutMenuBar=cMNU
End Sub
Quindi metti in un Modulo questo codice:
Option Compare Database
Option Explicit
Public Const cMNU As String = "MenuPopupCustom"
Public Function CreateFilterPopup()
Dim myBar As Object
Dim myCtlBar As Object
Const msoControlButton = 1
Const msoBarTypePopup = 2
Const msoBarPopup = 5
' Cerca nell'insieme CommandBars l'Oggetto Menù = "mPopupRuntime"
If CBRExist(cMNU) = False Then
' Se siamo quì il Menù non esiste, quindi lo CREA
Set myBar = Application.CommandBars.Add(Name:=cMNU, Position:=msoBarPopup, Temporary:=True)
Set myCtlBar = myBar.Controls.Add(Type:=msoControlButton)
With myCtlBar
.Caption = "Popup Menù Test"
.FaceId = 527
.OnAction = "=Prova()"
.BeginGroup = False
.Enabled = True
End With
End If
End Function
Private Function CBRExist(NomeCBR As String) As Boolean
On Error Resume Next
Dim varName As Variant
varName = Application.CommandBars(NomeCBR).Name
CBRExist = Err.Number = 0
End Function
Public Function Prova()
MsgBox "Hai premuto il POPUP MENU'"
End Function
Apri la Form e premi RIGHT_CLICK...