Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Repost : requery dans sousform

Repost : requery dans sousform

28 réponses
Avatar
Txl
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
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 3
Avatar
CAIRIS
Si tu essaies :
Private Sub pneu_AfterUpdate()
Me.frmdonnees.sfrmdonnees.Requery
End Sub
est-ce que cela marche ?
--
Catherine


"Txl" wrote:

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



Avatar
Txl
Bonjour,

Je passe par gmail car hors du bureau..

Donc avec le code suivant :

Private Sub pneu_AfterUpdate()
Me.frmdonnees.sfrmdonnees.Requery
Me.vendu = True
End Sub

J'ai une erreur suivante :

Erreur de compilation
Membre de méthode ou de données introuvable


Comme d'habitude l'aide en ligne d'access m'aide beaucoup :-)

Que puis-je faire maintenant ?

Merci




Si tu essaies :
Private Sub pneu_AfterUpdate()
Me.frmdonnees.sfrmdonnees.Requery
End Sub
est-ce que cela marche ?
--
Catherine


"Txl" wrote:

Bonjour,

J'ai un form "frmdonnees" contenant un sous form "sfrmdonnees" m'affich ant
des articles disponibles à la vente que j'assigne au fur et à mesur e 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éo uvre
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





Avatar
ze_titi
Bonour,

Private Sub pneu_AfterUpdate()
sfrmdonnees.Requery
sfrmdonnees.Repaint
Me.repaint
Me.vendu = True
End Sub

L'erreur de compilation se trouve bien sur la ligne de requery ? Tu n'as pas
précisé mais je suppose que c'est là que ça se trouve...

Tiens-nous au courant, stp...

--
Cordialement,

ze_titi

Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ




Bonjour,

Je passe par gmail car hors du bureau..

Donc avec le code suivant :

Private Sub pneu_AfterUpdate()
Me.frmdonnees.sfrmdonnees.Requery
Me.vendu = True
End Sub

J'ai une erreur suivante :

Erreur de compilation
Membre de méthode ou de données introuvable


Comme d'habitude l'aide en ligne d'access m'aide beaucoup :-)

Que puis-je faire maintenant ?

Merci




Si tu essaies :
Private Sub pneu_AfterUpdate()
Me.frmdonnees.sfrmdonnees.Requery
End Sub
est-ce que cela marche ?
--
Catherine


"Txl" wrote:

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









Avatar
Txl
Le Wed, 04 Oct 2006 10:31:02 +0200, <"//www.cerbermail.com/?sj4KuQC4GQ>">
a écrit:

Bonour,

Private Sub pneu_AfterUpdate()
sfrmdonnees.Requery
sfrmdonnees.Repaint
Me.repaint
Me.vendu = True
End Sub

L'erreur de compilation se trouve bien sur la ligne de requery ? Tu n'as
pas
précisé mais je suppose que c'est là que ça se trouve...

Tiens-nous au courant, stp...



Bonjour,

la j'ai un erreur "objet requis" sur la première ligne du code
(sfrmdonnees.requery)

Ouiiin !!!

--
Email contact

http://cerbermail.com/?ltQ8eCFmRa

Avatar
ze_titi
Private Sub pneu_AfterUpdate()
me.sfrmdonnees.Requery
me.sfrmdonnees.Repaint
Me.repaint
Me.vendu = True
End Sub

peut-être...

--
Cordialement,

ze_titi

Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ




Le Wed, 04 Oct 2006 10:31:02 +0200, <"//www.cerbermail.com/?sj4KuQC4GQ>">
a écrit:

Bonour,

Private Sub pneu_AfterUpdate()
sfrmdonnees.Requery
sfrmdonnees.Repaint
Me.repaint
Me.vendu = True
End Sub

L'erreur de compilation se trouve bien sur la ligne de requery ? Tu n'as
pas
précisé mais je suppose que c'est là que ça se trouve...

Tiens-nous au courant, stp...



Bonjour,

la j'ai un erreur "objet requis" sur la première ligne du code
(sfrmdonnees.requery)

Ouiiin !!!

--
Email contact

http://cerbermail.com/?ltQ8eCFmRa




Avatar
Txl
Le Wed, 04 Oct 2006 11:50:01 +0200, <"//www.cerbermail.com/?sj4KuQC4GQ>">
a écrit:

Private Sub pneu_AfterUpdate()
me.sfrmdonnees.Requery
me.sfrmdonnees.Repaint
Me.repaint
Me.vendu = True
End Sub

peut-être...



Alors...

Private Sub pneu_AfterUpdate()
Me.sfrmdonnees.Requery
Me.sfrmdonnees.Repaint
Me.Repaint
Me.vendu = True
End Sub

Me fait "membre de méthode ou de données introuvable"


ENsuite pour le fun j'ai essayé

Private Sub pneu_AfterUpdate()
Me.frmdonnees.sfrmdonnees.Requery
Me.frmdonnees.sfrmdonnees.Repaint
Me.Repaint
Me.vendu = True
End Sub

Et la pas d'erreur mais pas de requery effectuée...

Ensuite on est passés à

Private Sub pneu_AfterUpdate()
Me.Forms.sfrmdonnees.Requery
Me.Forms.sfrmdonnees.Repaint
Me.Repaint
Me.vendu = True
End Sub

Pour le meme résultat (pas d'erreur mais pas de recalcul)

Et pour finir on a tenté :


Private Sub pneu_AfterUpdate()
Me.Forms.frmdonnees.sfrmdonnees.Requery
Me.Forms.frmdonnees.sfrmdonnees.Repaint
Me.Repaint
Me.vendu = True
End Sub

Sans plus de succès.....






--
Email contact

http://cerbermail.com/?ltQ8eCFmRa

Avatar
ze_titi
agaçant...
Et en utilisant Refresh au lieu de Repaint ?
--
Cordialement,

ze_titi

Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ




Le Wed, 04 Oct 2006 11:50:01 +0200, <"//www.cerbermail.com/?sj4KuQC4GQ>">
a écrit:

Private Sub pneu_AfterUpdate()
me.sfrmdonnees.Requery
me.sfrmdonnees.Repaint
Me.repaint
Me.vendu = True
End Sub

peut-être...



Alors...

Private Sub pneu_AfterUpdate()
Me.sfrmdonnees.Requery
Me.sfrmdonnees.Repaint
Me.Repaint
Me.vendu = True
End Sub

Me fait "membre de méthode ou de données introuvable"


ENsuite pour le fun j'ai essayé

Private Sub pneu_AfterUpdate()
Me.frmdonnees.sfrmdonnees.Requery
Me.frmdonnees.sfrmdonnees.Repaint
Me.Repaint
Me.vendu = True
End Sub

Et la pas d'erreur mais pas de requery effectuée...

Ensuite on est passés à

Private Sub pneu_AfterUpdate()
Me.Forms.sfrmdonnees.Requery
Me.Forms.sfrmdonnees.Repaint
Me.Repaint
Me.vendu = True
End Sub

Pour le meme résultat (pas d'erreur mais pas de recalcul)

Et pour finir on a tenté :


Private Sub pneu_AfterUpdate()
Me.Forms.frmdonnees.sfrmdonnees.Requery
Me.Forms.frmdonnees.sfrmdonnees.Repaint
Me.Repaint
Me.vendu = True
End Sub

Sans plus de succès.....






--
Email contact

http://cerbermail.com/?ltQ8eCFmRa




Avatar
Txl
Le Wed, 04 Oct 2006 12:22:01 +0200, <"//www.cerbermail.com/?sj4KuQC4GQ>">
a écrit:

agaçant...
Et en utilisant Refresh au lieu de Repaint ?


Rien de rien...

En fait je n'ai pas d'erreur sur l'action (requery) mais plutot sur la
selection du champ.

J'ai eu une fausse joie en m'apercevant d'une faute de nom de form mais ca
ne donne rien de plus...





--
Email contact

http://cerbermail.com/?ltQ8eCFmRa

Avatar
Txl
Le Wed, 04 Oct 2006 12:22:01 +0200, <"//www.cerbermail.com/?sj4KuQC4GQ>">
a écrit:

agaçant...
Et en utilisant Refresh au lieu de Repaint ?


Rien de rien...

En fait je n'ai pas d'erreur sur l'action (requery) mais plutot sur la
selection du champ.

J'ai eu une fausse joie en m'apercevant d'une faute de nom de form mais ca
ne donne rien de plus...





--
Email contact

http://cerbermail.com/?ltQ8eCFmRa

Avatar
ze_titi
c'est quoi cette erreur dont tu me parles sur la sélection du champ ?

--
Cordialement,

ze_titi

Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ




Le Wed, 04 Oct 2006 12:22:01 +0200, <"//www.cerbermail.com/?sj4KuQC4GQ>">
a écrit:

agaçant...
Et en utilisant Refresh au lieu de Repaint ?


Rien de rien...

En fait je n'ai pas d'erreur sur l'action (requery) mais plutot sur la
selection du champ.

J'ai eu une fausse joie en m'apercevant d'une faute de nom de form mais ca
ne donne rien de plus...





--
Email contact

http://cerbermail.com/?ltQ8eCFmRa




1 2 3