Discussion :

[Car0le]

Bonsoir,

Je découvre (et ne comprend rien) la librairie ADO pour manipuler des requêtes SQL en VBA.

Ma requête compte le nombre de jours ouvrés dans une table, mais je ne sais pas comment récupérer ce résultat pour ensuite travailler avec (le multiplier par 10, et rajouter le nombre d'heures travaillées à la date1 et à la date2).

Et enfin je voudrais rajouter le résultat de mon calcul dans ma table TEST.

Voilà mon ébauche:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Function Resultat(Date1 As Date, Date2 As Date) As Integer
Dim DifDate1, DifDate2 As Date
Dim Nb_jours As Integer 'Nombre de jours ouvrés entre Date1 et Date2 (récupération du résultat de la requête)
Dim base As DAO.Database
Dim rst As Recordset
 
Dif_heures = 0
Nb_jours = 0
 
'Calculer le nbre d'heures travaillées pour Date1 et Date2
DifDate1 = DateDiff("h", Hour(Date1), 18) 'Nbr d'heures travaillées le jour de Date1
DifDate2 = DateDiff("h", 8, Hour(Date2)) 'Nbr d'heures travaillées le jour de Date2
 
Set base = CurrentDb()
 
'Nombre de jours se trouvant entre les 2 dates et multiplication de ce nombre par 10 pour avoir le nombre d'heures travaillées entre les 2 dates
Set rst = CurrentDb.OpenRecordset("SELECT COUNT(*) FROM Jours_travail WHERE #" & DateValue(Date1) & "# < Jour AND #" & DateValue(Date2) & "# > Jour AND Jours_tavailles = 'Oui'")
While Not rst.EOF
     Nb_jours = rst("Nb_jours")
     rst.MoveNext
Wend
rst.Close
Set rst = Nothing
 
'Calculer le nbre d'heures travaillées pour Date1 et Date2
DifDate1 = DateDiff("h", Hour(Date1), 18) 'Nbr d'heures travaillées le jour de Date1
DifDate2 = DateDiff("h", 8, Hour(Date2)) 'Nbr d'heures travaillées le jour de Date2
 
'Addition des différents calculs
Resultat = Nb_jours + DifDate1 + DifDate2
 
End Function
 
Sub TEST2()
 
DoCmd.RunSQL ("UPDATE TEST SET `Mes résultats`= Resultat(Demand_Launch_date_Valid, Acknowledge_date_valid);")
 
End Sub

[jimbolion]

Carole,

Je vois qu'il s'agit d'un travail scolaire et ne vais donc pas te donner une solution toute faite mais en attendant quelques petites choses m'étonnent. Je n'ai pas la moindre idée de l'organisation de tes tables (champs, types...) mais j'ai l'impression que ta requête compare des dates à des jours (2 champs incompatibles) :

Code :

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

WHERE #" & DateValue(Date1) & "# < Jour

D'autre part et à moins d'une mauvaise conception un booléen renvoie 0 ou -1 (false ou true) et pas 'oui' ou 'non'

Code :

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

ND Jours_tavailles = 'Oui'

Donc pour avancer plus sereinement juste un conseil :

Affiche le contenu de ta requête dans une variable de type chaîne (déclarée en string dans l'en tête de ta fonction) puis affiche le contenu de cette variable dans la fenêtre d’exécution de ton module. Tu pourras alors utiliser l'assistant requête d'Access (mode SQL) pour voir toi même tes erreurs et les corriger.

Un truc du genre...

Code :

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

1
2
3
4
5
6
7
8
9
Dim sql As String
 
sql = "SELECT COUNT(*) FROM Jours_travail WHERE #" & DateValue(Date1) & "# < Jour AND #" & DateValue(Date2) & "# > Jour AND Jours_tavailles = 'Oui'"
Debug.Print sql
Set rst = CurrentDb.OpenRecordset(sql)
While Not rst.EOF
     Nb_jours = rst("Nb_jours")
     rst.MoveNext
Wend

Bon courage à toi

JimBoLion

[Car0le]

Je vois qu'il s'agit d'un travail scolaire

En fait, c'est pour mon stage

Je n'ai pas la moindre idée de l'organisation de tes tables (champs, types...) mais j'ai l'impression que ta requête compare des dates à des jours (2 champs incompatibles) :

Ma table "Jours_travail" contient 2 colonnes:
- Jour au fomat Date (01/01/2012)
- Jours_travailles au format booléen mais dans les champs il y a oui pour True et non pour False.

Donc si je marque:

Code :

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

ND Jours_tavailles = 'Oui'

C'est bien juste, non?

Donc pour avancer plus sereinement juste un conseil :

Affiche le contenu de ta requête dans une variable de type chaîne (déclarée en string dans l'en tête de ta fonction) puis affiche le contenu de cette variable dans la fenêtre d’exécution de ton module. Tu pourras alors utiliser l'assistant requête d'Access (mode SQL) pour voir toi même tes erreurs et les corriger.

Un truc du genre...

Code :

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

1
2
3
4
5
6
7
8
9
Dim sql As String
 
sql = "SELECT COUNT(*) FROM Jours_travail WHERE #" & DateValue(Date1) & "# < Jour AND #" & DateValue(Date2) & "# > Jour AND Jours_tavailles = 'Oui'"
Debug.Print sql
Set rst = CurrentDb.OpenRecordset(sql)
While Not rst.EOF
     Nb_jours = rst("Nb_jours")
     rst.MoveNext
Wend

Mais ce code je le met dans ma fonction? Donc je met quoi dans Sub TEST2()?

[jimbolion]

Car0le,

Ma table "Jours_travail" contient 2 colonnes:
- Jour au fomat Date (01/01/2012)
- Jours_travailles au format booléen mais dans les champs il y a oui pour True et non pour False.

Car si Booléen la valeur stockée est true ou false. Si ce sont des champs textes c'est à moins avis une petite erreur de conception.

envoie moi ta base. Cela me permettra de valider tes champs, ta requête et la syntaxe.

Je t'aiguillerai alors sur la solution..

Cordialement

JimBoLion

[cthulhu22]

Bonjour,

Sans trop m'avancer, le "problème" concernant le booléen Jours_tavailles est en fait simple.

Dans la base de données, le booléen est stocké sous forme de bit, à savoir 0 pour "Faux" et 1 pour "Vrai'
Lorsque l'on affiche le contenu d'une table dans Access, celui fait une conversion automatique entre les données de la colonnes (des 0 et des 1) et les chaînes "Faux" et "Vrai".


Pour travailler les données via des requêtes SQL, il faut parler le même langage que le SGBD: des 0 et des 1.

Ce qui nous donne, pour le test du booléen

Code :

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

[...] AND Jours_tavailles = 1

[jimbolion]

cthulhu22,

le booleen sous access est matérialisée par -1 (true) et pas 1 comme d'autres SGBD !

JimBoLion

[cthulhu22]

cthulhu22,

le booleen sous access est matérialisée par -1 (true) et pas 1 comme d'autres SGBD !

JimBoLion

Effectivement, à force de travailler avec SQL Server j'en avais oublié cette subtilité !