compter le nombre d'enregistrements selectionner dans une requete sql

**charlou74** · 04/02/2010, 13h50

Bonjour,
tous est dans l'intitulé

je vous donne mon code qui ne fonctionne pas éhé

Code :

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

1
2
3
4
5
6
7
    Dim rst As DAO.Recordset
    Dim db As DAO.Database
    Dim num As Integer    
Set db = CurrentDb()
    ChaineSQL = "SELECT Argon.time, Argon.value FROM Argon WHERE (((Argon.time) Between [Formulaires]![IHM]![DebutAR] And [Formulaires]![IHM]![FinAR]))ORDER BY Argon.time;"
    Set rst = db.OpenRecordset(ChaineSQL)
            num = rst.RecordCount

deuxième solution qui ne marche pas non plus ..

Code :

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

num = DCount("[time]", "Argon", "SELECT Argon.time, Argon.value FROM Argon WHERE (((Argon.time) Between [Formulaires]![IHM]![DebutAR] And [Formulaires]![IHM]![FinAR]));")

Merci de vos réponses

**jean-paul lepetit** · 04/02/2010, 14h41

Salut,

Essaies ceci

Code :

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

1
2
 ChaineSQL = "SELECT Count Argon.time AS CompteDeTime FROM Argon WHERE (((Argon.time) Between [Formulaires]![IHM]![DebutAR] And [Formulaires]![IHM]![FinAR]));"
            num = rst!CompteDeTime

**charlou74** · 04/02/2010, 15h32

alors j'ai adapté ta solution à la tienne

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim ChaineSQL As String
    Dim rst As DAO.Recordset
    Dim db As DAO.Database
    Dim num As Integer
    
    Set db = CurrentDb()
    
     ChaineSQL = "SELECT Count(Argon.time) AS CompteDetime FROM Argon WHERE (((Argon.time) Between [Formulaires]![IHM]![DebutAR] And [Formulaires]![IHM]![FinAR]));"
 ==>          Set rst = db.OpenRecordset(ChaineSQL, dbOpenDynaset)
            num = rst!CompteDetime

mais à la flèche rouge une erreur (trop peu de paramètres : attendu 2) :S
Merci de ton aide

**jean-paul lepetit** · 04/02/2010, 15h39

Supprimes le dbOpenDynaset

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim ChaineSQL As String
    Dim rst As DAO.Recordset
    Dim db As DAO.Database
    Dim num As Integer
 
    Set db = CurrentDb()
 
     ChaineSQL = "SELECT Count(Argon.time) AS CompteDetime FROM Argon WHERE (((Argon.time) Between [Formulaires]![IHM]![DebutAR] And [Formulaires]![IHM]![FinAR]));"
 ==>          Set rst = db.OpenRecordset(ChaineSQL)
            num = rst!CompteDetime

**charlou74** · 04/02/2010, 15h44

Malheureusement cela ne focntionne toujours pas pourtant cela paraît simple ...
Merci de ton aide

**Jean-Philippe André** · 04/02/2010, 15h45

salut,
peux tu nous expliciter le ca ne fonctionne pas stp ?
tu as une erreur relevee ? le resultat n'est pas celui attendu ?

**jean-paul lepetit** · 04/02/2010, 15h48

Dans le menu Outils/Références , la référence à Microsoft DAO est bien cochée?
Et de plus elle est bien juste après visual basic et Microsoft access library ?

**charlou74** · 04/02/2010, 15h53

l'erreur arrive sur la flèche rouge encore une fois en utilisant le debogueur à point d'arrêt.
(trop peu d'arguments 2 attendu)...
oui j'ai coché microsoft DAO 3.6 object library et oui elle est juste après

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
Private Sub VisuAR_Click()
On Error GoTo Err_VisuAR_Click
 
    Dim stDocName As String
    Dim ChaineSQL As String
    Dim rst As DAO.Recordset
    Dim db As DAO.Database
    Dim num As Integer
 
    Set db = CurrentDb()
 
     ChaineSQL = "SELECT Count(Argon.time) AS CompteDetime FROM Argon WHERE (((Argon.time) Between [Formulaires]![IHM]![DebutAR] And [Formulaires]![IHM]![FinAR]));"
           Set rst = db.OpenRecordset(ChaineSQL)
            num = rst!CompteDetime
            MsgBox num
Exit_VisuAR_Click:
    Exit Sub
 
Err_VisuAR_Click:
    MsgBox Err.Description
    Resume Exit_VisuAR_Click
 
End Sub

**Jean-Philippe André** · 04/02/2010, 15h57

ok,
deja lorsqu'on utilise les syntaxes sous VBA, les Formulaires deviennent FOrms
essaie avec

Code :

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

ChaineSQL="SELECT Count(Argon.time) AS CompteDetime FROM Argon WHERE (((Argon.time) Between [Forms]![IHM]![DebutAR] And [Forms]![IHM]![FinAR]));"

**charlou74** · 04/02/2010, 16h07

merci mais toujours la même erreur

je cherche je cherche mais sans résultats ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim stDocName As String
    Dim ChaineSQL As String
    Dim rst As DAO.Recordset
    Dim db As DAO.Database
    Dim num As Integer
 
    Set db = CurrentDb()
 
 
     ChaineSQL = "SELECT Count(Argon.time) AS CompteDetime FROM Argon WHERE (((Argon.time) Between [Forms]![IHM]![DebutAR] And [Forms]![IHM]![FinAR]));"
           Set rst = db.OpenRecordset(ChaineSQL)
            num = rst!CompteDetime
            MsgBox num

**jean-paul lepetit** · 04/02/2010, 16h21

je viens de tester cette syntaxe

Code :

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

1
2
critere = "Time between #" & [Forms]![IHM]![DebutAR] & "# And  #" & [Forms]![IHM]![FinAR] & "#"
num = DCount("time", "Argon", critere)

**Jean-Philippe André** · 04/02/2010, 16h23

ok, on sort les deux bornes de la requete :

Code :

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

ChaineSQL = "SELECT Count(Argon.time) AS CompteDetime FROM Argon WHERE (((Argon.time) Between " & Forms![IHM]![DebutAR] & " And " & Forms![IHM]![FinAR] & "));"

et dis nous le contenu de la chaine avant de l'executer stp

**charlou74** · 04/02/2010, 16h30

la chaîne est 02/02/2010 9:17:57 et 02/02/2010 9:19:01
et encore une fois une erreur (erreur de syntaxe (opérateur absent) dans l'expression((Argon.time) Between 02/02/2010 9:17:57 And 02/02/2010 9:19:01)

merci de votre aide

**jean-paul lepetit** · 04/02/2010, 16h33

As tu essayé la syntaxe avec le Dcount?

Autrement pour l'autre version, je pense qu'il manque des #

Code :

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

ChaineSQL = "SELECT Count(Argon.time) AS CompteDetime FROM Argon WHERE (((Argon.time) Between #" & Forms![IHM]![DebutAR] & "# And #" & Forms![IHM]![FinAR] & "#));"

**Jean-Philippe André** · 04/02/2010, 16h34

bon ben on y arrive, tu fais un encadrement sur un champs date !

les valeurs pour ces champs sont encadrees par des #

Code :

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

ChaineSQL = "SELECT Count(Argon.time) AS CompteDetime FROM Argon WHERE (((Argon.time) Between #" & Forms![IHM]![DebutAR] & "# And #" & Forms![IHM]![FinAR] & "#));"

reste maintenant a s'assurer que le format est bien du type MM/dd/yyyy hh:mm:ss

**charlou74** · 04/02/2010, 16h36

oui la syntaxe avec Dcount affiche 0 pour num !
et l'autre syntaxe affiche 0 pour num!
c'est un début ça affiche une valeur ...

EDIT: oui le format dans la table argon est au format date ...

**jean-paul lepetit** · 04/02/2010, 16h42

Tu as des valeurs dans la plage saisie dans ton formulaire....

?

**charlou74** · 04/02/2010, 16h56

oui une plage est selectionnée ...

**jean-paul lepetit** · 04/02/2010, 17h22

Je viens de tester ta base, ça marche si tu prends comme 1ere valeur 01/02/2010 et comme seconde 02/02/2010.
donc apparemment le problème est que ça ne prend pas en compte les heures minutes secondes....

à approfondir.....

**charlou74** · 04/02/2010, 17h31

incroyable, j'aurais penser à tous mais pas à essayer ce test...
merci beaucoup
maintenant j'ai plus qu'à résoudre ce probléme d'heure et de minute ...
peut être en concaténant la date et l'heure et en gardant que la date ?!

compter le nombre d'enregistrements selectionner dans une requete sql

VBA Access

Discussions similaires

Partager

Partager