Discussion :

[samlepiratepaddy]

Slt,
encore un bug que j'ai jamais eu !!!

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub DatevirtuelRdv_AfterUpdate()
If ((Me.SommeDesValeurs) <= 4) Then
Me.EtatRdv = "Veille"
End If
If ((Me.SommeDesValeurs) > 4) Then
Me.EtatRdv = "Brut"
End If
Me.EtatRdv.Requery
 
End Sub

Voilà le code dans l'intégralité qui ne fonction que si je "valide deux fois les données dans la liste ????
Pas du premier coup???
Pourquoi???
Quelqu'un a une idée??

[xmarabout]

ne ferais-tu pas un simple "else" ?

Code :

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

1
2
3
4
5
6
7
8
Private Sub DatevirtuelRdv_AfterUpdate() 
If ((Me.SommeDesValeurs) <= 4) Then 
Me.EtatRdv = "Veille" 
else
Me.EtatRdv = "Brut" 
End If 
Me.EtatRdv.Requery 
End Sub

ce qui éviterait de faire passer pas 2 process...

[samlepiratepaddy]

Oup's
Merci rectifié, mais toujours le même problème le champs qui récèptionne la valeur ne se met à jour qu'après la répétition de saisie ???
ça m'énerve

[Arkham46]

Salut,

Et ton me.sommedesvaleurs c'est quoi?
J'ai l'impression que cette somme n'est pas recalculée de suite.
Peu-être avec avec un requery de ce champ en début de code?

[samlepiratepaddy]

Slt,

Code :

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

=RechDom("Sum([ValeurPourCalculBrutVeille])";"R_ValeurBrutVeilleDeuxSemaineSuivante";"[Date]>=[DateCréationRdv]  and  [Date]<= [DateVirtuelRdv]")

Le code n'est peut etre pas très propre, mais c'est le seul que j'ai réussi a faire fonctionner !
Mais il se calcul très vite mais tu a s raison peut etre aprèsle requery !
Pourtant j'avais aussi placé un requery sur modification de données de ce champ au cas ou mais même effet !!
J'ai palier au problème de suite en ckiquant sur un bouton car la double saisi n'est necessaire que si on tape plusieurs valeurs différentes sur les dates (création, virtuel) succéssivement... mais a l'ouverture du form quand tout est "vierge" ça marche !!! ????
j'y comprend rien a ce requery???

[samlepiratepaddy]

Oup's

Code :

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

1
2
3
Private Sub SommeDesValeurs_Change()
Me.EtatRdv.Requery
End Sub

mais j'ai essayé plein d'endroit mais pariel...
j'opte sur le resultat calcul trop tard par rapport au requery, maintenant que tu m'y fait penser !!!

[Trini]

Salut Sam,

Comme le dit Arkham46 y'a un doute sur la mise à jour de SommedesValeurs.
As tu essayé de placer le requery avant le test ?

Code :

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

1
2
3
4
5
 
Private Sub DatevirtuelRdv_AfterUpdate()
Me.SommeDesValeurs.requery
If ((Me.SommeDesValeurs) <= 4) Then 
...

Vois pas autre chose
Salut,

[samlepiratepaddy]

B'soir Trini
Ben tu sais quoi ......
t'a tapé dans le mille !!!
Encore une fois !!!
Chapeau !
J'aurai jamais pensé a le mettre avant !!!
Je vais pouvoir virer ce bouton moche!!!
Merci encore !!