fbou0511
Messages postés5Date d'inscriptionmercredi 2 mars 2005StatutMembreDernière intervention30 mars 2005
-
30 mars 2005 à 16:23
fbou0511
Messages postés5Date d'inscriptionmercredi 2 mars 2005StatutMembreDernière intervention30 mars 2005
-
30 mars 2005 à 23:10
Je suis dans un code access (vba) et je souhaite utiliser des menu contextuel dans un tableau. Pas de pb jusque là...
Dans mes actions, j'utilise OnAction='toto' et Parameter=345, mais je n'ai pas de déclenchement de la procédure 'toto' ??? Rien ne se passe !!!
Une idée ?
fbou0511
Messages postés5Date d'inscriptionmercredi 2 mars 2005StatutMembreDernière intervention30 mars 2005 30 mars 2005 à 22:30
En effet, c'est ce que j'ai fait : OnAction = "toto" . Sans succès ! Je n'ai aucun déclenchement sur le click du menu ! D'après l'espion sur le CommandBars("MyMenu") toutes les valeurs sont bonne.
Y a-til un truc particulier qui m'échappe ? Ma procédure 'toto' est déclaré dans un module en public. Je ne tombe jamais sur mon point d'arrêt dans cette procédure !
Pour être clair, voici ce que j'ai fait :
<HR>
Sub AjMenuX(TbItem, TbLien, Optional ByVal Ref)
On Error Resume Next
CommandBars("MyMenu").Delete
Set newMenu = CommandBars.Add(Name:="MyMenu", Position:=msoBarPopup, Temporary:=True)
For Each Value In TbItem
Set ctrl1 = newMenu.Controls.Add
ctrl1.Caption = Value
ctrl1.ToolTipText = Value
ctrl1.OnAction = TbLien(I)
If Not IsError(Ref) Then ctrl1.Parameter = Ref
I = I + 1
Next Value
newMenu.ShowPopup