formulaire appelé depuis deux entrees du menu de l'appli

Bonjour
J'ai un même formulaire qui est appelé depuis deux entrées différentes du menu général de mon application. Ceci pour deux usages diférents de ce même formulaire, bien sûr.
Comment pourrais-je, à l'activation de ce formulaire, savoir quelle est la fonction "appelante" au menu général?
Merci de vos lumières. Moi, je ne saurais que dupliquer, sous deux noms différents, ce formulaire. Mais c'est peu commode pour les mises à jour de l'appli.
D'avance un gand merci !!
Roland

Bonjour Roland,

Qu'elle est l'application ?

Exemple pour VBA sur Excel, vous avez sans doute deux procédures dans un module standard qui ouvrent le formulaire :

Code:

Sub Mise_a_jour1()
UserForm1.Caption = "BONJOUR"
UserForm1.Show
End Sub

Sub Mise_a_jour2()
UserForm1.Caption = "AU REVOIR"
UserForm1.Show
End Sub

Tenez-moi au courant.

Cordialement, Jacques.

salut Jacqes
Quel plaisir Je vois que tu es toujours " à la barre" Bravo ! Mon appli est en Access
Roland

Bonjour Roland,

Désolé pour le délai mais après 6 mois d'absence, pas mal de problèmes à résoudre dans notre maison de l'Aisne.

Une solution parmi d'autres pour Access :

Dans un module standard et en tout début (avant toute procédure), vous déclarez une variable publique, exemple :

Code:

Public titre as integer

dans chaque module qui lance l'ouverture du formulaire vous indiquez :

Code:

titre = 1 dans l'un

titre = 2 dans l'autre

ensuite dans le code qui ouvre le formulaire :

Code:

stDocName = "Frm_Tarif"
DoCmd.OpenForm stDocName, , , stLinkCriteria
If titre = 1
Forms!Frm_Tarif.Caption = "Création des données"

......traitement à effectuer
else
Forms!Frm_Tarif.Caption = "Modification des données"

......traitement à effectuer
End If

Remarque : comme au départ j'avais cru comprendre que vous vouliez adapter le texte affiché dans la barre de titre du formulaire, les lignes :

Code:

Forms!Frm_Tarif.Caption =

ne sont là que pour vous montrer que vous pouvez le faire, mais sinon ne les utilisez pas.

N'hésitez pas en cas de problème.
Cordialement.