Je n'arrive pas à résoudre ce mystère,
surtout que ça m'empêche de continuer.
pourquoi dans ce qui n'est qu'un exemple :
Set DB = Application.CurrentDb
rqt = "SuiviStatsEntr_R"
chp = "[Nouveau Dossier suivi]"
' je fais lign = de -1 à x
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
Nb = DCount(chp, rqt, chp & "=" & lign)
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
la valeur lign fonctionne c'est à dire
si le champ est oui/non ça fait de -1 à 0
si c'est une liste déroulante ça fait de 1 à x suivant le N° de ligne de la
liste,
----------------------------------------------------------------------------
et dans cet exemple (Avec N° colonne du champ et pas le nom du champ)
la valeur lign n'est pas aceptée en tant que numérique
Pour oui/non ainsi que pour une liste déroulante Access attends autre chose
que du numérique.
Public Sub Tests()
Dim DB As DAO.Database
Dim qd As DAO.QueryDef
Dim res, lign, col As Long
Set DB = CurrentDb
Set qd = DB.QueryDefs("tst_R")
For col = 1 To 2
For lign = -1 To 3
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
res = DCount(qd.Fields(col).Name, qd.Name, qd.Fields(col).Name & "=" &
lign)
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Next lign
Next col
End Sub
Ou peut bien être la différence
j'espère que je n'est pas été trop long
