Menus Contextuels

Question

Bonjour, je cherche à empêcher dans certains cas l'accès aux menus contextuels avec le clic droit.
J'ai donc récupérer le code suivant sur Internet:

Public Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim prp As Property
Const conPropNotFoundError = 3270

On Error GoTo Change_Err
   db.Properties(strPropName) = varPropValue
   ChangeProperty = True

Change_Bye:
   Exit Function

Change_Err:
   If Err = conPropNotFoundError Then  ' Property not found.
       Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
       db.Properties.Append prp
       Resume Next
   Else    ' Unknown error.
       ChangeProperty = False
       Resume Change_Bye
   End If
   
End Function

Cependant, lorsque j'appelle cette fonction avec la ligne de commande:
ChangeProperty "AllowShortCutMenus", dbBoolean, True

Cela ne fonctionne pas.
Qu'est-ce qui ne va pas dans cette fonction, ou ds l'appel de cette fonction?????

Merci d'avance

ICIoBRa · Answer

Ton menu contextuel pour le click droit, est sur kel objet ?

ICIoBRa

thguillon · Answer

Sur un état et sur des tables.
Parce que pour l'empêcher sur des formulaires, je fais me.shortcutmenu=false, mais sur les états et sur les tables ça marche pas

ICIoBRa · Answer

Ah déZolé j'en c rien pour ça ...

ICIoBRa

thguillon · Answer

Oki doki, 
tanpis pr moi...

ICIoBRa · Answer

DéZolé mario ... ;p

ICIoBRa

Menus Contextuels

5 réponses

Discussions similaires