Discussion :

[titeZ]

Bonjour,
J'ai 2 formulaire qui grace a un bouton ds chacun de ces forrmulaire doivent en ouvrir un autre (le meme)

Le formulaire doit avoir des champs actifs ou non selon qu'on l'ai appelée d'un ou de l'autre formulaire

Comment puis-je identifier ds le formulaire nouvellement ouvert ( formulaire appelé) depuis quel formulaire on l'a ouvert?

Merci

[francishop]

Bonjour,

Et Hop! Un petit tour à La Faq :
http://access.developpez.com/faq/?page=TAForm#RecupNom
C'est bon? On en redemande? Voila :
http://access.developpez.com/faq/?pa...#PreremplChamp

Cordialement.

[titeZ]

OUI, mais non

Parce qu'en faite, j'ai deux bouton differents!
un sur chaque formulaire qui amene aux meme formulaire ! ms avec des caracteristiques differentes

d'accords ds chaque premier formulaire je fais un docmd.openform...
le probleme reste le meme !
comment saura t'il que le clic vient du premier ou du 2eme formulaire et dc qu'il doit effectuer tel action ????

[Pierre Fauconnier]

Bonsoir

L'argument OpenArgs permet cela

Comme code pour le clic sur les boutons des formulaires appelants

Code :

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

1
2
3
4
 
Private Sub Commande0_Click()
    DoCmd.OpenForm FormName:="formulaire3", OpenArgs:=Me.Name
End Sub

Puis gestion de l'évènement Open pour le formulaire appelé

Code :

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

1
2
3
4
 
Private Sub Form_Open(Cancel As Integer)
    If Not IsNull(OpenArgs) Then MsgBox "J'ai été ouvert par " & OpenArgs
End Sub

Tu peux bien entendu utiliser une variable qui reçoit l'openargs.

Si tu dois passer plusieurs paramètres à l'ouverture, tu peux passer un paramètre du style

Code :

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

DoCmd.OpenForm FormName:="formulaire3", OpenArgs:="Valeur1;Valeur2"

Et utiliser Split dans l'évènement d'ouverture

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Open(Cancel As Integer)
    If Not IsNull(OpenArgs) Then 
        Par1=split(openargs,";")(0)
        Par2=split(openargs,";")(1)
    end if
End Sub

Par1 et Par2 étant des contrôles ou des variables...

Ok?

[titeZ]

Oui merci je n'ai pas bien saisi la notion du valeur 1Valeur 2... et du split si tu pouvais m'expliquer davantage ce serait gentil
en tout cas mon pb est resolu car

en faite j'avais besoin d'un

If OpenArgs="formulaire1" then.... Else.....
et tt fonctionne