VBA et SQL à la fois

Version imprimable

Voir 40 message(s) de cette discussion en une page

Re moi.

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

Code:

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:

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:

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...8O

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

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

Code:

... WHERE AFFAIRES.[Transaction en cours]=-1
22/01/2008, 09h31
Nessie37

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...
22/01/2008, 10h13
Jean-Philippe André

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

Code:

AFFAIRES.[monChmpDate] BETWEEN #08/01/2007# AND #07/31/2008#
22/01/2008, 10h33
Nessie37

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 ##
22/01/2008, 10h44
Jean-Philippe André

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

Code:

AFFAIRES.[monChmpDate] BETWEEN #" & format(Me.date1,"mm/dd/yyyy") & "# AND #" & Format(Me.Date2,"MM/dd/yyyy") & "#
22/01/2008, 18h20
Nessie37

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 ?
23/01/2008, 11h44
Jean-Philippe André
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:

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
?
23/01/2008, 14h47
Nessie37

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 ?

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:

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

23/01/2008, 15h41
Nessie37

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 ?8O:roll::lol::oops:

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:

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.

23/01/2008, 18h22
Nessie37

Je file faire ça de suite pour voir :D
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 !

ça donne ça :

Code:

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....

23/01/2008, 19h02
vodiem

he oui, j'ai oublié de changer tous le dtDate par Date(),
j'ai fait la correction tu peux le reprendre.
23/01/2008, 22h59
Nessie37

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

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:

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];

24/01/2008, 09h50
vodiem

je ne vois pas deux fois ">" dans les iif.
il y a un pour date1 et un pour date2. :D
24/01/2008, 09h55
Nessie37

...

Code:

(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 ?8O ! 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
24/01/2008, 12h09
vodiem

tu devrais mettre en rouge on verrais mieux. mais non il y a pas deux ">" dans un iif. il y en a un pour chacun pour être équitable. :mouarf:

je n'ai fait que transposé le code que tu as donné. ;)

Voir 40 message(s) de cette discussion en une page