Discussion :

[Melodie.Durei]

Bonjour,
Je me permets de vous consulter car je rencontre un léger problème dans la création de ma base de données sous access. En effet, dans mon cas, j’ai un formulaire « Entretien » qui me permet d’ouvrir via un bouton un autre formulaire « Equipement » qui permet une saisie. Mon problème est que lorsque j’ouvre l’autre formulaire (Equipement) j’aimerai qu’il garde en mémoire la valeur du numéro d’entretien contenu dans le premier formulaire afin de remplir le second automatiquement. Je ne sais pas si je suis claire, je ne suis pas experte en Access…
Je vous remercie par avance, j’essaie de joindre l’image de mes tables pour que vous vous fassiez une idée.

[ClaudeLELOUP]

Bonjour et bienvenue parmi nous,

Intéresse-toi à la propriété openArgs du formulaire à ouvrir.

Lorsque tu demandes l'ouverture, passe "numéro d’entretien" comme dernier argument.
Dans l'événement d'ouverture du second, tu te positionnes sur l'enregistrement qui contient la valeur ad hoc.

je ne suis pas experte en Access…

Reviens si mon explication n'est pas claire pour toi.

[Melodie.Durei]

Merci pour cette réponse rapide,

mon code d'ouverture est le suivant:

Code :

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

1
2
3
4
5
6
 Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "F_equipcollect"
    stLinkCriteria = "[entretien_num]=" & Me![entretien_num]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Malgré cela, je n'arrive point à avancer... je continue la recherche sur OpenArgs j’espère vite trouver ...

Merci

[ClaudeLELOUP]

Vois l'exemple en annexe.

Ouvre le formulaire1 et choisis une appellation => le formulaire fVins s'ouvre à la bonne page.

Le code qui déclenche l'ouverture :

Code :

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

1
2
3
Private Sub cboDenomination_AfterUpdate()
DoCmd.OpenForm "fVins", , , , , , Me.cboDenomination
End Sub

Le code à l'ouverture de fVins :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
   DoCmd.GoToControl "txtDENOMINATION"  'tu mets le curseur sur le champ qui est censé contenir la valeur
   DoCmd.FindRecord Me.OpenArgs
End If
End Sub

[Melodie.Durei]

Merci beaucoup pour l'exemple, je vais lancer un test...
Merci

Cela fonctionne ... Merci
Bonne continuation

[georgy.bf]

Bonsoir. Je souhaitterai garder en mémoire l'enregistrement d'un champ dans le formulaire de sorte que lorsque tu fini d'enregistrer un produit dans le formulaire, en voulant enregistrer le deuxième produit, qu'il garde le nom du produit et me permettre de juste changer la valeur du stock