OVH Cloud OVH Cloud

Probleme d'actualisation

7 réponses
Avatar
yannick
Bonjour,
J’ai une liste déroulante qui me permet de faire un critère de calcul (sur
événement changement).
Si je met un msgbox sur cet événement mon résultat de calcul n’est pas
actualisé malgré les requery
Si je mes un bouton et que j’affiche ce résultat cela fonctionne.

Quelqu’un aurait il une solution ?

Merci pour votre aide.

Yannick

7 réponses

Avatar
3stone
Salut,

"yannick"
| J’ai une liste déroulante qui me permet de faire un critère de calcul (sur
| événement changement).


Non. Il faut placer cela dans l'événement "Après mise à jour" de la liste



| Si je met un msgbox sur cet événement mon résultat de calcul n’est pas
| actualisé malgré les requery
| Si je mes un bouton et que j’affiche ce résultat cela fonctionne.



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
yannick

Bonjour,
J’ai une liste déroulante qui me permet de faire un critère de calcul (sur
événement changement).
Si je met un msgbox sur cet événement mon résultat de calcul n’est pas
actualisé malgré les requery
Si je mes un bouton et que j’affiche ce résultat cela fonctionne.

Quelqu’un aurait il une solution ?

Merci pour votre aide.

Yannick




Une petite precision a noter, lorque je clique sur une valeur de ma liste
deroulante
le resultat de mon msgbox est bon mais si je saisi manuellement dans cette
liste deroulante cela ne fonctionne pas, a part si je mes un autre bouton


Merci

Avatar
yannick
Merci,
mais je le mes sur changement car dans la liste deroulante si je tape G il
va me faire le calcul de tout ce qui commence par G et cela m'interresse
"sans sortir" de cette liste deroulante a moins qu'il ya une autre solution
avec l'événement apres mis a jour sans sortir de cette liste.

J'espere que vous m'avez bien compris
@+

Yannick



Salut,

"yannick"
| J’ai une liste déroulante qui me permet de faire un critère de calcul (sur
| événement changement).


Non. Il faut placer cela dans l'événement "Après mise à jour" de la liste



| Si je met un msgbox sur cet événement mon résultat de calcul n’est pas
| actualisé malgré les requery
| Si je mes un bouton et que j’affiche ce résultat cela fonctionne.



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw




Avatar
Raymond [mvp]
Bonjour.

si tu utilises l'événement Sur changement, il faut récupérer la valeur
provisoire par .Text au lieu de .Value et tu ne peux pas l'indiquer dans un
source contrôle. Il faut refaire les caluls sur le changement de la liste.
exemple:
Private Sub Modifiable1_Change()
Me.Texte2 = Me.Modifiable1.Text * 2
End Sub

le focus restera dans la liste.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Merci,
mais je le mes sur changement car dans la liste deroulante si je tape G il
va me faire le calcul de tout ce qui commence par G et cela m'interresse
"sans sortir" de cette liste deroulante a moins qu'il ya une autre
solution
avec l'événement apres mis a jour sans sortir de cette liste.

J'espere que vous m'avez bien compris
@+

Yannick



Salut,

"yannick"
| J'ai une liste déroulante qui me permet de faire un critère de calcul
(sur
| événement changement).


Non. Il faut placer cela dans l'événement "Après mise à jour" de la
liste



| Si je met un msgbox sur cet événement mon résultat de calcul n'est pas
| actualisé malgré les requery
| Si je mes un bouton et que j'affiche ce résultat cela fonctionne.



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw






Avatar
yannick
Excuses moi mais je n'ai pas tous compris,
voici mon code :

Private Sub TBrechercheRS_Change()
Dim curX As Currency
curX = Nz(DSum("[tpsinter]", "appel", "[RS] like '" & TBrechercheRS.Value &
"*' "), 0)

Totaltps.Value = curX
End Sub
Totaltps est ma zone de texte resultat.
mais mon Totaltps n'est pas actualisé.

Merci pour ton aide.

@+

Yannick







Bonjour.

si tu utilises l'événement Sur changement, il faut récupérer la valeur
provisoire par .Text au lieu de .Value et tu ne peux pas l'indiquer dans un
source contrôle. Il faut refaire les caluls sur le changement de la liste.
exemple:
Private Sub Modifiable1_Change()
Me.Texte2 = Me.Modifiable1.Text * 2
End Sub

le focus restera dans la liste.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Merci,
mais je le mes sur changement car dans la liste deroulante si je tape G il
va me faire le calcul de tout ce qui commence par G et cela m'interresse
"sans sortir" de cette liste deroulante a moins qu'il ya une autre
solution
avec l'événement apres mis a jour sans sortir de cette liste.

J'espere que vous m'avez bien compris
@+

Yannick



Salut,

"yannick"
| J'ai une liste déroulante qui me permet de faire un critère de calcul
(sur
| événement changement).


Non. Il faut placer cela dans l'événement "Après mise à jour" de la
liste



| Si je met un msgbox sur cet événement mon résultat de calcul n'est pas
| actualisé malgré les requery
| Si je mes un bouton et que j'affiche ce résultat cela fonctionne.



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw











Avatar
Raymond [mvp]
Comme je te l'avais dit, chnager value en text dans l'événement Change
curX = Nz(DSum("[tpsinter]", "appel", "[RS] like '" & TBrechercheRS.Text &
"*' "), 0)

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Excuses moi mais je n'ai pas tous compris,
voici mon code :

Private Sub TBrechercheRS_Change()
Dim curX As Currency
curX = Nz(DSum("[tpsinter]", "appel", "[RS] like '" & TBrechercheRS.Value
&
"*' "), 0)

Totaltps.Value = curX
End Sub
Totaltps est ma zone de texte resultat.
mais mon Totaltps n'est pas actualisé.

Merci pour ton aide.

@+

Yannick


Avatar
yannick
Quel idiot je me suis aperçu de cela une fois mon post envoyé
Excuses moi de nouveau
je te remercie de m'avoir aiguiller.

Bonne soirée
@+
Yannick



Comme je te l'avais dit, chnager value en text dans l'événement Change
curX = Nz(DSum("[tpsinter]", "appel", "[RS] like '" & TBrechercheRS.Text &
"*' "), 0)

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Excuses moi mais je n'ai pas tous compris,
voici mon code :

Private Sub TBrechercheRS_Change()
Dim curX As Currency
curX = Nz(DSum("[tpsinter]", "appel", "[RS] like '" & TBrechercheRS.Value
&
"*' "), 0)

Totaltps.Value = curX
End Sub
Totaltps est ma zone de texte resultat.
mais mon Totaltps n'est pas actualisé.

Merci pour ton aide.

@+

Yannick