Discussion :

[John Parker]

Bonjour à tous,

Cela fait de nombreuses heures que je bloque sur un problème qui devrait être tout bête.

J’ai un formulaire principal « Menu » contenant un sous formulaire « ResteFiltre » basé sur le résultat d’une requête « recherche ».

Lorsque je fais un double clic sur mon sous formulaire « ResteFiltre », j’ai un autre formulaire « Reservation » qui s’ouvre .

Ce formulaire réservation me permet de saisir une quantité à réserver et d’imprimer une étiquette, il est donc lié à la requête « recherche » également . J’ai donc créé un bouton « Etiquette » dans ce formulaire contenant ce code

Code :

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

1
2
3
4
5
6
7
8
Private Sub PrintEtiquette_Click()
 
DoCmd.Save
Forms![Menu]![ResteFiltre].Form.Requery
DoCmd.OpenReport "Etiquette", acViewNormal
DoCmd.Close acForm, "Reservation"
 
End Sub

Normalement la quantité affichée sur le sous formulaire « ResteFiltre » devrait se mettre à jour mais ce n’est pas le cas. Ça fonctionne très bien si j’actualise tout avec le bouton du ruban par contre mon code ne permet pas de le rafraichir.

J’ai essayé avec Me.Refresh mais aucun résultat non plus.

Je sèche complètement et j'ai besoin de votre aide.

Merci d’avance

[tee_grandbois]

bonjour,
Forms![Menu]![ResteFiltre].Form.Requery est pourtant la bonne commande pour actualiser les données...
Il faudrait en savoir un peu plus, par exemple: les données de la requête recherche est-elle mise à jour ou est-ce simplement un filtre appliqué ? car dans ce dernier cas, le formulaire Reservation ne pourra pas appliquer ce filtre.

[John Parker]

Merci pour ta rapide réponse.

Cette requête est juste un filtre appliqué.

Il faut donc mettre à jour la requête avant tu penses?

Ce qui est étrange c'est que si j'ouvre la requête "à la main" j'ai le bon résultat affiché dans ma requête, mais toujours pas dans le formulaire

[tee_grandbois]

Il faut donc mettre à jour la requête avant tu penses?

Si tu appliques une filtre sur la requête, cela ne changera rien d'enregistrer la requête car le sous-formulaire étant chargé, on a vu que le Requery ne fonctionne pas, d'autant plus que le formulaire Reservation affiche bien les bonnes données.
Essaie ce code à la place du Requery, cela force la requête à se recharger après les changements:

Code :

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

Forms![Menu]![ResteFiltre].Form.RecordSource = Forms![Menu]![ResteFiltre].Form.RecordSource

[John Parker]

Si tu appliques une filtre sur la requête, cela ne changera rien d'enregistrer la requête car le sous-formulaire étant chargé, on a vu que le Requery ne fonctionne pas, d'autant plus que le formulaire Reservation affiche bien les bonnes données.
Essaie ce code à la place du Requery, cela force la requête à se recharger après les changements:

Code :

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

Forms![Menu]![ResteFiltre].Form.RecordSource = Forms![Menu]![ResteFiltre].Form.RecordSource

J'ai rajouté ta ligne de code et remis Me.refresh

Code :

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

1
2
3
4
5
6
DoCmd.Save
DoCmd.OpenQuery "ResteFiltre", , acReadOnly
Forms![Menu]![ResteFiltre].Form.RecordSource = Forms![Menu]![ResteFiltre].Form.RecordSource
Me.Refresh
DoCmd.OpenReport "Etiquette", acViewNormal
DoCmd.Close acForm, "Reservation"

Il y a du mieux mais ce n'est pas encore ça.
Désormais, lorsque mon formulaire "Reservation" se ferme, je n'ai pas le sous-formulaire "ResteFiltre" qui s'actualise. Par contre si j'ouvre à nouveau le formulaire "Reservation" que je refais un mouvement ce qui le ferme à nouveau, là mon formulaire "ResteFiltre" s'actualise mais avec l'avant dernier mouvement réalisé.

Ce n'est pas encore ça mais c'est déjà mieux

[hyperion13]

Salut
Possible d'avoir une capture d'écran de tes form et sform ?

[John Parker]

Oui bien sûr.

Voici une capture d'écran en mode création.

Pour information le formulaire "Reservation" s'ouvre en pop-up

[hyperion13]

Tu peux essayer

Code :

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

1
2
3
4
5
6
Private Sub PrintEtiquette_Click()
If Me.Dirty = True Then Me.Dirty = False
Forms![Menu]![ResteFiltre].Form.Requery
DoCmd.OpenReport "Etiquette", acViewNormal
DoCmd.Close acForm, "Reservation", acSaveYes
End Sub

[John Parker]

Tu peux essayer

Code :

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

1
2
3
4
5
6
Private Sub PrintEtiquette_Click()
If Me.Dirty = True Then Me.Dirty = False
Forms![Menu]![ResteFiltre].Form.Requery
DoCmd.OpenReport "Etiquette", acViewNormal
DoCmd.Close acForm, "Reservation", acSaveYes
End Sub

Je ne sais pas comment tu as fais mais ça fonctionne!

J'imagine que cela vient de

Code :

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

If Me.Dirty = True Then Me.Dirty = False

Pourrais-tu m'expliquer ce code?

Merci

[hyperion13]

Me.Dirty est une propriété de form qui permet de détecter une modification de données dans le form.
La contribution Ms est ici.

A priori ta sub ne détectait pas les modifications dans ton pop-up.
La solution, il y en a peut-être d'autres, était de forcer la détection des modifs dans ton pop-up.
Je ne connais que Me.Dirty

Code :

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

1
2
3
4
5
6
7
8
Private Sub PrintEtiquette_Click()
If Me.Dirty = True Then
    Forms![Menu]![ResteFiltre].Form.Requery
    Me.Dirty = False
End If
DoCmd.OpenReport "Etiquette", acViewNormal
DoCmd.Close acForm, "Reservation", acSaveYes
End Sub

[John Parker]

Je ne connais que Me.Dirty

Et c'est suffisant

Un grand merci à toi en tout cas. Je commençais à devenir fou !