Discussion :

[desilo]

Sous Access, Je voudrais ressortir le nombre d'agent ayant un prénom saisi
Mais mon MsgBox me renvoie rien.
Pouvez-vous me corriger svp

Code :

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

CurrentDb.OpenRecordset ("SELECT count(code_ag) as Nb FROM AGENT where prenom = '"&prenom.value&"';")

MsgBox Nb

[mikeGo20]

Il y a erreur dans le code

Code :

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

1
2
3
4
5
 
Dim MaTable as Recordset
Set MaTable=CurrentDb.OpenRecordset ("SELECT count(code_ag) as Nb FROM AGENT where prenom = '" & Me.prenom & "'")
MsgBox MaTable!Nb
MaTable.Close

tu pourrais également utiliser DCount()

Code :

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

1
2
3
4
 
Dim tmpValue As Variant
tmpValue = DCount("[code_ag]", "AGENT", "prenom ='" & Me.prenom & "'")
MsgBox tmpValue

[desilo]

Lorsque j'essaye le code ci-dessous, j'ai un msg d'erreur 'incompatibilité de type.
Help svp

Code :

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

1
2
3
4
5
 
Dim MaTable as Recordset
Set MaTable=CurrentDb.OpenRecordset ("SELECT count(code_ag) as Nb FROM AGENT where prenom = '" & Me.prenom & "'")
MsgBox MaTable!Nb
MaTable.Close

[Gabout]

Bonjour,

Cela devrait également fonctionner

Code :

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

x = dcount("*", "AGENT", "len([prenom])>0")

A+

[vodiem]

salut à tous et bienvenu desilo,

il ne faut pas utiliser un recordset pour cela mais si tu l'utilises, tu affectes ton recordset à une variable par ex:

Code :

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

set rs=CurrentDb.OpenRecordset ...

et tu lis ton recordset:

Code :

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

msgbox rs![nb]

je te recommande d'utiliser dcount() (cf <F1>):

Code :

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

msgbox dcount("code_ag","AGENT","prenom = '"&prenom.value&"'")

[vodiem]

desilo, il n'est pas utile d'ouvrir plusieur discution sur le même sujet. cf ici
gabout> je ne crois pas:

... where prenom = '"&prenom.value&"';")

desilo> essaie avec: "... & CStr(Me.prenom) & ..."
et n'oublie pas le doublage de l'apostrophe et des guillemets!
cf fonction replace() <F1>.

mais comme te le dis mikeGo20 utilise plutot le dcount().