Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Actualiser sous formulaire

Actualiser sous formulaire

14 réponses
Avatar
YLeg
Bonjour,
Mon formulaire posséde 2 sous formulaires (sfrm1 et sfrm2) qui sont basés
sur 2 requétes. Lorsque je saisi dans sfrm1 je souhaiterais que le sfrm2 se
mette à jour. j'ai essayé différentes méthodes requery mais cela ne
fonctionne pas. Quelqu'un peut-il me conseiller?
D'avance merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Gafish
"YLeg" a écrit dans le message de news:

Bonjour,


Bonjour,

Mon formulaire posséde 2 sous formulaires (sfrm1 et sfrm2) qui sont basés
sur 2 requétes. Lorsque je saisi dans sfrm1 je souhaiterais que le sfrm2
se
mette à jour. j'ai essayé différentes méthodes requery mais cela ne
fonctionne pas. Quelqu'un peut-il me conseiller?
D'avance merci


Il faut bien faire un requery, mais vu qu'il s'agit d'un sous form, il faut
taper :
Forms![NomDuFormContenant]![NomDuSousForm].Requery

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
YLeg

"YLeg" a écrit dans le message de news:

Bonjour,


Bonjour,

Mon formulaire posséde 2 sous formulaires (sfrm1 et sfrm2) qui sont basés
sur 2 requétes. Lorsque je saisi dans sfrm1 je souhaiterais que le sfrm2
se
mette à jour. j'ai essayé différentes méthodes requery mais cela ne
fonctionne pas. Quelqu'un peut-il me conseiller?
D'avance merci


Il faut bien faire un requery, mais vu qu'il s'agit d'un sous form, il faut
taper :
Forms![NomDuFormContenant]![NomDuSousForm].Requery

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



OK cela fonctionne. j'ai résolu une partie de mon problème (le cas où je

saisis manuellement). Maintenant j'ai un bouton de commande, qui crée des
enregistrements et dans ce cas le sous formulaire ne se rafraîchit pas.
Quelle instruction dois je mettre?
rappel : la donnée source de mon sous formulaire est une requête


Avatar
Gafish
"YLeg" a écrit dans le message de news:

OK cela fonctionne. j'ai résolu une partie de mon problème (le cas où je
saisis manuellement). Maintenant j'ai un bouton de commande, qui crée des
enregistrements et dans ce cas le sous formulaire ne se rafraîchit pas.
Quelle instruction dois je mettre?
rappel : la donnée source de mon sous formulaire est une requête


A mon avis si tu mets un requery à la fin de l'instruction de ton bouton, ca
devrait marcher non ?

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
YLeg

"YLeg" a écrit dans le message de news:

OK cela fonctionne. j'ai résolu une partie de mon problème (le cas où je
saisis manuellement). Maintenant j'ai un bouton de commande, qui crée des
enregistrements et dans ce cas le sous formulaire ne se rafraîchit pas.
Quelle instruction dois je mettre?
rappel : la donnée source de mon sous formulaire est une requête


A mon avis si tu mets un requery à la fin de l'instruction de ton bouton, ca
devrait marcher non ?

A priori cela ne marche pas.

Ci dessous la structure de la commande qui fonctionne (j'ai effacé une
partie du texte SQL pour ne pas alourdir le post). le requery ajouté sur
l'activate du sous formulaire permet de rafraîchir la suppression (1er SQL)
mais l'ajout (2ème SQL) n'apparaît pas.

Private Sub BtnCalculMOT_Click()
Dim Article As String
Dim SerieCalcul As String
Dim SQL As String

Article = [Forms]![frm - 1 saisie temps]![Code]
SerieCalcul = [Forms]![frm - 1 saisie temps]![ListeSérie]

SQL = "DELETE * " & _
"FROM [Temps (Détail)] " & _
"WHERE etc...
DoCmd.RunSQL SQL

SQL = "INSERT INTO [Temps (Détail)] ( Rang, Code, Série ) " & _
"SELECT ""988"" AS Exp1, [Temps (Détail)].Code, [Temps
(Détail)].Série "
"FROM etc...
"HAVING etc...
DoCmd.RunSQL SQL

End Sub


Avatar
Gafish
"YLeg" a écrit dans le message de news:

Ci dessous la structure de la commande qui fonctionne (j'ai effacé une
partie du texte SQL pour ne pas alourdir le post). le requery ajouté sur
l'activate du sous formulaire permet de rafraîchir la suppression (1er
SQL)
mais l'ajout (2ème SQL) n'apparaît pas.

Private Sub BtnCalculMOT_Click()
........
End Sub


Et si tu mets ton requery juste avant le End Sud ci dessus ?

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
YLeg

"YLeg" a écrit dans le message de news:

Ci dessous la structure de la commande qui fonctionne (j'ai effacé une
partie du texte SQL pour ne pas alourdir le post). le requery ajouté sur
l'activate du sous formulaire permet de rafraîchir la suppression (1er
SQL)
mais l'ajout (2ème SQL) n'apparaît pas.

Private Sub BtnCalculMOT_Click()
........
End Sub


Et si tu mets ton requery juste avant le End Sud ci dessus ?

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Non cela ne fonctionne pas.

A priori c'est la requête qui sert de source de données au formulaire qui ne
s'actualise pas. Comment peut-on la mettre à jour ?


Avatar
Gafish
YLeg wrote:
Non cela ne fonctionne pas.
A priori c'est la requête qui sert de source de données au formulaire
qui ne s'actualise pas. Comment peut-on la mettre à jour ?


Justement, avec un requery. Le requery permet de relancer la requête source
d'un objet.
Mets ton code complet, qu'on voit ce qui peut clocher.


Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
YLeg

YLeg wrote:
Non cela ne fonctionne pas.
A priori c'est la requête qui sert de source de données au formulaire
qui ne s'actualise pas. Comment peut-on la mettre à jour ?


Justement, avec un requery. Le requery permet de relancer la requête source
d'un objet.
Mets ton code complet, qu'on voit ce qui peut clocher.


Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



J'ai ajouté avant le end sub l'instruction requery :

Forms![formulaire]![sous formulaire].Requery
Cela met à jour le formulaire pour la 1ère instruction SQL qui supprime des
enregistrements mais la mise à jour n'opére pas pour l'instruction SQL qui
ajoute des enregistrements dans la table


Avatar
Gafish
YLeg wrote:
J'ai ajouté avant le end sub l'instruction requery :
Forms![formulaire]![sous formulaire].Requery
Cela met à jour le formulaire pour la 1ère instruction SQL qui
supprime des enregistrements mais la mise à jour n'opére pas pour
l'instruction SQL qui ajoute des enregistrements dans la table


En théorie ca devrait fonctionner, mets ton code complet qu'on puisse voir
ou il pourrait y avoir un souci.

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
YLeg

YLeg wrote:
J'ai ajouté avant le end sub l'instruction requery :
Forms![formulaire]![sous formulaire].Requery
Cela met à jour le formulaire pour la 1ère instruction SQL qui
supprime des enregistrements mais la mise à jour n'opére pas pour
l'instruction SQL qui ajoute des enregistrements dans la table


En théorie ca devrait fonctionner, mets ton code complet qu'on puisse voir
ou il pourrait y avoir un souci.

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr


Private Sub BtnCalculMOT_Click()
Dim Article As String

Dim SerieCalcul As String
Dim SQL As String

Article = [Forms]![frm - 1 saisie temps]![Code]
SerieCalcul = [Forms]![frm - 1 saisie temps]![ListeSérie]

SQL = "DELETE * " & _
"FROM [Temps (Détail)] " & _
"WHERE ((([Temps (Détail)].Code)=""" & Article & """) AND " & _
"(([Temps (Détail)].Série)=""" & SerieCalcul & """) AND " & _
"(([Temps (Détail)].Operation)));"
DoCmd.RunSQL SQL

SQL = "INSERT INTO [Temps (Détail)] ( Rang, Code, Série, [Poste Charge],
Operation, [Tps MO], DateDeb, DateFin, [Type Tps], Valide ) " & _
"SELECT ""988"" AS Exp1, [Temps (Détail)].Code, [Temps
(Détail)].Série, " & _
"[Temps (Détail)].[Poste Charge], 14 AS Exp2, Round(Sum([Tps
MO]*[txmot]),3) AS Exp5, " & _
"Now() AS Exp3, #12/31/2050# AS Exp4, ""E"" AS Exp6, -1 AS Exp7
" & _
"FROM [Temps (Détail)] LEFT JOIN [Coef PDC] ON ([Temps
(Détail)].Série = [Coef PDC].Série) " & _
"AND ([Temps (Détail)].[Poste Charge] = [Coef PDC].PDC) " & _
"GROUP BY ""988"", [Temps (Détail)].Code, [Temps (Détail)].Série,
[Temps (Détail)].[Poste Charge], " & _
"14, Now(), #12/31/2050#, ""E"", -1 " & _
"HAVING ((([Temps (Détail)].Code)=""" & Article & """) AND (([Temps
(Détail)].Série)=""" & SerieCalcul & """));"
DoCmd.RunSQL SQL

Forms![frm - 1 saisie temps]![frm - 1 saisie temps sfrm].Requery


1 2