Discussion :

[Cerisier]

J'ai le problème suivant
nom est un champ texte (30) de la table adh
je cherche à compter les personnes dont le nom est entré par inputbox
j'ai essayé plusieurs possibilités, qui sont toutes acceptées en syntaxe, mais la valeur obtenue man est toujours = 0
je liste 3 des possibilités essayées avec valeur introduite = "coudert" qui devraient me donner man = 2 et renvoient man = 0
la 4ème instruction, elle, me renvoie bien man = 2

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande0_Click()
 Dim man, reponse  As String
 reponse = InputBox("saisissez le nom")
1/ man = DCount("[no_adh]", "[adh]", "[nom] =  'reponse' ")
2/ man = DCount("[no_adh]", "[adh]", "[nom] = ' " & reponse & " ' ")
3/ man = DCount("[no_adh]", "[adh]", "[nom] =  " & reponse)
4/ man = DCount("[no_adh]", "[adh]", "[nom] =   'coudert'")
Debug.Print man
End Sub

à noter que avec un champ numérique no_org à la place du nom, je n'ai pas de problème, l'instruction suivante fonctionne bien

Code :

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

1
2
 
man = DCount("[no_adh]", "[adh]", "[no_org] = " & reponse)

Et merci par avance à la personne qui m'apportera son aide

[Flyoss]

Bonjour cerisier,

Je te proposerai la solution n°2 mais sans les espaces comme ceci

Code :

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

man = DCount("[no_adh]", "[adh]", "[nom] = '" & reponse & "' ")