Je cherche à savoir comment je peux faire en utilisant un recordset pour pouvoir compter les enregistrements d'une colonne
Amicalement Francisco Merci tout le monde
Frédéric Sigonneau
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement s'obtient avec la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset pour pouvoir compter les enregistrements d'une colonne
Amicalement Francisco Merci tout le monde
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement s'obtient avec
la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset pour
pouvoir compter les enregistrements d'une colonne
En supposant un Recordset rst ouvert, son nombre d'enregistrement s'obtient avec la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset pour pouvoir compter les enregistrements d'une colonne
Amicalement Francisco Merci tout le monde
francisco
Merci Isabelle Merci Frederic pour vos reponses Amicalement Francisco "Frédéric Sigonneau" <frédé a écrit dans le message de news:
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement s'obtient avec
la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset pour pouvoir compter les enregistrements d'une colonne
Amicalement Francisco Merci tout le monde
Merci Isabelle Merci Frederic pour vos reponses
Amicalement Francisco
"Frédéric Sigonneau" <frédéric.sigonneau@ouanamou.fr> a écrit dans le
message de news: 408C3A20.50108@ouanamou.fr...
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement
s'obtient avec
la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset pour
pouvoir compter les enregistrements d'une colonne
Merci Isabelle Merci Frederic pour vos reponses Amicalement Francisco "Frédéric Sigonneau" <frédé a écrit dans le message de news:
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement s'obtient avec
la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset pour pouvoir compter les enregistrements d'une colonne
Amicalement Francisco Merci tout le monde
francisco
Execusez moi encore une fois Frederic ou Isabelle en tout cas merci pour vos reponses d'avant car je ne savais pas qu'il fallait utiliser rst.recordCount ni la fonction NBVAL mais maintenant je suis confronté à un autre probleme lorsque j'utilise le recordset quelque soit la valeur de mon champs il m'affiche -1 et je ne comprends pas pourquoi et je sais pas d'ou cela peut venir c'est au niveau de ce que j'ai ecrit dans mon code MsgBox "LE NOMBRE EST :" & rst.RecordCount si vous aviez une solution à ce probleme cela m'arrangerait bien Amicalement Francisco en tout cas deja merci pour l'aide que vous m'apportez La totalité de mon code se trouve en dessous Sub EtablirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection Dim rst As New ADODB.Recordset Dim i As Integer Dim Rsql As String Dim CritereCodeProduct As String
'---------------------------------------------------- 'à ouvrir une seule fois cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source c:psm_analyse_formulaire.mdb ;" '------------------------------------------------------------ rst.Open Rsql, cnt
Columns("A").Clear i = 0 While Not rst.EOF i = i + 1 Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct rst.MoveNext Wend MsgBox "LE NOMBRE EST :" & rst.RecordCount rst.Close Set rst = Nothing End Sub "francisco" a écrit dans le message de news: c6ih7f$ovq$
Merci Isabelle Merci Frederic pour vos reponses Amicalement Francisco "Frédéric Sigonneau" <frédé a écrit dans le message de news:
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement s'obtient avec
la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset pour
pouvoir compter les enregistrements d'une colonne
Amicalement Francisco Merci tout le monde
Execusez moi encore une fois Frederic ou Isabelle en tout cas merci pour vos
reponses d'avant car je ne savais pas qu'il fallait utiliser
rst.recordCount ni la fonction NBVAL mais maintenant je suis confronté à un
autre probleme lorsque j'utilise le recordset quelque soit la valeur de mon
champs il m'affiche -1 et je ne comprends pas pourquoi et je sais pas d'ou
cela peut venir c'est au niveau de ce que j'ai ecrit dans mon code MsgBox
"LE NOMBRE EST :" & rst.RecordCount si vous aviez une solution à ce probleme
cela m'arrangerait bien
Amicalement Francisco en tout cas deja merci pour l'aide que vous m'apportez
La totalité de mon code se trouve en dessous
Sub EtablirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim i As Integer
Dim Rsql As String
Dim CritereCodeProduct As String
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source c:psm_analyse_formulaire.mdb ;"
'------------------------------------------------------------
rst.Open Rsql, cnt
Columns("A").Clear
i = 0
While Not rst.EOF
i = i + 1
Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct
rst.MoveNext
Wend
MsgBox "LE NOMBRE EST :" & rst.RecordCount
rst.Close
Set rst = Nothing
End Sub
"francisco" <malabar@wanadoo.fr> a écrit dans le message de news:
c6ih7f$ovq$1@news-reader1.wanadoo.fr...
Merci Isabelle Merci Frederic pour vos reponses
Amicalement Francisco
"Frédéric Sigonneau" <frédéric.sigonneau@ouanamou.fr> a écrit dans le
message de news: 408C3A20.50108@ouanamou.fr...
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement
s'obtient avec
la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset
pour
Execusez moi encore une fois Frederic ou Isabelle en tout cas merci pour vos reponses d'avant car je ne savais pas qu'il fallait utiliser rst.recordCount ni la fonction NBVAL mais maintenant je suis confronté à un autre probleme lorsque j'utilise le recordset quelque soit la valeur de mon champs il m'affiche -1 et je ne comprends pas pourquoi et je sais pas d'ou cela peut venir c'est au niveau de ce que j'ai ecrit dans mon code MsgBox "LE NOMBRE EST :" & rst.RecordCount si vous aviez une solution à ce probleme cela m'arrangerait bien Amicalement Francisco en tout cas deja merci pour l'aide que vous m'apportez La totalité de mon code se trouve en dessous Sub EtablirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection Dim rst As New ADODB.Recordset Dim i As Integer Dim Rsql As String Dim CritereCodeProduct As String
'---------------------------------------------------- 'à ouvrir une seule fois cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source c:psm_analyse_formulaire.mdb ;" '------------------------------------------------------------ rst.Open Rsql, cnt
Columns("A").Clear i = 0 While Not rst.EOF i = i + 1 Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct rst.MoveNext Wend MsgBox "LE NOMBRE EST :" & rst.RecordCount rst.Close Set rst = Nothing End Sub "francisco" a écrit dans le message de news: c6ih7f$ovq$
Merci Isabelle Merci Frederic pour vos reponses Amicalement Francisco "Frédéric Sigonneau" <frédé a écrit dans le message de news:
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement s'obtient avec
la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset pour
pouvoir compter les enregistrements d'une colonne
Amicalement Francisco Merci tout le monde
Pierre CFI [mvp]
bonjour recordcount doit étre précedé d'un movelast et movefirst donc if not rst.eof then rst.movelast rst.movefirts else 'y a rien end if
-- 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" a écrit dans le message de news:c6ijrv$kn8$
Execusez moi encore une fois Frederic ou Isabelle en tout cas merci pour vos reponses d'avant car je ne savais pas qu'il fallait utiliser rst.recordCount ni la fonction NBVAL mais maintenant je suis confronté à un autre probleme lorsque j'utilise le recordset quelque soit la valeur de mon champs il m'affiche -1 et je ne comprends pas pourquoi et je sais pas d'ou cela peut venir c'est au niveau de ce que j'ai ecrit dans mon code MsgBox "LE NOMBRE EST :" & rst.RecordCount si vous aviez une solution à ce probleme cela m'arrangerait bien Amicalement Francisco en tout cas deja merci pour l'aide que vous m'apportez La totalité de mon code se trouve en dessous Sub EtablirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection Dim rst As New ADODB.Recordset Dim i As Integer Dim Rsql As String Dim CritereCodeProduct As String
'---------------------------------------------------- 'à ouvrir une seule fois cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source > c:psm_analyse_formulaire.mdb ;" '------------------------------------------------------------ rst.Open Rsql, cnt
Columns("A").Clear i = 0 While Not rst.EOF i = i + 1 Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct rst.MoveNext Wend MsgBox "LE NOMBRE EST :" & rst.RecordCount rst.Close Set rst = Nothing End Sub "francisco" a écrit dans le message de news: c6ih7f$ovq$
Merci Isabelle Merci Frederic pour vos reponses Amicalement Francisco "Frédéric Sigonneau" <frédé a écrit dans le message de news:
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement s'obtient avec
la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset pour
pouvoir compter les enregistrements d'une colonne
Amicalement Francisco Merci tout le monde
bonjour
recordcount doit étre précedé d'un movelast et movefirst
donc
if not rst.eof then
rst.movelast
rst.movefirts
else
'y a rien
end if
--
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" <malabar@wanadoo.fr> a écrit dans le message de news:c6ijrv$kn8$1@news-reader5.wanadoo.fr...
Execusez moi encore une fois Frederic ou Isabelle en tout cas merci pour vos
reponses d'avant car je ne savais pas qu'il fallait utiliser
rst.recordCount ni la fonction NBVAL mais maintenant je suis confronté à un
autre probleme lorsque j'utilise le recordset quelque soit la valeur de mon
champs il m'affiche -1 et je ne comprends pas pourquoi et je sais pas d'ou
cela peut venir c'est au niveau de ce que j'ai ecrit dans mon code MsgBox
"LE NOMBRE EST :" & rst.RecordCount si vous aviez une solution à ce probleme
cela m'arrangerait bien
Amicalement Francisco en tout cas deja merci pour l'aide que vous m'apportez
La totalité de mon code se trouve en dessous
Sub EtablirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim i As Integer
Dim Rsql As String
Dim CritereCodeProduct As String
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source > c:psm_analyse_formulaire.mdb ;"
'------------------------------------------------------------
rst.Open Rsql, cnt
Columns("A").Clear
i = 0
While Not rst.EOF
i = i + 1
Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct
rst.MoveNext
Wend
MsgBox "LE NOMBRE EST :" & rst.RecordCount
rst.Close
Set rst = Nothing
End Sub
"francisco" <malabar@wanadoo.fr> a écrit dans le message de news:
c6ih7f$ovq$1@news-reader1.wanadoo.fr...
Merci Isabelle Merci Frederic pour vos reponses
Amicalement Francisco
"Frédéric Sigonneau" <frédéric.sigonneau@ouanamou.fr> a écrit dans le
message de news: 408C3A20.50108@ouanamou.fr...
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement
s'obtient avec
la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset
pour
bonjour recordcount doit étre précedé d'un movelast et movefirst donc if not rst.eof then rst.movelast rst.movefirts else 'y a rien end if
-- 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" a écrit dans le message de news:c6ijrv$kn8$
Execusez moi encore une fois Frederic ou Isabelle en tout cas merci pour vos reponses d'avant car je ne savais pas qu'il fallait utiliser rst.recordCount ni la fonction NBVAL mais maintenant je suis confronté à un autre probleme lorsque j'utilise le recordset quelque soit la valeur de mon champs il m'affiche -1 et je ne comprends pas pourquoi et je sais pas d'ou cela peut venir c'est au niveau de ce que j'ai ecrit dans mon code MsgBox "LE NOMBRE EST :" & rst.RecordCount si vous aviez une solution à ce probleme cela m'arrangerait bien Amicalement Francisco en tout cas deja merci pour l'aide que vous m'apportez La totalité de mon code se trouve en dessous Sub EtablirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection Dim rst As New ADODB.Recordset Dim i As Integer Dim Rsql As String Dim CritereCodeProduct As String
'---------------------------------------------------- 'à ouvrir une seule fois cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source > c:psm_analyse_formulaire.mdb ;" '------------------------------------------------------------ rst.Open Rsql, cnt
Columns("A").Clear i = 0 While Not rst.EOF i = i + 1 Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct rst.MoveNext Wend MsgBox "LE NOMBRE EST :" & rst.RecordCount rst.Close Set rst = Nothing End Sub "francisco" a écrit dans le message de news: c6ih7f$ovq$
Merci Isabelle Merci Frederic pour vos reponses Amicalement Francisco "Frédéric Sigonneau" <frédé a écrit dans le message de news:
Bonsoir,
En supposant un Recordset rst ouvert, son nombre d'enregistrement s'obtient avec
la propriété RecordCount :
NbEnregistrements=rst.RecordCount
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
francisco a écrit:
Bonjour tout le monde
Je cherche à savoir comment je peux faire en utilisant un recordset pour
