Repost : requery dans sousform

Bonjour,

essaye ça... Trouvé sur access.developpez.com

Dans un module, colle la fonction suivante.

sub subRefreshLists(ByRef oForm As Form)
Dim oControl As Control

For Each oControl In oForm.Controls
Select Case oControl.ControlType
Case acListBox,acComboBox
oControl.Requery
Case acSubform
subRefreshLists oControl.Form
End Select
Next oControl
End Sub

Et dans ton formulaire, tu appelles la fonction de cette façon là.

subRefreshLists Me

Bonjour,

J'ai un form "frmdonnees" contenant un sous form "sfrmdonnees" m'affichant
des articles disponibles à la vente que j'assigne au fur et à mesure des
ventes dans le champ "pneu", ma requete de sélection de pneus libres
"rqpneudispo" fonctionne puisque si je ferme le form et que je le réouvre
les articles vendus ne sont plus disponibles..

Je voudrais que lorsque je choisis un article dans la liste des articles
dispo il soit automatiquement enlevé des articles dispos.

J'ai essayé de mettre un bout de code dans la after update du champ :

Private Sub pneu_AfterUpdate()
Me.sfrmdonnees.Requery
End Sub

Evidemment ca ne marche pas...

Merci de votre aide

--
Email contact

http://cerbermail.com/?ltQ8eCFmRa

Bonjour,

essaye cela:

mettre une Procédure événementielle sur le formulaire "frmdonnees": Après
MAJ
dans VBA mettre le code suivant:

Private Sub Form_AfterUpdate()
Me.sfrmdonnees.Requery
End Sub

parce que sur l'événement pneu_AfterUpdate(), l'enregistrement n'est pas
encore enregistré dans la table, donc pas pris en compte par la requête
ce qui explique pourquoi quand tu ferme le formulaire et que tu l'ouvre
de
nouveau le sous-formulaire est à jour.



"Txl" <Txl@txl.com> a écrit dans le message de news:
op.tgs8caz9284jx6@acer...

Bonjour,

J'ai un form "frmdonnees" contenant un sous form "sfrmdonnees"
m'affichant
des articles disponibles à la vente que j'assigne au fur et à mesure des
ventes dans le champ "pneu", ma requete de sélection de pneus libres
"rqpneudispo" fonctionne puisque si je ferme le form et que je le
réouvre
les articles vendus ne sont plus disponibles..

Je voudrais que lorsque je choisis un article dans la liste des articles
dispo il soit automatiquement enlevé des articles dispos.

J'ai essayé de mettre un bout de code dans la after update du champ :

Private Sub pneu_AfterUpdate()
Me.sfrmdonnees.Requery
End Sub

Evidemment ca ne marche pas...

Merci de votre aide

--
Email contact

http://cerbermail.com/?ltQ8eCFmRa

bonjour,

reprenons si le champs pneu se trouve dans le sous formulaire taper dans
le
code suivant dans le sous formulaire:

Private Sub Form_AfterUpdate()
Me.Requery
End Sub

si le champs pneu se trouve dans le fomulaire principale il faut taper le
code suivant dans le formulaire principale:

Private Sub Form_AfterUpdate()
Me.sfrmdonnees.Requery
End Sub

Bonjour,

essaye cela:

mettre une Procédure événementielle sur le formulaire "frmdonnees": Après
MAJ
dans VBA mettre le code suivant:

Private Sub Form_AfterUpdate()
Me.sfrmdonnees.Requery
End Sub

parce que sur l'événement pneu_AfterUpdate(), l'enregistrement n'est pas
encore enregistré dans la table, donc pas pris en compte par la requête
ce qui explique pourquoi quand tu ferme le formulaire et que tu l'ouvre de
nouveau le sous-formulaire est à jour.



"Txl" <Txl@txl.com> a écrit dans le message de news:
op.tgs8caz9284jx6@acer...

Bonjour,

J'ai un form "frmdonnees" contenant un sous form "sfrmdonnees"
m'affichant des articles disponibles à la vente que j'assigne au fur et à
mesure des ventes dans le champ "pneu", ma requete de sélection de pneus
libres "rqpneudispo" fonctionne puisque si je ferme le form et que je le
réouvre les articles vendus ne sont plus disponibles..

Je voudrais que lorsque je choisis un article dans la liste des articles
dispo il soit automatiquement enlevé des articles dispos.

J'ai essayé de mettre un bout de code dans la after update du champ :

Private Sub pneu_AfterUpdate()
Me.sfrmdonnees.Requery
End Sub

Evidemment ca ne marche pas...

Merci de votre aide

--
Email contact

http://cerbermail.com/?ltQ8eCFmRa

Bonjour,

mon champ "pneudonnees" se trouve dans le SOUSFORM "sfrmdonnees" qui fait
partie du form "frmsession" (oui je sais j'aurais du appeler le sousform
"sfrmsession" :-) )

La requete "rqpneudispo" est mise en source de données du SOUSFORM (et pas
du form)

Et pourtant ca ne marche toujours pas.

Est-ce que je peux mailer ma base (850Ko non zippée) ? parce que la je ne
vois vraiment pas d'autre solution...

Merci d'avance

Pour m'indiquer vos adresses mails vous pouvez me contacter en cliquant
sur le lien en bas de ce message chez cerbermail.

bonjour,

reprenons si le champs pneu se trouve dans le sous formulaire taper dans
le
code suivant dans le sous formulaire:

Private Sub Form_AfterUpdate()
Me.Requery
End Sub

si le champs pneu se trouve dans le fomulaire principale il faut taper le
code suivant dans le formulaire principale:

Private Sub Form_AfterUpdate()
Me.sfrmdonnees.Requery
End Sub

--
Email contact

http://cerbermail.com/?ltQ8eCFmRa

Bonjour,

mon champ "pneudonnees" se trouve dans le SOUSFORM "sfrmdonnees" qui fait
partie du form "frmsession" (oui je sais j'aurais du appeler le sousform
"sfrmsession" :-) )

La requete "rqpneudispo" est mise en source de données du SOUSFORM (et pas
du form)

Et pourtant ca ne marche toujours pas.

Est-ce que je peux mailer ma base (850Ko non zippée) ? parce que la je ne
vois vraiment pas d'autre solution...

Merci d'avance

Pour m'indiquer vos adresses mails vous pouvez me contacter en cliquant
sur le lien en bas de ce message chez cerbermail.

bonjour,

reprenons si le champs pneu se trouve dans le sous formulaire taper dans
le
code suivant dans le sous formulaire:

Private Sub Form_AfterUpdate()
Me.Requery
End Sub

si le champs pneu se trouve dans le fomulaire principale il faut taper le
code suivant dans le formulaire principale:

Private Sub Form_AfterUpdate()
Me.sfrmdonnees.Requery
End Sub

--
Email contact

http://cerbermail.com/?ltQ8eCFmRa