Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Probleme pour compter le nombre d'enregistrements via un recordset

5 réponses
Avatar
francisco
Bonjour tout le monde
J'ai un probleme pour compter les nombres d'enregistrements d'un recordset
et j'utilise cette synthaxe
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount
je l'ai incorporé dans le code ci dessous mais il me renvoie toujours la
valeur -1

Sub EtablirConnexion(OuvrirFichier)

Dim cnt As New ADODB.Connection
Dim rst10As New ADODB.Recordset
'-------------------------------------------------
'ALIMENTATION TONNES HEURES
'-------------------------------------------------
rst10.Open Rsql, cnt
Columns("K").Clear
Range("K4") = "Tonnes Heures"
Range("K4").Font.Bold = True
i = 4
While Not rst10.EOF
i = i + 1
Sheets("Feuil1").Range("K" & i).Value = rst10!TonnesHeures
rst10.MoveNext
Wend
'-----------------------------------------------------------
'Affichage des résultats
'-----------------------------------------------------------
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount


rst10.Close
Set rst10 = Nothing
End Sub

5 réponses

Avatar
francisco
Salut Pierre J'arrive pas à faire ce que tu m'as dit car je ne comprends pas
bien j'ai écrit la chose suivante mais cela ne marche toujours pas

Mais merci deja pour ta reponse Amicalement Francisco
'-----------------------------------------------------------
'Affichage des résultats
'-----------------------------------------------------------
If Not rst10.EOF Then rst.MoveFirst
If Not rst10.EOF Then rst.MoveLast
If Not rst10.EOF Then rst.MoveFirst
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount


"Pierre CFI [mvp]" a écrit dans le message de
news:u$
bonjour
aprés ta boucle tu es à la fin donc en eof
donc 1 coup de first, de last et de first :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr
"francisco" a écrit dans le message de
news:c8k9bf$nbf$

Bonjour tout le monde
J'ai un probleme pour compter les nombres d'enregistrements d'un
recordset


et j'utilise cette synthaxe
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount
je l'ai incorporé dans le code ci dessous mais il me renvoie toujours la
valeur -1

Sub EtablirConnexion(OuvrirFichier)

Dim cnt As New ADODB.Connection
Dim rst10As New ADODB.Recordset
'-------------------------------------------------
'ALIMENTATION TONNES HEURES
'-------------------------------------------------
rst10.Open Rsql, cnt
Columns("K").Clear
Range("K4") = "Tonnes Heures"
Range("K4").Font.Bold = True
i = 4
While Not rst10.EOF
i = i + 1
Sheets("Feuil1").Range("K" & i).Value = rst10!TonnesHeures
rst10.MoveNext
Wend
'-----------------------------------------------------------
'Affichage des résultats
'-----------------------------------------------------------
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount


rst10.Close
Set rst10 = Nothing
End Sub








Avatar
francisco
Oui Pierre Erreur de Frappe Merci pour tout amicalement Francisco Bonne
journée

"Pierre CFI [mvp]" a écrit dans le message de
news:
euh, je viens de voir des rst et des rst10, erreur de frappe ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.cfi.free.fr
"francisco" a écrit dans le message de
news:c8kftc$9u0$

Salut Pierre J'arrive pas à faire ce que tu m'as dit car je ne comprends
pas


bien j'ai écrit la chose suivante mais cela ne marche toujours pas

Mais merci deja pour ta reponse Amicalement Francisco
'-----------------------------------------------------------
'Affichage des résultats
'-----------------------------------------------------------
If Not rst10.EOF Then rst.MoveFirst
If Not rst10.EOF Then rst.MoveLast
If Not rst10.EOF Then rst.MoveFirst
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount


"Pierre CFI [mvp]" a écrit dans le message de
news:u$
bonjour
aprés ta boucle tu es à la fin donc en eof
donc 1 coup de first, de last et de first :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.cfi.free.fr
"francisco" a écrit dans le message de
news:c8k9bf$nbf$

Bonjour tout le monde
J'ai un probleme pour compter les nombres d'enregistrements d'un
recordset


et j'utilise cette synthaxe
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount
je l'ai incorporé dans le code ci dessous mais il me renvoie
toujours la




valeur -1

Sub EtablirConnexion(OuvrirFichier)

Dim cnt As New ADODB.Connection
Dim rst10As New ADODB.Recordset
'-------------------------------------------------
'ALIMENTATION TONNES HEURES
'-------------------------------------------------
rst10.Open Rsql, cnt
Columns("K").Clear
Range("K4") = "Tonnes Heures"
Range("K4").Font.Bold = True
i = 4
While Not rst10.EOF
i = i + 1
Sheets("Feuil1").Range("K" & i).Value = rst10!TonnesHeures
rst10.MoveNext
Wend
'-----------------------------------------------------------
'Affichage des résultats
'-----------------------------------------------------------
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount


rst10.Close
Set rst10 = Nothing
End Sub
















Avatar
Pierre CFI [mvp]
bonjour
aprés ta boucle tu es à la fin donc en eof
donc 1 coup de first, de last et de first :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr
"francisco" a écrit dans le message de news:c8k9bf$nbf$
Bonjour tout le monde
J'ai un probleme pour compter les nombres d'enregistrements d'un recordset
et j'utilise cette synthaxe
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount
je l'ai incorporé dans le code ci dessous mais il me renvoie toujours la
valeur -1

Sub EtablirConnexion(OuvrirFichier)

Dim cnt As New ADODB.Connection
Dim rst10As New ADODB.Recordset
'-------------------------------------------------
'ALIMENTATION TONNES HEURES
'-------------------------------------------------
rst10.Open Rsql, cnt
Columns("K").Clear
Range("K4") = "Tonnes Heures"
Range("K4").Font.Bold = True
i = 4
While Not rst10.EOF
i = i + 1
Sheets("Feuil1").Range("K" & i).Value = rst10!TonnesHeures
rst10.MoveNext
Wend
'-----------------------------------------------------------
'Affichage des résultats
'-----------------------------------------------------------
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount


rst10.Close
Set rst10 = Nothing
End Sub




Avatar
Pierre CFI [mvp]
tu as déjà teste ton eof avant, donc
rst.MoveFirst
rst.MoveLast
rst.MoveFirst
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount

par contre aprés l'ouverture sur recordset et le début du Do, mets
if rst.eof then exit sub
pour ne faire ni la boucle, ni le comptage



--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.cfi.free.fr
"francisco" a écrit dans le message de news:c8kftc$9u0$
Salut Pierre J'arrive pas à faire ce que tu m'as dit car je ne comprends pas
bien j'ai écrit la chose suivante mais cela ne marche toujours pas

Mais merci deja pour ta reponse Amicalement Francisco
'-----------------------------------------------------------
'Affichage des résultats
'-----------------------------------------------------------
If Not rst10.EOF Then rst.MoveFirst
If Not rst10.EOF Then rst.MoveLast
If Not rst10.EOF Then rst.MoveFirst
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount


"Pierre CFI [mvp]" a écrit dans le message de
news:u$
bonjour
aprés ta boucle tu es à la fin donc en eof
donc 1 coup de first, de last et de first :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.cfi.free.fr
"francisco" a écrit dans le message de
news:c8k9bf$nbf$

Bonjour tout le monde
J'ai un probleme pour compter les nombres d'enregistrements d'un
recordset


et j'utilise cette synthaxe
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount
je l'ai incorporé dans le code ci dessous mais il me renvoie toujours la
valeur -1

Sub EtablirConnexion(OuvrirFichier)

Dim cnt As New ADODB.Connection
Dim rst10As New ADODB.Recordset
'-------------------------------------------------
'ALIMENTATION TONNES HEURES
'-------------------------------------------------
rst10.Open Rsql, cnt
Columns("K").Clear
Range("K4") = "Tonnes Heures"
Range("K4").Font.Bold = True
i = 4
While Not rst10.EOF
i = i + 1
Sheets("Feuil1").Range("K" & i).Value = rst10!TonnesHeures
rst10.MoveNext
Wend
'-----------------------------------------------------------
'Affichage des résultats
'-----------------------------------------------------------
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount


rst10.Close
Set rst10 = Nothing
End Sub












Avatar
Pierre CFI [mvp]
euh, je viens de voir des rst et des rst10, erreur de frappe ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.cfi.free.fr
"francisco" a écrit dans le message de news:c8kftc$9u0$
Salut Pierre J'arrive pas à faire ce que tu m'as dit car je ne comprends pas
bien j'ai écrit la chose suivante mais cela ne marche toujours pas

Mais merci deja pour ta reponse Amicalement Francisco
'-----------------------------------------------------------
'Affichage des résultats
'-----------------------------------------------------------
If Not rst10.EOF Then rst.MoveFirst
If Not rst10.EOF Then rst.MoveLast
If Not rst10.EOF Then rst.MoveFirst
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount


"Pierre CFI [mvp]" a écrit dans le message de
news:u$
bonjour
aprés ta boucle tu es à la fin donc en eof
donc 1 coup de first, de last et de first :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://access.cfi.free.fr
"francisco" a écrit dans le message de
news:c8k9bf$nbf$

Bonjour tout le monde
J'ai un probleme pour compter les nombres d'enregistrements d'un
recordset


et j'utilise cette synthaxe
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount
je l'ai incorporé dans le code ci dessous mais il me renvoie toujours la
valeur -1

Sub EtablirConnexion(OuvrirFichier)

Dim cnt As New ADODB.Connection
Dim rst10As New ADODB.Recordset
'-------------------------------------------------
'ALIMENTATION TONNES HEURES
'-------------------------------------------------
rst10.Open Rsql, cnt
Columns("K").Clear
Range("K4") = "Tonnes Heures"
Range("K4").Font.Bold = True
i = 4
While Not rst10.EOF
i = i + 1
Sheets("Feuil1").Range("K" & i).Value = rst10!TonnesHeures
rst10.MoveNext
Wend
'-----------------------------------------------------------
'Affichage des résultats
'-----------------------------------------------------------
If Not rst10.EOF Then rst.MoveLast
MsgBox " Nomnre d'enregistrements : " & rst10.RecordCount


rst10.Close
Set rst10 = Nothing
End Sub