Discussion :

[blamaix]

Bonjour à tous,

Je souhaiterais connaitre le code VBA pour effectuer l'action suivante :
J'ai un formulaire COMMANDES en mode affichage continu qui m'affiche une liste de commandes dans laquelle chaque enregistrement est identifié par le champ Code_Commande. Dans ce formulaire en mode continu j'ai créé un bouton dans la section détail (bouton qui s'affiche donc sur chaque ligne d'enregistrement) avec un code VBA qui me permet d'ouvrir un formulaire LIVRAISONS en mode affichage formulaire unique sur l'enregistrement correspondant au Code_Commande de l'enregistrement sélectionné dans le formulaire COMMANDES. Le code VBA associé au clic du bouton permet également la fermeture du formulaire COMMANDES une fois le formulaire LIVRAISONS ouvert. Mais une fois que j'ai saisi les informations que je souhaite dans le formulaire LIVRAISONS je souhaite fermer celui-ci et ré ouvrir le formulaire COMMANDES (toujours en mode continu) et atteindre l'enregistrement correspondant au Code_Commande de départ. Et là je bloque... Alors si vous pouviez m'aider je vous en serais infiniment reconnaissant ! Et désolé si je ne suis pas très clair.

[Robert1957]

Bonjour blamaix,

Si je comprend bien ce que tu veux faire, ne serait-il pas plus facile de juste mettre ton formulaire COMMANDES invisible en cliquant sur ton bouton et sur fermeture de ton formulaire LIVRAISONS remettre le formulaire COMMANDES visible.

Le code sur ton bouton dans le formulaire COMMANDES :

Code :

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

Me.Visible = False

Puis sur l'événement fermeture du formulaire LIVRAISONS:

Code :

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

Forms!COMMANDES.Visible = True

Bonne journée

[blamaix]

Bonsoir Robert,

Merci pour ton aide. En fait j'ai déjà essayé ce genre de "ruse" en ne fermant pas le formulaire COMMANDES mais cela me pose un problème de mise à jour des enregistrements du formulaire COMMANDES après la saisie d'infos dans le formulaire LIVRAISONS. Et si j'essaie d'actualiser le formulaire COMMANDES après saisies dans le formulaire LIVRAISONS, cela me replace sur le premier enregistrement du formulaire COMMANDES, ce que je veux éviter.

[Robert1957]

Bonjour blamaix,

Ok je comprend ce que tu veux dire. Si je reprend ton premier post voici une solution.

Premièrement lors de l'appel du formulaire LIVRAISONS tu dois saisir le numéro de la commande. Ici je supposes que le champ est ID_Commande à modifier selon ta bd. Donc lors de la fermeture du formulaire LIVRAISONS tu appelles l'ouverture du formulaire COMMANDES avec un OpenArg:

Code :

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

DoCmd.OpenForm "COMMANDES", , , , , , Me.ID_Commande

Puis sur Form_Load de ton formulaire COMMANDES:

Code :

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

1
2
3
4
If Not IsNull(Me.OpenArgs) Then
    Me.RecordsetClone.FindFirst [ID_Commande] = Me.OpenArgs
    Me.Bookmark = Me.RecordsetClone.Bookmark
End If

Ce qui te ramènera sur l'enregistrement désiré. À adapter selon la structure de ton formulaire.

Bonne journée

[blamaix]

Bonsoir Robert,

Merci beaucoup pour tes indications. J'ai essayé de les appliquer mais ça ne fonctionne. Je n'obtiens pas de message d'erreur mais quand mon formulaire COMMANDES se ré ouvre depuis le formulaire LIVRAISONS, le curseur se place sur le premier enregistrement et non pas sur celui d'origine. Voici les codes que j'utilise :

Le code associé au bouton situé dans la section détail de mon formulaire COMMANDES qui me permet d'ouvrir le formulaire LIVRAISONS (sans avoir à saisir le Code Commande que tu appelais ID_COMMANDE dans ton exemple)

Code :

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

1
2
3
 
DoCmd.OpenForm "LIVRAISONS", acNormal, "", "[Livraison coop]![Code Commande]=[Forms]![COMMANDES]![Code Commande]", , acNormal
DoCmd.Close acForm, "COMMANDES"

Le code associé à la fermeture de mon formulaire LIVRAISONS

Code :

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

1
2
 
DoCmd.OpenForm "COMMANDES", , , , , , Me.Code_Commande

Le code associé au chargement de mon formulaire COMMANDES

Code :

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

1
2
3
4
5
 
If Not IsNull(Me.OpenArgs) Then
    Me.RecordsetClone.FindFirst [Code Commande] = Me.OpenArgs
    Me.Bookmark = Me.RecordsetClone.Bookmark
End If

En espérant que cela te permette d'y voir plus clair. Merci encore pour ton aide.

[Robert1957]

Bonjour blamaix,

Désolé j'avais répondu rapidement, juste une question de syntaxe:

Code :

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

1
2
3
4
If Not IsNull(Me.OpenArgs) Then
    Me.RecordsetClone.FindFirst "[Code Commande] =" &  Me.OpenArgs
    Me.Bookmark = Me.RecordsetClone.Bookmark
End If

Ici je suppose que "Code Commande" est numérique. Si ce n'est pas le cas et que c'est texte il faudrait ajouter:

Code :

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

Me.RecordsetClone.FindFirst "[Code Commande] =" & Chr(34) &  Me.OpenArgs & Chr(34)

Bonne journée