Discussion :

[Tifriis]

Bonjour,

je suis en train de créer une fonction qui définit le lien d'une de mes images à l'ouverture d'un formulaire (cette image est présente sur tous les formulaires, c'est pourquoi je crée cette fonction). Le but étant de créer une fonction dans un module. Cette fonction sera appelée lors du chargement du formulaire (On load) en utilisant "Expression builder".

Ma fonction ressemble à cela :

Code :

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

1
2
3
4
5
Public Function Afficher_image_fond()
 
[Forms].Nom_du_formulaire_en_cours.Image_fond_haut.Picture = CurrentProject.Path & "\Images\Fonds\Image_fond_haut.jpg"
 
End Function

Le problème, c'est que je n'arrive pas à définir le "Nom_du_formulaire_en_cours" (les choses du type .Name me retournent une erreur).

Merci d'avance pour votre aide,

Tifriis

[Arkham46]

bjr,

essaye avec :
CodeContextObject

[Tifriis]

Bonjour Arkham46 et merci pour votre réponse !

En utilisant "CodeContextObject" j'arrive à récupérer le nom du formulaire en cours que je stock dans une variable (Formulaire_en_cours). J'ai par contre un petit soucis pour "faire comprendre" à Access le "[Forms]![(Formulaire_en_cours]!".

J'ai essayé d'utiliser un "controls(Formulaire_en_cours)", mais cela n'y fait rien :

Code :

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

1
2
3
4
5
Dim Formulaire_en_cours As String
 
Formulaire_en_cours = CodeContextObject.Name
 
[Forms]![controls(Formulaire_en_cours)]!Image_fond_haut.Picture = CurrentProject.Path & "\Images\Fonds\Image_fond_haut.jpg""

Auriez-vous une idée ?
Merci d'avance.

[Arkham46]

Code :

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

Forms(Formulaire_en_cours).Image_fond_haut.Picture

ou peut-être tout simplement

Code :

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

CodeContextObject.Image_fond_haut.Picture

[Tifriis]

Oui, tout simplement

Merci beaucoup !