Discussion :

[Shades]

Bonjour,

A la suite de cette discussion

Est il possible de faire la même chose avec des sous form multiple ? tel que :

Code :

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

1
2
3
4
5
Private Sub Form_Close()
Forms("FmAccueil").Controls("SFmMvtVue").Form.Requery
Forms("FmAccueil").Controls("SFmTotalStock").Form.Requery
Forms("FmAccueil").Controls("SFmEntree").Form.Requery
End Sub

[tee_grandbois]

Bonsoir,
je dirais qu'il suffit d'essayer pour avoir la réponse ...

[Shades]

Bonjour tee_grandbois,

LOL Bien justement c'est parce que j'ai essayé que je post la question ici aussi Et donc ça ne marche pas, donc je repose la question autrement.


Comment dois-je faire pour rafraichir plusieurs sous form ?

[tee_grandbois]

Bonjour,
peux-tu nous dire :
- quel message d'erreur as-tu ?
- tes requery sont sur l'événement close d'un formulaire, quel est ce formulaire ?

[Shades]

Bonjour tee_grandbois,

Il me donne une erreur d’exécution et me dit qu'il ne trouve pas le formulaire "FmAccueil" ?!?

Mon Formulaire est bien "FmAccueil"
Et mes sous formulaires sont "SFmEntree" / "SFmMvtVue" / "SFmTotalStock"

Et l'action pour rafraichir se trouves dans divers formulaires dont "FmMvt

Cordialement,
Sylvain

[Domi2]

Bonjour,

Le problème, déjà, c'est que tu ne réponds pas à la question de tee_grandbois.

Je présume cependant que tu essaies d'exécuter ton code à la fermeture d'un autre formulaire que "FmAccueil".

Ce dernier est-il ouvert quand tu essaies d'exécuter ton code ?

De plus, la syntaxe est :

Code :

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

Forms.NomForm.NomSousForm.Form.Requery

Domi2

[Shades]

Bonjour Domi2,

Je viens de modifier ma réponse dans ce sens

Oui le formulaire est bien ouvert qd j’exécute la commande.

cordialement,
Sylvain

[Domi2]

J'avais édité dans l'intervalle.

[Edit]De plus, la syntaxe est :

Code :

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

Forms.NomForm.NomSousForm.Form.Requery

Domi2

[Shades]

Domi2,

Comme ça ???

Code :

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

1
2
3
4
5
Private Sub Form_Close()
Forms("FmAccueil").("SFmMvtVue").Form.Requery
Forms("FmAccueil").("SFmTotalStock").Form.Requery
Forms("FmAccueil").("SFmEntree").Form.Requery
End Sub

Ou

Code :

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

1
2
3
4
5
Private Sub Form_Close()
Forms("FmAccueil"."SFmMvtVue").Form.Requery
Forms("FmAccueil"."SFmTotalStock").Form.Requery
Forms("FmAccueil"."SFmEntree").Form.Requery
End Sub

Ou encore

Code :

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

1
2
3
4
5
Private Sub Form_Close()
Forms("FmAccueil.SFmMvtVue").Form.Requery
Forms("FmAccueil.SFmTotalStock").Form.Requery
Forms("FmAccueil.SFmEntree").Form.Requery
End Sub

Voire

Code :

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

1
2
3
4
5
Private Sub Form_Close()
Forms("FmAccueil!SFmMvtVue").Form.Requery
Forms("FmAccueil!SFmTotalStock").Form.Requery
Forms("FmAccueil!SFmEntree").Form.Requery
End Sub

Parce que si c'est ça ça a l'air pire tout ce met en rouge sans fonctionner ou ça donne de nouvelles erreurs

Comme tu vois c'est pas faute d'essayer de multiples solutions.

Cordialement,
Sylvain

[Domi2]

Re,

Ceci, "SFmMvtVue", c'est le nom de ton sous-formulaire tel que tu le vois dans la fenêtre de base de données, n'est-ce-pas ?

Comment s'appelle le contrôle qui contient ce sous-formulaire dans ton formulaire "FmAccueil" (à voir en mode Création de ton formulaire).

Domi2

[Shades]

J'ai contourné ce soucis en passant par un "En réception focus"

Mais pour répondre à ta question : SFmMvtVue est le nom donné au Formulaire sous formulaire "FmMvtVue"

J'avais essayé aussi d'écrire dans la syntaxe :

Code :

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

1
2
3
Forms("FmAccueil").Controls("FmMvtVue").Form.Requery
Forms("FmAccueil").Controls("FmTotalStock").Form.Requery
Forms("FmAccueil").Controls("FmEntree").Form.Requery

Mais rien n'y faisait. Si tu a une idée du pourquoi la prochaine fois que je rencontre le soucis je saurais

Cordialement,
Sylvain

[Shades]

J'ai pas vraiment réussis à trouver comment faire un refresh proprement, j'ai contourné avec une solution de facilité, du moins en attendant que je trouves qq ch de plus orthodoxe : Je ferme et j'ouvre le formulaire base

Code :

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

1
2
3
4
Application.Echo False
DoCmd.Close acForm, "FmAccueil"
DoCmd.OpenForm "FmAccueil"
Application.Echo True

Ce qui fait que le formulaire reprends les nouvelles valeurs en s'ouvrant à nouveau.