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
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" <francisco@inconnu.fr> a écrit dans le message de
news:c8k9bf$nbf$1@news-reader5.wanadoo.fr...
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
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
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
recordsetet 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
euh, je viens de voir des rst et des rst10, erreur de frappe ?
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"francisco" <francisco@inconnu.fr> a écrit dans le message de
news:c8kftc$9u0$1@news-reader4.wanadoo.fr...
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]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:u$6VbmwPEHA.3348@TK2MSFTNGP09.phx.gbl...
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" <francisco@inconnu.fr> a écrit dans le message de
news:c8k9bf$nbf$1@news-reader5.wanadoo.fr...
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
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
recordsetet 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
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
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
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
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
recordsetet 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
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]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:u$6VbmwPEHA.3348@TK2MSFTNGP09.phx.gbl...
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" <francisco@inconnu.fr> a écrit dans le message de
news:c8k9bf$nbf$1@news-reader5.wanadoo.fr...
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
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
recordsetet 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
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
recordsetet 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
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]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:u$6VbmwPEHA.3348@TK2MSFTNGP09.phx.gbl...
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" <francisco@inconnu.fr> a écrit dans le message de
news:c8k9bf$nbf$1@news-reader5.wanadoo.fr...
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
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
recordsetet 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