donc ici ton champ c'est qd.fields(X).name ta requete : qd.name ton critère qd.fields(x).name & "=" & lign Il faut bien sûr que tu ais référencer DAO. (dans vbe outilsréférence coché microsoft dao 3.XX object library)
MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name &
" > > 2") & "qui correspondent à votre critère.'
Cette formule fonctionne mais il faut la mettre sur une seule ligne bien sûr mais je ne l'avais mise qu'à titre d'exemple.
A + Damien.
"Sergio" a écrit dans le message news:
Salut Je vais essayer l'adresse de news chez moi, merci.
J'ai éssayé ton petit programme mais l'instruction msgbox s'est collée en rouge et je ne trouve pas la solution pour la faire marcher. J'ai remplacé le nom de la requête par la mienne mais pour la fonction DCount (je suppose que le problème vient de là) je ne comprends pas tout, alors pour le faire marcher, dur-dur.
A+ Sergio
"Damien Mermoz" a écrit dans le message de news:
Salut,
bon d'abord connecte toi au serveur de news de ms pour consulter le ng. news://msnews.microsoft.com
Pour ton problème, je crois que j'étais pas si loin la dernière fois mais
ma
solution était pour les champs d'une table, voilà ce que je te propose :
Private Sub Commande26_Click() Dim db As DAO.Database Dim qd As DAO.QueryDef Dim intest As Integer Set db = CurrentDb Set qd = db.QueryDefs("R_test")
'access numérote les champs à partir de 0 MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name &
" > > 2") & "qui correspondent à votre critère.'
End Sub
Voilà ce que j'ai testé qui fonctionne, donc t'a plus qu'à faire une boucle
pour passer en revue tous les champs de ta requête. C'était laborieux mais ca va finir par marcher :)
A + Damien.
Re:
Dcount("Ton champ", "ta requete", "ton critère")
donc ici ton champ c'est qd.fields(X).name
ta requete : qd.name
ton critère qd.fields(x).name & "=" & lign
Il faut bien sûr que tu ais référencer DAO. (dans vbe outilsréférence
coché microsoft dao 3.XX object library)
MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name &
" > > 2") & "qui correspondent à votre critère.'
Cette formule fonctionne mais il faut la mettre sur une seule ligne bien sûr
mais je ne l'avais mise qu'à titre d'exemple.
A +
Damien.
"Sergio" <kjhklj@aol.com> a écrit dans le message news:
OdP3z6wwDHA.1272@TK2MSFTNGP12.phx.gbl...
Salut
Je vais essayer l'adresse de news chez moi, merci.
J'ai éssayé ton petit programme mais l'instruction msgbox s'est collée en
rouge et je ne trouve pas la solution pour la faire marcher.
J'ai remplacé le nom de la requête par la mienne mais pour la fonction
DCount (je suppose que le problème vient de là) je ne comprends pas tout,
alors pour le faire marcher, dur-dur.
A+
Sergio
"Damien Mermoz" <ns_mermoz.damien@wanadoo.fr> a écrit dans le message de
news: eRJWwsvwDHA.1760@TK2MSFTNGP10.phx.gbl...
Salut,
bon d'abord connecte toi au serveur de news de ms pour consulter le ng.
news://msnews.microsoft.com
Pour ton problème, je crois que j'étais pas si loin la dernière fois
mais
ma
solution était pour les champs d'une table, voilà ce que je te propose :
Private Sub Commande26_Click()
Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim intest As Integer
Set db = CurrentDb
Set qd = db.QueryDefs("R_test")
'access numérote les champs à partir de 0
MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name
&
" > > 2") & "qui correspondent à votre critère.'
End Sub
Voilà ce que j'ai testé qui fonctionne, donc t'a plus qu'à faire une
boucle
pour passer en revue tous les champs de ta requête.
C'était laborieux mais ca va finir par marcher :)
donc ici ton champ c'est qd.fields(X).name ta requete : qd.name ton critère qd.fields(x).name & "=" & lign Il faut bien sûr que tu ais référencer DAO. (dans vbe outilsréférence coché microsoft dao 3.XX object library)
MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name &
" > > 2") & "qui correspondent à votre critère.'
Cette formule fonctionne mais il faut la mettre sur une seule ligne bien sûr mais je ne l'avais mise qu'à titre d'exemple.
A + Damien.
"Sergio" a écrit dans le message news:
Salut Je vais essayer l'adresse de news chez moi, merci.
J'ai éssayé ton petit programme mais l'instruction msgbox s'est collée en rouge et je ne trouve pas la solution pour la faire marcher. J'ai remplacé le nom de la requête par la mienne mais pour la fonction DCount (je suppose que le problème vient de là) je ne comprends pas tout, alors pour le faire marcher, dur-dur.
A+ Sergio
"Damien Mermoz" a écrit dans le message de news:
Salut,
bon d'abord connecte toi au serveur de news de ms pour consulter le ng. news://msnews.microsoft.com
Pour ton problème, je crois que j'étais pas si loin la dernière fois mais
ma
solution était pour les champs d'une table, voilà ce que je te propose :
Private Sub Commande26_Click() Dim db As DAO.Database Dim qd As DAO.QueryDef Dim intest As Integer Set db = CurrentDb Set qd = db.QueryDefs("R_test")
'access numérote les champs à partir de 0 MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name &
" > > 2") & "qui correspondent à votre critère.'
End Sub
Voilà ce que j'ai testé qui fonctionne, donc t'a plus qu'à faire une boucle
pour passer en revue tous les champs de ta requête. C'était laborieux mais ca va finir par marcher :)
A + Damien.
Sergio
Ouais! je commence à comprendre quelques petites choses.
Mais je n'arrive pas à enlever le message d'erreur : 3075 Erreur de syntaxe (opérateur absent) dans l'expression Count (Nom de Mon Champ).
Si je comprenais ce qu'il veut dire!
Pourtant la formule devrait fonctionner et me sortir au moins un petit quelquechose!
A+ Sergio
"Damien Mermoz" a écrit dans le message de news:
Re:
Dcount("Ton champ", "ta requete", "ton critère")
donc ici ton champ c'est qd.fields(X).name ta requete : qd.name ton critère qd.fields(x).name & "=" & lign Il faut bien sûr que tu ais référencer DAO. (dans vbe outilsréférence coché microsoft dao 3.XX object library)
MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name &
Cette formule fonctionne mais il faut la mettre sur une seule ligne bien sûr
mais je ne l'avais mise qu'à titre d'exemple.
A + Damien.
Ouais! je commence à comprendre quelques petites choses.
Mais je n'arrive pas à enlever le message d'erreur : 3075
Erreur de syntaxe (opérateur absent) dans l'expression
Count (Nom de Mon Champ).
Si je comprenais ce qu'il veut dire!
Pourtant la formule devrait fonctionner et me sortir au moins un petit
quelquechose!
A+
Sergio
"Damien Mermoz" <ns_mermoz.damien@wanadoo.fr> a écrit dans le message de
news: Oh9CdHxwDHA.2460@TK2MSFTNGP10.phx.gbl...
Re:
Dcount("Ton champ", "ta requete", "ton critère")
donc ici ton champ c'est qd.fields(X).name
ta requete : qd.name
ton critère qd.fields(x).name & "=" & lign
Il faut bien sûr que tu ais référencer DAO. (dans vbe outilsréférence
coché microsoft dao 3.XX object library)
MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name &
Ouais! je commence à comprendre quelques petites choses.
Mais je n'arrive pas à enlever le message d'erreur : 3075 Erreur de syntaxe (opérateur absent) dans l'expression Count (Nom de Mon Champ).
Si je comprenais ce qu'il veut dire!
Pourtant la formule devrait fonctionner et me sortir au moins un petit quelquechose!
A+ Sergio
"Damien Mermoz" a écrit dans le message de news:
Re:
Dcount("Ton champ", "ta requete", "ton critère")
donc ici ton champ c'est qd.fields(X).name ta requete : qd.name ton critère qd.fields(x).name & "=" & lign Il faut bien sûr que tu ais référencer DAO. (dans vbe outilsréférence coché microsoft dao 3.XX object library)
MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name &
Cette formule fonctionne mais il faut la mettre sur une seule ligne bien sûr
mais je ne l'avais mise qu'à titre d'exemple.
A + Damien.
Damien Mermoz
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
A + Damien.
"Sergio" a écrit dans le message news:
Ouais! je commence à comprendre quelques petites choses.
Mais je n'arrive pas à enlever le message d'erreur : 3075 Erreur de syntaxe (opérateur absent) dans l'expression Count (Nom de Mon Champ).
Si je comprenais ce qu'il veut dire!
Pourtant la formule devrait fonctionner et me sortir au moins un petit quelquechose!
A+ Sergio
"Damien Mermoz" a écrit dans le message de news:
Re:
Dcount("Ton champ", "ta requete", "ton critère")
donc ici ton champ c'est qd.fields(X).name ta requete : qd.name ton critère qd.fields(x).name & "=" & lign Il faut bien sûr que tu ais référencer DAO. (dans vbe outilsréférence coché microsoft dao 3.XX object library)
MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name &
Cette formule fonctionne mais il faut la mettre sur une seule ligne bien sûr
mais je ne l'avais mise qu'à titre d'exemple.
A + Damien.
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
A +
Damien.
"Sergio" <kjhklj@aol.com> a écrit dans le message news:
O0xgQhxwDHA.3224@tk2msftngp13.phx.gbl...
Ouais! je commence à comprendre quelques petites choses.
Mais je n'arrive pas à enlever le message d'erreur : 3075
Erreur de syntaxe (opérateur absent) dans l'expression
Count (Nom de Mon Champ).
Si je comprenais ce qu'il veut dire!
Pourtant la formule devrait fonctionner et me sortir au moins un petit
quelquechose!
A+
Sergio
"Damien Mermoz" <ns_mermoz.damien@wanadoo.fr> a écrit dans le message de
news: Oh9CdHxwDHA.2460@TK2MSFTNGP10.phx.gbl...
Re:
Dcount("Ton champ", "ta requete", "ton critère")
donc ici ton champ c'est qd.fields(X).name
ta requete : qd.name
ton critère qd.fields(x).name & "=" & lign
Il faut bien sûr que tu ais référencer DAO. (dans vbe outilsréférence
coché microsoft dao 3.XX object library)
MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name
&
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
A + Damien.
"Sergio" a écrit dans le message news:
Ouais! je commence à comprendre quelques petites choses.
Mais je n'arrive pas à enlever le message d'erreur : 3075 Erreur de syntaxe (opérateur absent) dans l'expression Count (Nom de Mon Champ).
Si je comprenais ce qu'il veut dire!
Pourtant la formule devrait fonctionner et me sortir au moins un petit quelquechose!
A+ Sergio
"Damien Mermoz" a écrit dans le message de news:
Re:
Dcount("Ton champ", "ta requete", "ton critère")
donc ici ton champ c'est qd.fields(X).name ta requete : qd.name ton critère qd.fields(x).name & "=" & lign Il faut bien sûr que tu ais référencer DAO. (dans vbe outilsréférence coché microsoft dao 3.XX object library)
MsgBox "il y a " & DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name &
Cette formule fonctionne mais il faut la mettre sur une seule ligne bien sûr
mais je ne l'avais mise qu'à titre d'exemple.
A + Damien.
Sergio
Merci d'être aussi patient! Voila mon bout d'essai xxxxxxxxxxxxxxxxxxxxxx Public Sub Tests() Dim DB As DAO.Database Dim qd As DAO.QueryDef Dim res As Long
Dim intest As Integer Set DB = CurrentDb Set qd = DB.QueryDefs("suiviABC_R")
res = DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name & "= 2")
End Sub xxxxxxxxxxxxxxxxxxxxxxxxx Je n'ai pas compris à quoi sert 'intest' ni pourquoi on met 'DAO' mais si j'arrive à faire marcher la formule c'est le principal.
A+ Sergio "Damien Mermoz" a écrit dans le message de news:
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
A + Damien.
Merci d'être aussi patient!
Voila mon bout d'essai
xxxxxxxxxxxxxxxxxxxxxx
Public Sub Tests()
Dim DB As DAO.Database
Dim qd As DAO.QueryDef
Dim res As Long
Dim intest As Integer
Set DB = CurrentDb
Set qd = DB.QueryDefs("suiviABC_R")
res = DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name & "= 2")
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxx
Je n'ai pas compris à quoi sert 'intest' ni pourquoi on met 'DAO' mais si
j'arrive à faire marcher la formule c'est le principal.
A+ Sergio
"Damien Mermoz" <ns_mermoz.damien@wanadoo.fr> a écrit dans le message de
news: u8YMeuxwDHA.3220@tk2msftngp13.phx.gbl...
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
Merci d'être aussi patient! Voila mon bout d'essai xxxxxxxxxxxxxxxxxxxxxx Public Sub Tests() Dim DB As DAO.Database Dim qd As DAO.QueryDef Dim res As Long
Dim intest As Integer Set DB = CurrentDb Set qd = DB.QueryDefs("suiviABC_R")
res = DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name & "= 2")
End Sub xxxxxxxxxxxxxxxxxxxxxxxxx Je n'ai pas compris à quoi sert 'intest' ni pourquoi on met 'DAO' mais si j'arrive à faire marcher la formule c'est le principal.
A+ Sergio "Damien Mermoz" a écrit dans le message de news:
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
A + Damien.
Damien Mermoz
RE:
Ca devrait marcher : on met DAO pour par confondre avec ADO, ca dépend de ta version d'access mais sur ce news on utilise surtout DAO. j'avais mis un intest pour tester avec une variable en critère mais finalement je ne l'ai pas fait :)
Ton champs est bien numérique ?
Bah au pire tu compacte ta base et tu la compresse en zip si ca fait moins de 2 mo tu peux me l'envoyer
en enlevant le ns_
je regarderai si possible dans la soirée.
A + Damien
"Sergio" a écrit dans le message news:
Merci d'être aussi patient! Voila mon bout d'essai xxxxxxxxxxxxxxxxxxxxxx Public Sub Tests() Dim DB As DAO.Database Dim qd As DAO.QueryDef Dim res As Long
Dim intest As Integer Set DB = CurrentDb Set qd = DB.QueryDefs("suiviABC_R")
res = DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name & "= 2")
End Sub xxxxxxxxxxxxxxxxxxxxxxxxx Je n'ai pas compris à quoi sert 'intest' ni pourquoi on met 'DAO' mais si
j'arrive à faire marcher la formule c'est le principal.
A+ Sergio "Damien Mermoz" a écrit dans le message de news:
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
A + Damien.
RE:
Ca devrait marcher :
on met DAO pour par confondre avec ADO, ca dépend de ta version d'access
mais sur ce news on utilise surtout DAO.
j'avais mis un intest pour tester avec une variable en critère mais
finalement je ne l'ai pas fait :)
Ton champs est bien numérique ?
Bah au pire tu compacte ta base et tu la compresse en zip
si ca fait moins de 2 mo tu peux me l'envoyer
ns_mermoz.damien@wanadoo.fr
en enlevant le ns_
je regarderai si possible dans la soirée.
A +
Damien
"Sergio" <kjhklj@aol.com> a écrit dans le message news:
e8R1R2xwDHA.3224@tk2msftngp13.phx.gbl...
Merci d'être aussi patient!
Voila mon bout d'essai
xxxxxxxxxxxxxxxxxxxxxx
Public Sub Tests()
Dim DB As DAO.Database
Dim qd As DAO.QueryDef
Dim res As Long
Dim intest As Integer
Set DB = CurrentDb
Set qd = DB.QueryDefs("suiviABC_R")
res = DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name & "= 2")
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxx
Je n'ai pas compris à quoi sert 'intest' ni pourquoi on met 'DAO' mais
si
j'arrive à faire marcher la formule c'est le principal.
A+ Sergio
"Damien Mermoz" <ns_mermoz.damien@wanadoo.fr> a écrit dans le message de
news: u8YMeuxwDHA.3220@tk2msftngp13.phx.gbl...
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
Ca devrait marcher : on met DAO pour par confondre avec ADO, ca dépend de ta version d'access mais sur ce news on utilise surtout DAO. j'avais mis un intest pour tester avec une variable en critère mais finalement je ne l'ai pas fait :)
Ton champs est bien numérique ?
Bah au pire tu compacte ta base et tu la compresse en zip si ca fait moins de 2 mo tu peux me l'envoyer
en enlevant le ns_
je regarderai si possible dans la soirée.
A + Damien
"Sergio" a écrit dans le message news:
Merci d'être aussi patient! Voila mon bout d'essai xxxxxxxxxxxxxxxxxxxxxx Public Sub Tests() Dim DB As DAO.Database Dim qd As DAO.QueryDef Dim res As Long
Dim intest As Integer Set DB = CurrentDb Set qd = DB.QueryDefs("suiviABC_R")
res = DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name & "= 2")
End Sub xxxxxxxxxxxxxxxxxxxxxxxxx Je n'ai pas compris à quoi sert 'intest' ni pourquoi on met 'DAO' mais si
j'arrive à faire marcher la formule c'est le principal.
A+ Sergio "Damien Mermoz" a écrit dans le message de news:
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
A + Damien.
Sergio
Merci, mais ma pauvre petite base pèse déja plus de 6 Méga Elle a pris un peu de poids pour son age mais elle est bien nourrie c'est le principal.
Blague à part je vais vérifier les valeurs. Les champs sont soit "true/false" soit une liste de champs imposée (mais en string) donc je pensais que ça sortait sous forme de numérique
-1 et 0 pour true/false et 1 à x pour la liste
Je vais donc vérifier tout ça. Et merci pour tout.
A+ Sergio
"Damien Mermoz" a écrit dans le message de news:
RE:
Ca devrait marcher : on met DAO pour par confondre avec ADO, ca dépend de ta version d'access mais sur ce news on utilise surtout DAO. j'avais mis un intest pour tester avec une variable en critère mais finalement je ne l'ai pas fait :)
Ton champs est bien numérique ?
Bah au pire tu compacte ta base et tu la compresse en zip si ca fait moins de 2 mo tu peux me l'envoyer
en enlevant le ns_
je regarderai si possible dans la soirée.
A + Damien
"Sergio" a écrit dans le message news:
Merci d'être aussi patient! Voila mon bout d'essai xxxxxxxxxxxxxxxxxxxxxx Public Sub Tests() Dim DB As DAO.Database Dim qd As DAO.QueryDef Dim res As Long
Dim intest As Integer Set DB = CurrentDb Set qd = DB.QueryDefs("suiviABC_R")
res = DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name & "= 2")
End Sub xxxxxxxxxxxxxxxxxxxxxxxxx Je n'ai pas compris à quoi sert 'intest' ni pourquoi on met 'DAO' mais si
j'arrive à faire marcher la formule c'est le principal.
A+ Sergio "Damien Mermoz" a écrit dans le message de news:
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
A + Damien.
Merci, mais ma pauvre petite base pèse déja plus de 6 Méga
Elle a pris un peu de poids pour son age mais elle est bien nourrie c'est le
principal.
Blague à part je vais vérifier les valeurs.
Les champs sont soit "true/false" soit une liste de champs imposée (mais en
string) donc je pensais que ça sortait sous forme de numérique
-1 et 0 pour true/false
et 1 à x pour la liste
Je vais donc vérifier tout ça.
Et merci pour tout.
A+
Sergio
"Damien Mermoz" <ns_mermoz.damien@wanadoo.fr> a écrit dans le message de
news: OYfm1FywDHA.1984@TK2MSFTNGP09.phx.gbl...
RE:
Ca devrait marcher :
on met DAO pour par confondre avec ADO, ca dépend de ta version d'access
mais sur ce news on utilise surtout DAO.
j'avais mis un intest pour tester avec une variable en critère mais
finalement je ne l'ai pas fait :)
Ton champs est bien numérique ?
Bah au pire tu compacte ta base et tu la compresse en zip
si ca fait moins de 2 mo tu peux me l'envoyer
ns_mermoz.damien@wanadoo.fr
en enlevant le ns_
je regarderai si possible dans la soirée.
A +
Damien
"Sergio" <kjhklj@aol.com> a écrit dans le message news:
e8R1R2xwDHA.3224@tk2msftngp13.phx.gbl...
Merci d'être aussi patient!
Voila mon bout d'essai
xxxxxxxxxxxxxxxxxxxxxx
Public Sub Tests()
Dim DB As DAO.Database
Dim qd As DAO.QueryDef
Dim res As Long
Dim intest As Integer
Set DB = CurrentDb
Set qd = DB.QueryDefs("suiviABC_R")
res = DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name & "= 2")
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxx
Je n'ai pas compris à quoi sert 'intest' ni pourquoi on met 'DAO' mais
si
j'arrive à faire marcher la formule c'est le principal.
A+ Sergio
"Damien Mermoz" <ns_mermoz.damien@wanadoo.fr> a écrit dans le message de
news: u8YMeuxwDHA.3220@tk2msftngp13.phx.gbl...
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
Merci, mais ma pauvre petite base pèse déja plus de 6 Méga Elle a pris un peu de poids pour son age mais elle est bien nourrie c'est le principal.
Blague à part je vais vérifier les valeurs. Les champs sont soit "true/false" soit une liste de champs imposée (mais en string) donc je pensais que ça sortait sous forme de numérique
-1 et 0 pour true/false et 1 à x pour la liste
Je vais donc vérifier tout ça. Et merci pour tout.
A+ Sergio
"Damien Mermoz" a écrit dans le message de news:
RE:
Ca devrait marcher : on met DAO pour par confondre avec ADO, ca dépend de ta version d'access mais sur ce news on utilise surtout DAO. j'avais mis un intest pour tester avec une variable en critère mais finalement je ne l'ai pas fait :)
Ton champs est bien numérique ?
Bah au pire tu compacte ta base et tu la compresse en zip si ca fait moins de 2 mo tu peux me l'envoyer
en enlevant le ns_
je regarderai si possible dans la soirée.
A + Damien
"Sergio" a écrit dans le message news:
Merci d'être aussi patient! Voila mon bout d'essai xxxxxxxxxxxxxxxxxxxxxx Public Sub Tests() Dim DB As DAO.Database Dim qd As DAO.QueryDef Dim res As Long
Dim intest As Integer Set DB = CurrentDb Set qd = DB.QueryDefs("suiviABC_R")
res = DCount(qd.Fields(0).Name, qd.Name, qd.Fields(0).Name & "= 2")
End Sub xxxxxxxxxxxxxxxxxxxxxxxxx Je n'ai pas compris à quoi sert 'intest' ni pourquoi on met 'DAO' mais si
j'arrive à faire marcher la formule c'est le principal.
A+ Sergio "Damien Mermoz" a écrit dans le message de news:
Montre ton code dans sa totalité. Je peux pas te répondre comme ça.
