Bonjour à tous,
Je souhaite contrôler le paramétrage de chacun de mes formulaires dans un module indépendant.
Aussi j'ai créé la procédure suivante :
Public function ParametrageForm (NomForm as String)
MsgBox NomForm
End Function
J'appelle cette procédure en utilisant la feuille de propriétés du formulaire
Sur Chargement : = ParametrageForm ("NomDuFormulaire")
La MsgBox affiche : NomDuFormulaire
Maintenant, si je souhaite passer deux arguments, j'écris:
Public function ParametrageForm (NomForm as String, TypeForm as Integer)
MsgBox NomForm & TypeForm
End Function
Dans la feuille de propriétés :
Sur Chargement : = ParametrageForm ("NomDuFormulaire", 1)
Et là, ça ne fonctione plus!
Alors qu'en utilisant VBA :
CALL ParametrageForm("NomDuFormulaire", 1)
Ca fonctionne ...
Dois-je en conclure qu'on ne peut passer qu'un seul argument si on utilise l'appelle d'une fonction via une feuille de propriétés ? Ou quelque chose m'échappe ?
Partager