Discussion :

[El_Manu]

J'ai un souci dans le même esprit que dans cette discussion.

J'ai un sous-formulaire contenant des images (picture) qui sont créées dynamiquement en fonction de ce qui se passe sur le formulaire principal.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objElement = CreateControl("s_frmView", acImage, acDetail)

Par code VBA, je joins à ces images un code événementiel sur click.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objElement.OnClick = "=fctTmp(" + Chr(34) + strLabel + Chr(34) + ")"

La procédure (et être pro c'est dur) est dans un module et j'ai tenté de l'écrire de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub fctTmp(strTmp As String)
    MsgBox strTmp
End Sub

Mais aussi de celle-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function fctTmp(strTmp As String)
    MsgBox strTmp
End Function

Dans tous les cas, lorsque je clic sur mon image, l'appli me renvoie ceci :

L'expression Sur clic entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. Un problème est survenu durant la communication entre MonAppli est le serveur OLE ou le contrôle ActiveX.
* Le résultat de l'expression n'est pas le nom d'une macro, le nom d'une fonction définie par l'utilisateur ou [Event Procedure]
* Une erreur a peut-être été commise lors de l'évaluation d'une fonction, d'un évènement ou d'une macro.

J'ai même essayé d'insérer un bouton tout simple et pareil, même problème avec [Event Procedure] sur OnClick.

Vous avez une idée sur le problème que je rencontre ?

[El_Manu]

J'ai oublié de préciser que lorsque j'ouvre mon sous formulaire (une fois crée par VBA) en tant que formulaire, l'erreur est identique.

Par contre si j'envoie cette même fonction depuis le formulaire principale, elle marche impec.

Je pige pas.

[Pierre Fauconnier]

Bonjour

La propriété OnClick ne permet pas d'utiliser une procédure ou une fonction "en direct"... Voir :F1: sur OnClick pour plus de détails.

Mais elle permet de renseigner une macro, qui peut lancer une procédure...

Donc, tu peux avoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image0.OnClick = "Macro1"

et créer une macro Access pour laquelle tu spécifies qu'il faut exécuter le code de la fonction (<> procédure) appelée par exemple MaFonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
function MaFonction()
    msgbox "Bonjour"
end function

Pour la gestion des paramètres éventuels, je pense qu'il est préférable de jouer avec des variables publiques...

Ok?

[=JBO=]

Bonjour,

Pour faire plaisir à Pierre FAUCONNIER , je m'en vais le contredire et affirmer qu'il est tout à fait possible d'affecter à une propriété événementielle une expression consistant en un appel de fonction. On a déjà vu cette approche dans différents sujets traités sur le forum Access.

C'est vrai que ce n'est pas une manière habituelle de gérer les événements puisqu'on a généralement recours à une macro ou à une procédure événementielle.

Mais dans le cas présenté par El_Manu, on peut comprendre qu'il ne souhaite pas créer une procédure événementielle puisqu'il veut modifier dynamiquement son sous-formulaire (ajout de contrôles dans un formulaire en mode création).
Alors, par mesure de simplicité il veut passer par une fonction (une macro ? c'est exclu si on veut passer des paramètres ) et je trouve que c'est un bon choix.

La forme correcte de la procédure est bien une définition de fonction:

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function fctTmp(strTmp As String)
    MsgBox strTmp
End Function

La syntaxe pour l'affectation de la propriété OnClick est correcte.

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

objElement.OnClick = "=fctTmp(" + Chr(34) + strLabel + Chr(34) + ")"

Le message d'erreur donné par El_Manu est typiquement celui qu'on obtient si on a, à tort, défini une procédure de type Sub.


El_Manu,
les différents essais infructueux que tu rapportes sont bizarres voire "inquiétants".
A ta place, je décompilerai, compacterai et recompilerai tout ça (avec plein de sauvegardes évidemment ).
_

[Pierre Fauconnier]

Bonjour

Bonjour,

Pour faire plaisir à Pierre FAUCONNIER , ...

Cela me fait plaisir, car j'apprends quelque chose, qui en plus peut s'avérer très utile...

Merci

[El_Manu]

Tout d'abord merci à vous deux de me prêter main forte, j'ai traversé quelques moments de grande solitude .

Pour reprendre dans l'ordre, l'affectation d'une macro sur l'évènement OnClick() fonctionne bien cependant il m'est impossible de définir une variable publique comme paramètre car avant le clic, je suis incapable de dire quelle variable devra être utilisée. Imaginez simplement que je dusse renvoyer le nom de l'objet sélectionné. Je ne peux pas non plus créer autant de macro que j'ai d'objets (ce qui pourrait me permettre de fixer le paramètre en dur) car j'ignore à l'avance le nom même de cet objet.

D'où, la nécessité d'un appel de fonction avec paramètre inscrit dans l'objet lui-même.

J'ai donc ré-essayé en prenant soin de déclarer ma procédure en tant que fonction publique (avec un As Boolean derrière, ça mange pas de pain), dans un module séparé et toujours pas moyen de l'exécuter. Avant même de poster mon premier message, j'avais déjà tout tenté : La compilation du fichier, son compactage ainsi qu'un redémarrage du PC. Rien n'y fait. De toutes les pistes fournies, la seule dont j'ignore encore la méthode (et donc que je n'ai pas réalisé) et celle de la décompilation. Quoi donc est-ce ???

Manquerait-il une référence ou un complément dans mon projet ? J'en doute mais je suis ouvert à toutes suggestions.

[Pierre Fauconnier]

...Reponse = ShellExecute(hwnd:=Me.hwnd, lpOperation:="open", lpFile:=NomComplet, _
lpParameters:=vbNullString, lpDirectory:=CurrentProject.Path, nShowCmd:=3)...

A mon avis, c'est le As Boolean qui a grignoté la tartine...

Enlève-le et fais le test...

Ok?

[=JBO=]

Bonjour,

Imaginez simplement que je dusse renvoyer le nom de l'objet sélectionné. Je ne peux pas non plus créer autant de macro que j'ai d'objets (ce qui pourrait me permettre de fixer le paramètre en dur) car j'ignore à l'avance le nom même de cet objet.

D'où, la nécessité d'un appel de fonction avec paramètre inscrit dans l'objet lui-même.

En fait, tu pourrais considérablement te simplifier la tâche en faisant simplement référence à l'objet (plus précisément, au contrôle Access) qui a déclenché l'événement
Ainsi, dans le code de ta fonction tu fais référence au contrôle actif grâce à l'expression:

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Screen.ActiveControl