Discussion :

[niano]

Bonjour tout le monde,

J'ai cherché sur le forum mais je n'ai rien trouvé...
Je voudrais compter le nombre d'enregistrement d'une table pour une date précise.

J'utilise un recordset:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim res as recordset
 
set res = currentddb.openrecordset ("Select count(Date) from `ma table` where Date = " & la_date_textbox & " ")

Il me semble que la requete est bonne mais je voudrais afficher le résultat dans une msgbox. Et là, je bloque...

Si quelqu'un pouvait m'aider,
merci d'avance

[Maxi-môme]

Salut niano,

Essaye plutot ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
dim res as recordset
 
set res = currentddb.openrecordset ("Select Date from ma table where Date = #" & la_date_textbox & "# ;")
 
res.movelast
res.movefirst
 
if res.recordcount <> 0 then
   Msgbox("Nombre de dates :" & res.recordcount)
else
   Msgbox("Aucune date")
endif

La propriete recordcount compte le nombre d'enregistrements d'un recordset.

[pgz]

Bonjour.

Tu pourrais essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox DCount("*","MaTable","MaDate = #" & Format(Me.txtDate,"mm/dd/yyyy") & "#")

Ou a peu-près...

Bon courage,

PGZ

[niano]

Je viens de tester vos deux solutions, et même en modifiant quelque petits points, cela ne fonctionne pas.

Les messages sont soit tous "1", soit tous "0" alors que j'ai rentré pas mal de date dans ma table.

Je continue mes test mais je ne vois pas trop comment faire...

Merci pour vos premiers éléments de réponses.

Edit: je viens de créer un table "test" avec une colonne primary key "id" et une seconde "test" (de type texte).

Avec ce code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim res as recordset
set res = currentdb.openrecordset ("select * from test")
msgbox res.recordcount

...j'obtiens soit "0" lorsque je n'ai pas d'entrée dans ma table, soit "1" lorsque j'ai une, deux ou trois entrées...

Quelqu'un a une idée ?
Peut-être faut il spécifier au recordset de lire toute la table ? ou un truc dans le style...

[Maxi-môme]

hum,

essaye de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
dim res as recordset
 
set res = currentdb.openrecordset ("Select Date from ma table where Date = #" & la_date_textbox & "# ;")
 
while not res.eof
res.movenext
wend
 
if res.recordcount <> 0 then
   Msgbox("Nombre de dates :" & res.recordcount)
else
   Msgbox("Aucune date")
endif

[pc75]

Bonjour,

Deux choses :

- 1 - Tu as un champ nommé Date => c'est un mot réservé d'Access

- 2 - Dans un clause WHERE, la date doit être au format US => mm/jj/aaaa

[niano]

Je viens de trouver (enfin vous venez de trouver ^^):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
dim res as recordset
 
set res = currentdb.openrecordset("SELECT * FROM ma_table WHERE Date = #" & me.date_textbox.value & "# ")
 
while not res.eof
res.movenext
wend
 
msgbox res.recordcount

La messagebox m'affiche bien le nombre d'enregistrement correspondant à une date précise.

Merci à tous pour votre aide.
Bon courage pour la suite.