Discussion :

[ashkfran]

Bonjour,

je fais appel a vous

je souhaiterais recuperer a l'ouverture d'un formulaire3, le nom du formulaire ayant permis d'ouvrir ce formulaire (Form 1 ou Form2)

le Form3 est accesible a partir des formulaires Form2 et Form1
je veux pouvoir traiter du Form3 différrement selon que ce soit Form1 ou Form2

Esperant avoir ete clair

merci de votre aide

[Heureux-oli]

Bonjour et bienvenue sur le Forum Access.

Oui, il est possible de récupérer le nom du formulaire.
Le tout est de savoir pourquoi et quand !

Code :

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

1
2
 
Me.Form.Name

[helas]

il suffit de passer en argument le nom du formulaire

Code :

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

1
2
 
 DoCmd.OpenForm "NomFormulaire", , , , , , Me.Name

le formulaire affiche dans la zone de texte le nom du formulaire qui l'a lancé

Code :

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

1
2
3
4
 
Private Sub Form_Load()
 Me!Texte = OpenArgs
End Sub

[ashkfran]

bonjour
Ce que je souhaite c'est lors de la procedure de sortie du Form3 le programme gere de facon differente la fermeture du Form1

pour prendre mon exmple pratique

il y a deux facons de creer une "famille de produit" (Form3)
1- soit en créant un nouveau produit, sur perte de focus du champ famille dans le Form1, si la famille n'existe pas dans la base alors ouverture du Form3
2- a l'aide d'un menu deroulant ouverture direct du Form3

ce que je souhaite c'est une fois enregistrer les infos du Form 3
je puisse quitter le Form 3 et que dans le cas
1- il ne me propose pas de creer une nouvelle famille de piece et ferme le Form3 alors que dans le cas
2- il me prospose a l'aide d'un MsgBox "voulez creer une nouvelle famille"

et donc je recherche l'instruction qui permette

Code :

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

1
2
3
4
5
if *je viens du Form1* then
      msgbox (voulez creer une nouvelle famille, VbYesNo)
else
      msgbox  (vous avez enregistrer votre famille, vous allez retourner sur le Form1 creation d'un produit)
end if

esperrant avoir ete plus clair
le vous remercie de votre aide

[Heureux-oli]

Helas t'as donné la solution,

Code :

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

1
2
3
4
5
if OpenArgs = "Formulaire1" then
     msgbox (voulez creer une nouvelle famille, VbYesNo) 
else  
     msgbox (vous avez enregistrer votre famille, vous allez retourner sur le Form1 creation d'un produit) 
end if

Et on passe l'argument avec :

Code :

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

DoCmd.OpenForm "Form3", , , , , , Me.Form.Name

Sachant que Me.Form.Name représente l'argument.

[ashkfran]

Merci de ton aide

[Heureux-oli]

Si tu es satisfait des prestations mets le tag