Discussion :

[benji971]

Bonjour,

imaginons la requête toto qui contient 4 champs

id | cat | cat parente | Ma Fonction
1 | cat1 | | Mafonction([cat])
2 | cat2 | cat1 | etc...
3 | cat3 | cat2 |
4 | cat4 | cat2 |
5 | cat5 | cat2 |

j'ai crée une requête qui utilise cette table et j'aimerais que pour chaque ligne, on demande de compter le nombre de sous catégorie.
j'ai créer mon champ qui contient ma fonction donnant le résultat mais elle renvoie toujours 0. je dois avoir un problème de syntaxe.
Ici j'aimerais donc avoir comme résultat:

id | cat | cat parente | Ma Fonction
1 | cat1 | | 1
2 | cat2 | cat1 | 3
3 | cat3 | cat2 | 0
4 | cat4 | cat2 | 0
5 | cat5 | cat2 | 0

Je précise que j'ai essayé avec ou sans les [ pour appeler mes critères mais ça change rien apparemment. Ou alors j'ai mal tapé la fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function ComptageTriageCategorie(Varcat As Variant) As Long
 
Dim NomIndex As String
Dim NomReqAccess As String
NomIndex = "cat parente"
NomReqAccess = "[toto]"
Dim CompteLigneReq2 As Variant
 
CompteLigneReq2 = DCount("[" & NomIndex & "]", NomReqAccess, "[" & NomIndex & "]" = Varcat)
 
ComptageTriageCategorie = CompteLigneReq2
 
End Function

Si quelqu'un pouvait m'aider ça me dépannerait bien merci !

[benji971]

Alors pour ceux que ça intéresse il fallait trouver la bonne syntaxe pour inclure la variable utilisée dans la fonction.
En gros il fallait rajouter les ' et encadrer mes variables par des " & & " afin qu'elle soit reconnue comme variable.

Comme ça, ça marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function ComptageTriageCategorie(Catégorie As Variant) As Long
 
Dim NomIndex As String
Dim NomReqAccess As String
NomIndex = "[cat parente]"
NomReqAccess = "[toto]"
Dim CompteLigneReq2 As Variant
 
'CompteLigneReq2 = DCount("*", NomReqAccess, "[Cat parente]='" & Catégorie & "'")
CompteLigneReq2 = DCount("*", NomReqAccess, "" & NomIndex & "='" & Catégorie & "'")
 
ComptageTriageCategorie = CompteLigneReq2
 
End Function