Discussion :

[Celia1303]

Bonjour!

Je n'arrive pas à compter le nombre d'enregistrement de mon recordset ( il devrait y en avoir 3).
Voici mon code :

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
 
'rq pour les cotisations annuelles
 
Dim Rq_CotAnnuel As String
Rq_CotAnnuel = "SELECT Annee_Cotisation, SUM(MontantAnnee_Cotisations) AS MontantAnnuel FROM T_Entreprise, T_Cotisations WHERE T_Entreprise.Num_Ent = T_Cotisations.Num_Ent And DateAnee_Cotisations Is Not Null GROUP BY Annee_Cotisation;"
 
Dim Rst_CotAnnuel As DAO.Recordset
Set Rst_CotAnnuel = db.OpenRecordset(Rq_CotAnnuel, dbOpenForwardOnly, dbReadOnly)
 
Dim essai As Integer
 
'on se déplace au dernier enregistrement pour pouvoir compter le nb d'enregistrement
 
Rst_CotAnnuel.MoveLast
essai = Rst_CotAnnuel.RecordCount

le débogueur s'arrete sur
Rst_CotAnnuel.MoveLast
en indiquant "opération non valide".

Quelqu'un pourrait il m'aider ?
Merci!

[coyott]

il est possible que l'erreur survienne parceque tu n'as pas un seul enregistrement dans ton recordset.

essai de vérifier si tu n'es pas déjà à la fin de ton recordset aprés son ouverture.

Code :

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

1
2
3
4
5
6
 
if not Rst_CotAnnuel.MoveLast.eof then
  essai = Rst_CotAnnuel.RecordCount 
else
  essai  = 0
end if

[random]

essaye de les compter avec dcount

[Celia1303]

il est possible que l'erreur survienne parceque tu n'as pas un seul enregistrement dans ton recordset.

essai de vérifier si tu n'es pas déjà à la fin de ton recordset aprés son ouverture.
Code:

if not Rst_CotAnnuel.MoveLast.eof then
essai = Rst_CotAnnuel.RecordCount
else
essai = 0
end if

Cela génère une erreur.
MoveLast permet de se positionner sur le dernier enregistrement, donc EOF est forcément vrai, si je ne me trompe pas.


Et la solution avec dcount, c'est à dire des select count ?

Merci pour vos réponses !

[cafeine]

bon histoire d'illustrer comment ça marche en DAO ... voici une petite fonction ... évidemment ça ne vaut pas un DCount()

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
Function DAOrecordscount(ByVal strTableOrQuery As String) As Long
 
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(strTableOrQuery, dbOpenSnapshot)
 
If rs.EOF Then
    DAOrecordscount = 0
Else
    rs.MoveLast
    DAOrecordscount = rs.RecordCount
End If
rs.Close
Set rs = Nothing
 
End Function

[pgz]

Bonjour,

Si tu as une erreur sur .MoveLast, c'est peut-être que ton rst est vide et donc que tu as déjà EOF avant l'instruction.
Dans ce cas le code de Caféine doit gazer.

Sinon, ça vient d'où cette idée de faire une MoveLast avant de lire la propriété RecordCount? Je suis le seul que cela choque?

pgz

[Celia1303]

J'ai lu ca dans un tutoriel sur les recordset DAO...
Quand je mets directement .recordcount, il me retourne la valeur 1.
Pourtant ma requete retourne trois enregistrements.

[Celia1303]

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
 
Dim Rq_CotAnnuel As String
Rq_CotAnnuel = "SELECT Annee_Cotisation, SUM(MontantAnnee_Cotisations) AS MontantAnnuel FROM T_Entreprise, T_Cotisations WHERE T_Entreprise.Num_Ent = T_Cotisations.Num_Ent And DateAnee_Cotisations Is Not Null GROUP BY Annee_Cotisation;"
 
Dim Rst_CotAnnuel As DAO.Recordset
Set Rst_CotAnnuel = db.OpenRecordset(Rq_CotAnnuel, dbOpenForwardOnly, dbReadOnly)
 
Dim essai As Integer
 
If Rst_CotAnnuel.EOF Then
    DAOrecordscount = 0
Else
    Rst_CotAnnuel.MoveLast
    DAOrecordscount = Rst_CotAnnuel.RecordCount
End If
MsgBox DAOrecordscount

le débogueur s'arrete toujours sur
Rst_CotAnnuel.MoveLast
le message d'erreur : "opération non valide"

[pgz]

Bonjour,

Je suis peut-être bouche, mais je ne comprends toujours pas pourquoi la valeur du recorscount serait liée à la position du curseur dans le recordset.

Je te propose d'essayer ceci, juste pour voir ce qui se passe:

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
Dim Rq_CotAnnuel As String 
Rq_CotAnnuel = "SELECT Annee_Cotisation, SUM(MontantAnnee_Cotisations) AS MontantAnnuel FROM T_Entreprise, T_Cotisations WHERE T_Entreprise.Num_Ent = T_Cotisations.Num_Ent And DateAnee_Cotisations Is Not Null GROUP BY Annee_Cotisation;" 
 
Dim Rst_CotAnnuel As DAO.Recordset 
Set Rst_CotAnnuel = CurrentDb.OpenRecordset(Rq_CotAnnuel, dbOpenForwardOnly, dbReadOnly) 
 
 
While not rst_CotAnnuel.EOF
    MsgBox rst_CotAnnuel("Annee_Cotisation") & " / " & rst_CotAnnuel.Recordscount
    rst_CotAnnuel.MoveNext
Wend
rst_CotAnnuel.Close
set rst_CotAnnuel = Nothing
 
End SUb

Il se passe quoi?

A+

pgz

[Tofalu]

Cela vient à priori du type du recordset remplace le forward only par dbopendynamic.

Enfin pour ce qui est de la propriété Recordcount :

La propriété RecordCount retourne le nombre d'enregistrements total d'un Recordset de type Table ou le nombre d'enregistrements auxquels vous avez eu accès dans un Recordset d'un autre type.

On peut être difficilement plus clair

[pgz]

Merci Tofalu.

J'ai vérifié dans l'aide.


pgz

[Celia1303]

Je suis peut-être bouche, mais je ne comprends toujours pas pourquoi la valeur du recorscount serait liée à la position du curseur dans le recordset.

Oui j'ai vu ca dans un tutoriel, mais finalemement ca sert à rien !

C'était bien à cause du type de recordset que j'avais des erreurs.

En tout cas merci pour votre aide !