Utiliser le résultat de SELECT Sum dans If

**samlepiratepaddy** · 14/11/2005, 13h27

Slt,
J'ai deux requetes:
Une qui recherche des valeurs selon une date selectionnée dans le formulaire et la date()
et l'autre qui somme c'est valeur !

Ma question est comment je peux utiliser le résultat de la deuxième pour l'imbriquer dans la fonction IF??
J'ai essayé ça mais c'est pas au point

Ici je reproduis la deuxième requete qui utilise la première pour faire la somme et tenter d'utiliser le résultat sur le IF

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub DateRdv_AfterUpdate()
Dim CalculEtat As String
CalculEtat = "SELECT Sum(R_RegroupeValeurEntreDate.ValeurPourCalculBrutVeille) AS SommeDeValeurPourCalculBrutVeille FROM R_RegroupeValeurEntreDate;"
Set CalculEtat = db.OpenRecordset(CalculEtat, dbOpenForwardOnly, dbReadOnly)
If (CalculEtat <= 4) Then
Me.EtatRdv = "Veille"
Else
Me.EtatRdv = "Brut"
End If
End Sub

A l'execution j'ai :

Objet requis sur

Set CalculEtat

J'ai essayé de m'aider de ça http://access.developpez.com/faq/?page=SQL#Recordset mais .....

??
Quelqu'un a une idée de ce qui cloche?

Invité · 14/11/2005, 13h40

Salut,

CalculEtat est une recordest, il faut donc que tu lui dise ce qu'il doit y'avoir dedans

Code :

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

1
2
 
If (CalculEtat("SommeDeValeurPourCalculBrutVeille") <= 4) Then

Essaye d'abord ceci

Starec

**samlepiratepaddy** · 14/11/2005, 13h44

Slt,
Merci de ton aide Starec..
J'ai rectifié comme suit

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub DateRdv_AfterUpdate()
Dim CalculEtat As String
CalculEtat = "SELECT Sum(R_RegroupeValeurEntreDate.ValeurPourCalculBrutVeille) AS SommeDeValeurPourCalculBrutVeille FROM R_RegroupeValeurEntreDate;"
Set CalculEtat = db.OpenRecordset(CalculEtat, dbOpenForwardOnly, dbReadOnly)
If (CalculEtat("SommeDeValeurPourCalculBrutVeille") <= 4) Then
Me.EtatRdv = "Veille"
Else
Me.EtatRdv = "Brut"
End If
End Sub

Mais j'ai toujours le :

Objet requis

sur :

Set CalculEtat = db.OpenRecordset(CalculEtat, dbOpenForwardOnly, dbReadOnly)

:

Invité · 14/11/2005, 13h47

Re

As-tu déclarer ton recordset

Code :

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

1
2
 
dim CalculEtat as DAO.Recordset

et ta connection db est-elle crée ?

Starec

**samlepiratepaddy** · 14/11/2005, 13h54

Harggg...
ç'a y est c'est la panique...

tu peux préciser car la ????

et ta connection db est-elle crée ?

???
je ne te suis plus là...

Invité · 14/11/2005, 13h58

Salut,

Pour utiliser la DAO, il faut faire d'abord ta connection

Code :

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

1
2
 
public db as DAO.database

à mettre sous l'option explicite de ton module

puis

Code :

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

1
2
 
set db=currentdb

à mettre après ton "Private Sub DateRdv_AfterUpdate()"

Starec

Invité · 14/11/2005, 14h06

Re

Je viens de relire ton code

1 - Remplace

Code :

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

1
2
 
set ClaculEtat

par

Code :

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

1
2
 
set rst

et à la place de

Code :

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

1
2
 
dim CalculEtat as DAO.Recordset

met

Code :

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

1
2
 
dim rst as DAO.recordset

à mettre avant le set rst
Starec

Invité · 14/11/2005, 14h13

Re

Revoi les Tutos sur DAO, ils sont rès bien faits, c'est comme ceci que j'ai acquis les bases

Starec

**samlepiratepaddy** · 14/11/2005, 14h14

Houlaaaa !
Tu va plus vite que moi ...

Je n'ai pas créer de module...
Il faut que j'en crée un d'après ce que tu m'a dis???

**Celia1303** · 14/11/2005, 14h16

J'ai deux requetes:
Une qui recherche des valeurs selon une date selectionnée dans le formulaire et la date()
et l'autre qui somme c'est valeur !

Je comprends pas ce que tu veux faire...
Tu parles de deux requetes, et dans ton code il n'y en a que une .

Code :

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

1
2
 
CalculEtat = "SELECT Sum(R_RegroupeValeurEntreDate.ValeurPourCalculBrutVeille) AS SommeDeValeurPourCalculBrutVeille FROM R_RegroupeValeurEntreDate;"

R_RegroupeValeurEntreDate : c'est une table ? (ca doit pas etre facile de travailler avec des noms aussi longs)

Invité · 14/11/2005, 14h17

Re

Ton code est donc sous un formulaire, met en haut de ton code sous Option Explicit

Starec

**samlepiratepaddy** · 14/11/2005, 14h45

Envoyé par Celia1303

J'ai deux requetes:
Une qui recherche des valeurs selon une date selectionnée dans le formulaire et la date()
et l'autre qui somme c'est valeur !

Je comprends pas ce que tu veux faire...
Tu parles de deux requetes, et dans ton code il n'y en a que une .

Code :

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

1
2
 
CalculEtat = "SELECT Sum(R_RegroupeValeurEntreDate.ValeurPourCalculBrutVeille) AS SommeDeValeurPourCalculBrutVeille FROM R_RegroupeValeurEntreDate;"

R_RegroupeValeurEntreDate : c'est une table ? (ca doit pas etre facile de travailler avec des noms aussi longs)

R_RegroupeValeurEntreDate est la première requete !
j'essai simplement de sommer les Valeurs avec

"SELECT Sum(R_RegroupeValeurEntreDate.ValeurPourCalculBrutVeille) AS SommeDeValeurPourCalculBrutVeille FROM R_RegroupeValeurEntreDate;"

d'utiliser le résultat le temps du IF !

j'ai donc repris et déclaré en haut :

Code :

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

1
2
Option Compare Database
Private rst As DAO.Recordset

puis dans mon afterUpdate

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub DateRdv_AfterUpdate()
Dim rst As DAO.Recordset
rst = "SELECT Sum(R_RegroupeValeurEntreDate.ValeurPourCalculBrutVeille) AS SommeDeValeurPourCalculBrutVeille FROM R_RegroupeValeurEntreDate;"
Set rst = db.OpenRecordset(CalculEtat, dbOpenForwardOnly, dbReadOnly)
If (rst("SommeDeValeurPourCalculBrutVeille") <= 4) Then
Me.EtatRdv = "Veille"
Else
Me.EtatRdv = "Brut"
End If
End Sub

et j'ai

Utilisation incorecte de la propriété

sur

rst = "SELECT Sum...

Invité · 14/11/2005, 14h49

Re

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub DateRdv_AfterUpdate() 
Dim rst As DAO.Recordset 
dim CalculEtat as string
CalculEtat = "SELECT Sum(R_RegroupeValeurEntreDate.ValeurPourCalculBrutVeille) AS SommeDeValeurPourCalculBrutVeille FROM R_RegroupeValeurEntreDate;" 
Set rst = db.OpenRecordset(CalculEtat, dbOpenForwardOnly, dbReadOnly) 
If (rst("SommeDeValeurPourCalculBrutVeille") <= 4) Then 
Me.EtatRdv = "Veille" 
Else 
Me.EtatRdv = "Brut" 
End If 
End Sub

Petit mélange, cela devrait aller mieux

Starec

**samlepiratepaddy** · 14/11/2005, 14h59

hargg.......

De nouveau Objet requis sur la ligne :

Set rst = db.OpenRecordset(CalculEtat, dbOpenForwardOnly, dbReadOnly)

Ps : quand je met le curseur de la sourie sur

dbOpenForwardOnly

j'ai (= 8 )
et sur

dbReadOnly

j'ai (=4) c'est quoi?

Invité · 14/11/2005, 15h06

Re

Le 8 et le 4 sont les valeurs qui peuvent remplacer dbOpenForwardOnly et dbReadOnly.

Enlève les pour voir.

De plus as-tu bien mis en haut de ton code

Code :

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

1
2
 
public db as DAO.database

et met sous le afeter update

Code :

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

1
2
 
set db = currentDB

Starec

**Celia1303** · 14/11/2005, 15h08

R_RegroupeValeurEntreDate est la première requete !

Je ne savais pas qu'il était possible de mettre directement le nom d'une requete dans une autre requete...

J'ai du mal à y croire...
Je vais faire des recherches la dessus pour vérifier.

Sinon c'est quoi ta première requete, tu as le code stp?

**samlepiratepaddy** · 14/11/2005, 15h26

[quote="Celia1303"]

Sinon c'est quoi ta première requete, tu as le code stp?

[/quote="Celia1303"]

Code :

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

1
2
3
4
SELECT T_JourOuvréValeur.Date, T_JourOuvréValeur.Ouvré, T_JourOuvréValeur.ValeurPourCalculBrutVeille
FROM T_JourOuvréValeur
GROUP BY T_JourOuvréValeur.Date, T_JourOuvréValeur.Ouvré, T_JourOuvréValeur.ValeurPourCalculBrutVeille
HAVING (((T_JourOuvréValeur.Date) Between Date() And [Formulaires]![F_SuiteArguSolution]![F_RdvRépartition].[Form]![SF_RendezVous].[Form]![DateRdv]) AND ((T_JourOuvréValeur.Ouvré)=Yes));

de cette requete je regroupe donc les enregistrements concernés entre les dates qui m'interesse.
Je reprends juste le champ [ValeurPourCalculBrutVeille] que je somme avec

Code :

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

CalculEtat = "SELECT Sum(R_RegroupeValeurEntreDate.ValeurPourCalculBrutVeille) AS SommeDeValeurPourCalculBrutVeille FROM R_RegroupeValeurEntreDate;"

Selon le résultat je "change" le champ EtatRdv en "Veille" ou "Brut" avec la fonction If
Ces deux requetes faites avec l'interface Accèss me donne le bon résultat, le souci c'est que ne n'arrive pas à utiliser correctement le résultat dans la fonction IF...

Ps: Pour Starec
J'ai mis en haut

Code :

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

Dim db As DAO.Recordset

Et sous afterUpdate

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub DateRdv_AfterUpdate()
Set db = CurrentDb
Dim rst As DAO.Recordset
Dim CalculEtat As String
CalculEtat = "SELECT Sum(R_RegroupeValeurEntreDate.ValeurPourCalculBrutVeille) AS SommeDeValeurPourCalculBrutVeille FROM R_RegroupeValeurEntreDate;"
Set rst = db.OpenRecordset(CalculEtat)
If (rst("SommeDeValeurPourCalculBrutVeille") <= 4) Then
Me.EtatRdv = "Veille"
Else
Me.EtatRdv = "Brut"
End If
End Sub

et j'ai

Trop de paramettre. 1 attendu

sur la ligne

Set rst = db.OpenRecordset(CalculEtat)

Ps: j'ai enlevé

Le 8 et le 4 sont les valeurs qui peuvent remplacer dbOpenForwardOnly et dbReadOnly.

Enlève les pour voir.

Puis remis pareil....

Invité · 14/11/2005, 15h32

Re

On progresse, le trop de paramètre signifie qu'il manque un paramètre dans ta requête SQL pour qu'elle s'effetue, mais le reste à l'air de fonctionner, c'est bon signe

aprés la ligne set rst ...
met un debug.print rst pour voir ce que donne ta requête et regarde qu'elle information il te manque, à mon avis cela vient de l'appel de ta première requête.

Starec

**samlepiratepaddy** · 14/11/2005, 15h34

Ok je teste et j'arrive .....
Mais je crois que t'a raison....
Mais alors là... regrouper les deux en une

enfin je teste , enfin j'essaie

**samlepiratepaddy** · 14/11/2005, 15h45

bien, le debut.print n'affiche rien???
J'ai aussi mis un espion et j'ai Nothing sur rst ???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub DateRdv_AfterUpdate()
Set db = CurrentDb
Dim rst As DAO.Recordset
Dim CalculEtat As String
CalculEtat = "SELECT Sum(R_RegroupeValeurEntreDate.ValeurPourCalculBrutVeille) AS SommeDeValeurPourCalculBrutVeille FROM R_RegroupeValeurEntreDate;"
 
Set rst = db.OpenRecordset(CalculEtat, dbOpenForwardOnly, dbReadOnly)
Debug.Print rst
If (rst("SommeDeValeurPourCalculBrutVeille") <= 4) Then
Me.EtatRdv = "Veille"
Else
Me.EtatRdv = "Brut"
End If
End Sub