[AC-2007] Récupérer le nom du formulaire en cours à partir d'un module. [Résolu]

[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 :

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 :

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 :

Forms(Formulaire_en_cours).Image_fond_haut.Picture

ou peut-être tout simplement

Code :

CodeContextObject.Image_fond_haut.Picture

[Tifriis]

Oui, tout simplement

Merci beaucoup !