lecrol
Déjà bien connu
Inscrit le : 03 Oct 2005
Messages : 37
|  Sujet: formulaire appelé depuis deux entrees du menu de l'appli  Mer 2 Juil - 16:34 | |
| 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 |
|
Yora_senior
Modérateur
Age : 64
Inscrit le : 29 Juin 2005
Messages : 1124
Localisation : Saint Cyr sur Mer (Var) et parfois St Quentin (Aisne)
Votre configuration PC
Processeur, RAM: AMD 1,8 Ghz
Carte graphique, disque dur: ATI RADEON XPRESS 200- HDD 160 Go + 80 Go + Externe 320 Go
Système d'exploitation, service pack: Windows XP SP2
| |
lecrol
Déjà bien connu
Inscrit le : 03 Oct 2005
Messages : 37
| | Sujet: formulaire appelé depuis deux entrées d'un menu d'appli Mer 2 Juil - 17:21 | |
| salut Jacqes
Quel plaisir Je vois que tu es toujours " à la barre" Bravo ! Mon appli est en Access
Roland |
|
Yora_senior
Modérateur
Age : 64
Inscrit le : 29 Juin 2005
Messages : 1124
Localisation : Saint Cyr sur Mer (Var) et parfois St Quentin (Aisne)
Votre configuration PC
Processeur, RAM: AMD 1,8 Ghz
Carte graphique, disque dur: ATI RADEON XPRESS 200- HDD 160 Go + 80 Go + Externe 320 Go
Système d'exploitation, service pack: Windows XP SP2
| | Sujet: Re: formulaire appelé depuis deux entrees du menu de l'appli Jeu 3 Juil - 12:26 | |
| 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.
_________________
 |
|
