VBA et SQL à la fois

**Nessie37** · 21/01/2008, 18h48

Re moi.

toujours dans mes requêtes tordues :
J'ai un form qui sur chargement a le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Dim dtDate As Date
 
dtDate = Date
If dtDate > DateSerial(Year(dtDate), 7, 31) Then
   Me.Date1 = DateSerial(Year(dtDate), 8, 1)
   Me.Date2 = DateSerial(Year(dtDate) + 1, 7, 31)
Else
   Me.Date1 = DateSerial(Year(dtDate) - 1, 8, 1)
   Me.Date2 = DateSerial(Year(dtDate), 7, 31)
End If
 
End Sub

J'ai la requête union suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
SELECT iif(AFFAIRES.[Transaction aboutie]=-1,"Transactions abouties") AS Libellé, Count(AFFAIRES.[Transaction aboutie]) AS Volume, Count(AFFAIRES.[Transaction aboutie])/(SELECT Count(AFFAIRES.Réfaffaires) AS CompteDeRéfaffaires FROM AFFAIRES) AS Taux, Sum(AFFAIRES.[Montant honoraires HT]) AS CA
FROM AFFAIRES
WHERE (((AFFAIRES.[Transaction aboutie])=True)) 
GROUP BY AFFAIRES.[Transaction aboutie];
 
UNION
 
SELECT iif(AFFAIRES.[Transaction en cours]=-1,"Transactions en cours") AS Libellé, Count(AFFAIRES.[Transaction en cours]) AS Volume, Count(AFFAIRES.[Transaction aboutie])/(SELECT Count(AFFAIRES.Réfaffaires) AS CompteDeRéfaffaires FROM AFFAIRES) AS Taux, Sum(AFFAIRES.[Montant honoraires HT]) AS CA
FROM AFFAIRES
WHERE (((AFFAIRES.[Transaction en cours])=True)) 
GROUP BY AFFAIRES.[Transaction en cours];
 
UNION SELECT iif(AFFAIRES.[Transaction avortée]=-1,"Transactions avortées") AS Libellé, Count(AFFAIRES.[Transaction avortée]) AS Volume, Count(AFFAIRES.[Transaction aboutie])/(SELECT Count(AFFAIRES.Réfaffaires) AS CompteDeRéfaffaires FROM AFFAIRES) AS Taux, Sum(AFFAIRES.[Montant honoraires HT]) AS CA
FROM AFFAIRES
WHERE (((AFFAIRES.[Transaction avortée])=True)) 
GROUP BY AFFAIRES.[Transaction avortée];

Le truc c'est que je souhaiterais ajouter en union

Code :

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

1
2
3
4
SELECT iif(AFFAIRES.[Transaction en cours]=-1,"Transactions en cours") AS Libellé, Count(AFFAIRES.[Transaction en cours]) AS Volume, Count(AFFAIRES.[Transaction aboutie])/(SELECT Count(AFFAIRES.Réfaffaires) AS CompteDeRéfaffaires FROM AFFAIRES) AS Taux, Sum(AFFAIRES.[Montant honoraires HT]) AS CA
FROM AFFAIRES
WHERE (((AFFAIRES.[Transaction en cours])=True)) 
GROUP BY AFFAIRES.[Transaction en cours];

mais avec une clause WHERE en AND (à ajouter à ce qui est en gras) afin que cette requête ne m'affiche que les résultat qui sont dans mon exercice comptable en cours (défini par le code VBA plus haut) et que l'autre requête identique qui est dans le code que j'ai donné (en deuxième union) ne m'affiche que les résultats hors exercice comptable (au delà des dates définies par le code VBA)...

Pas sûre d'être claire...

**Jean-Philippe André** · 22/01/2008, 09h19

bonjour,
je n'ai pas tout saisi, mais je peux déjà te proposer ceci :

Code :

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

... WHERE AFFAIRES.[Transaction en cours]=-1

**Nessie37** · 22/01/2008, 09h31

MDR !

C'est gentil d'essayer mais ton bout de code ne m'aide pas ! lol !
Tu vois ma requête union. Il y a 3 UNION, une où il s'agit de transaction en cours. Eh bah celle-là, je vou drais en faire en fait 2 :
une où ce sont les transaction en cours sur l'exercice, l'autre, l'es transactions en cours hors exercice.
Pb, il se trouve que la définition des dates de l'exercie en cours est donnée par le code VBA que j'ai donné en premier (Mon exo allant du 01/08 au 31/07).

Comment faire pour insérer ça (ou un truc qui me permettrait de définir mon exo) dans mes requêtes ?

Peut-être suis-je un peu plus claire...

**Jean-Philippe André** · 22/01/2008, 10h13

tu peux voir dans la clause where un critère du type

Code :

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

AFFAIRES.[monChmpDate] BETWEEN #08/01/2007# AND #07/31/2008#

**Nessie37** · 22/01/2008, 10h33

Le problème c'est que je ne veux pas de ## pour les dates car ce sont des dates qui vont changer automatiquement. Le code VBA que Led Zep m'a gentiment donné me permet un affichage de l'exercice automatiquement. Si je mets des ##, ça va être une date figée comprise dans ##

**Jean-Philippe André** · 22/01/2008, 10h44

l'idée était que ca serve d'exmple

Code :

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

AFFAIRES.[monChmpDate] BETWEEN #" & format(Me.date1,"mm/dd/yyyy") & "# AND #" & Format(Me.Date2,"MM/dd/yyyy") & "#

**Nessie37** · 22/01/2008, 18h20

Oui, j'ai compris mais le truc c'est date1 et date2 servent à sélection de période où s'afficheront données correspondantes.
Moi je voudrais que mes requêtes citées plus soient uniquement fonction du code VBA également citée plus haut. Les valeurs affichées grace aux requêtes ne devront fluctuer en fonction de date1 et date2.

Vois-tu ?

**Jean-Philippe André** · 23/01/2008, 11h44

salut,
ce que je ne comprends pas c'est cette histoire de date... je ne vois nulle part des dates dans tes requêtes... en simplifiant le code ca serait koi ?

Code :

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

1
2
3
4
5
SELECT Premieres avec date entre XXX et YYY
UNION
SELECT autres avec date entre YYY et ZZZ
UNION
SELECT dernieres avec date entre ZZZ et AAA

?

**Nessie37** · 23/01/2008, 14h47

Bah oui ! il n'y en a pas dans ces requêtes car à la base elles ne sont pas faites pour m'afficher des info entre datex et datey mais elles affichent des info depuis le début (comme une sorte de cumul de données), seulement dans la requête union, je me suis aperçue qu'il est plus cohérent qu'une m'affiche des données sur l'exercice en cours (code VBA) et que je rajoute une autre requête union qui m'affiche les mêmes données mais hors exercice (donc en théorie après chaque 31/07 de chaque année).
C'est là probl, est-ce possible et comment faire en fonction de ce code VBA ?

**pifou25** · 23/01/2008, 15h07

bonjour,
oui donc à la base il n'y a que des requêtes statiques, et au final il faut que la requête contienne les dates 1 et 2, correct?

2 solutions:
1- tu ajoute date1 et date2 dans une (des) table(s) tampon(s) et tu modifie toutes tes requêtes pour les prendre en compte avec des inner-join ou que sais-je
2- tu modifie la source de ta requête en vba comme t'indique jpcheck, je vois pas d'autre solution:

Code :

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

1
2
3
sql = "SELECT ... blabla (faut remettre toute la requête) ..." & _
" AFFAIRES.[monChmpDate] BETWEEN #" & format(Me.date1,"mm/dd/yyyy") & "# AND #" & Format(Me.Date2,"MM/dd/yyyy") & "#"
currentdb.Querydefs("marequete").SQL = sql

**Nessie37** · 23/01/2008, 15h41

J'ai vraiment du mal à m'expliquer.
A la base la requête union est statique. Elle est composée de 3 requêtes. Je vourdais que deux d'entre elles restent comme elles sont, en transformer une et en créer une autre dans lesquelles apparaîtra sûrement une clause where.
Pb pour moi, si je mets un where between date1 et dat2, je vais avoir affichées les données de la période que je veux mais une fois que je changerai ces dates, les données des requêtes seront fonction de cette date.
Or je ne veux pas.

Ou alors aidez-moi à trouver une formule pour ma requête qui m'affiche les données entre le 01/08 et 31/07 selon les conditions suivantes :
- si date d'aujourd'hui est > au 01/08 de l'année en cours N, alors plage d'info à afficher = entre 01/08/N à 31/07/N+1
- si date d'aujourd'hui est < au 01/08 de l'année en cours N, alors entre = 01/08/N-1 et 31/07/N.
ça ce serait pour la requête que je voudrais modifier.

Pour celle que je voudrais rajouter, il faudrait qu'elle m'affiche les données carrément au delà du 31/07 de l'année en cours N ou de l'année N+1 (tout dépend de date d'aujourd'hui (comme décrit plus haut là)

Suis-je plus claire ?

**vodiem** · 23/01/2008, 18h18

bon on a vraiment du mal à te comprendre Nessie37,
mais je pense traduire correctement tes besoins en disant:

tu as un form avec deux zones de texte indépendants contenant des dates qui sont calculées lors de l'ouverture.
tu voudrais que la requete soit filtrée entre les dates qui sont calculées à l'ouverture et uniquement ceux là car étant des zones de textes indépendant, il peut y avoir d'autre valeur saisie utérieurement.

si c'est bien cela un méthode est de mettre dans la condition where pour les dates:

Code :

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

1
2
3
4
5
6
7
8
9
10
where ... and
(AFFAIRES.[monChmpDate] BETWEEN 
iif(Date() > DateSerial(Year(Date()), 7, 31),
   DateSerial(Year(Date()), 8, 1),
   DateSerial(Year(Date()) - 1, 8, 1))
and
iif(Date() > DateSerial(Year(Date()), 7, 31),
   DateSerial(Year(Date()) + 1, 7, 31),
   DateSerial(Year(Date()), 7, 31))
)

bien sur tu dois adapter [monChmpDate] à celui de ton champ.

**Nessie37** · 23/01/2008, 18h22

Je file faire ça de suite pour voir

Roulement de tambour, j'ai hâte !
Qu'est-ce que ça fait du bien d'être comprise !

J'avais pensé à faire un "mix" mais ne connaissant par encore les syntaxes en SQL et VBA, je ne me suis pas aventurée à utiliser le code dans ma requête.

J'aurais du avant de pleurer ! lol !

**Nessie37** · 23/01/2008, 18h29

ça donne ça :

Code :

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

1
2
3
4
5
SELECT iif(AFFAIRES.[Transaction en cours]=-1,"Transactions en cours") AS Libellé, Count(AFFAIRES.[Transaction en cours]) AS Volume, Count(AFFAIRES.[Transaction aboutie])/(SELECT Count(AFFAIRES.Réfaffaires) AS CompteDeRéfaffaires FROM AFFAIRES) AS Taux, Sum(AFFAIRES.[Montant honoraires HT]) AS CA
FROM AFFAIRES
WHERE (((AFFAIRES.[Transaction en cours])=True)) AND (AFFAIRES.[Transaction en cours]) BETWEEN iif(Date() > DateSerial(Year(Date()), 7, 31),DateSerial(Year(Date()), 8, 1),DateSerial(Year(Date()) - 1, 8, 1))
AND iif(Date() > DateSerial(Year(Date()), 7, 31),DateSerial(Year(dtDate) + 1, 7, 31),DateSerial(Year(dtDate), 7, 31))
GROUP BY AFFAIRES.[Transaction en cours];

Et ça me demande quand je l'exécute d'entrer dtdate puis me met le message suivant : "cette expression présente une syntaxe incorrecte, ou est trop complexe pour être évaluée....

**vodiem** · 23/01/2008, 19h02

he oui, j'ai oublié de changer tous le dtDate par Date(),
j'ai fait la correction tu peux le reprendre.

**Nessie37** · 23/01/2008, 22h59

Ok, je vais vérifier ça demain. Là, repos home !

**Nessie37** · 24/01/2008, 09h40

Bonjour Vodiem,

Dis moi, dans la requête que tu m'as proposé (qui avec les rectif faites semble fonctionner (cool !), c'est normal qu'il y ait 2 fois ">" dans les IIF ??

Code :

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

1
2
3
4
5
6
UNION
 
SELECT iif(AFFAIRES.[Transaction en cours]=-1,"Transactions en cours sur exercice") AS Libellé, Count(AFFAIRES.[Transaction en cours]) AS Volume, Count(AFFAIRES.[Transaction aboutie])/(SELECT Count(AFFAIRES.Réfaffaires) AS CompteDeRéfaffaires FROM AFFAIRES) AS Taux, Sum(AFFAIRES.[Montant honoraires HT]) AS CA
FROM AFFAIRES
WHERE (((AFFAIRES.[Transaction en cours])=True)) AND (AFFAIRES.[Signature définitive prévue le]) BETWEEN iif(Date() > DateSerial(Year(Date()), 7, 31),DateSerial(Year(Date()), 8, 1),DateSerial(Year(Date()) - 1, 8, 1)) AND iif(Date() > DateSerial(Year(Date()), 7, 31),DateSerial(Year(Date()) + 1, 7, 31),DateSerial(Year(Date()), 7, 31))
GROUP BY AFFAIRES.[Transaction en cours];

**vodiem** · 24/01/2008, 09h50

je ne vois pas deux fois ">" dans les iif.
il y a un pour date1 et un pour date2.

**Nessie37** · 24/01/2008, 09h55

...

Code :

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

(AFFAIRES.[Signature définitive prévue le]) BETWEEN iif(Date() > DateSerial(Year(Date()), 7, 31),DateSerial(Year(Date()), 8, 1),DateSerial(Year(Date()) - 1, 8, 1)) AND iif(Date() > DateSerial(Year(Date()), 7, 31),DateSerial(Year(Date()) + 1, 7, 31),DateSerial(Year(Date()), 7, 31))

...

Là tu vois mieux ?

! lol !
Ce qui est en gras. je pensais que ce serait iif(......>...) d'abord et IIF(...<...) ensuite, car le résultat n'est pas le même