Discussion :

[crovette51101]

Bonjour à tous!

J'ai un probléme, j'ai un champs contenant un code d'anomalie, chaque anomalie est répertorié par un code allant de A à K, si le produit posséde plusieurs anomalie, on trouvera dans le champs, par exemple ADBAFF si on a rencontré 2 fois l'anomalie A et F et 1 fois l'anomalie D et B!
Mon boulot et de faire un champs par anomalie donc un champs A, un B, un C,...,un K afin de mettre le nombre de fois ou l'erreur est apparu!
Le champs anomalie peut contenir jusqu'a 10 caractéres donc 10 anomalies!

Existe t il un requete qui pourrait compter le nombre de caractere A contenu dans le champs Anomalie puis de B contenu dans ce champs....????????

Sinon je devrai faire:


IIF(left(Anomalie,1)="A" AND MID(Anomalie, 2, 1)="A"....ANDMID(Anomalie, 10,1) ="A", ChampsA = 10, IIF(left(Anomalie).....



et faire tout les cas possible comme ca!!

sinon j'ai pensé a incrémenté X qui serait la variable nombre de A mais je ne sais pas posé x dedans!

merci de m'aider!

[Tofalu]

Il faut créer une fonction VBA

Code :

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

1
2
3
4
5
6
7
8
Function CompteChaine(strChaine As String, strCherche As String) As Integer
Dim i As Integer
CompteChaine = -1
Do
    i = InStr(i + 1, strChaine, strCherche, vbTextCompare)
    CompteChaine = CompteChaine + 1
Loop Until i = 0
End Function

Que tu appelles dans ta requête par

Code :

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

SELECT CompteChaine(MonChamp,"A") FROM MATABLE

[crovette51101]

Merci pour tout mais ca ne fonctionne pas, je fais ce que tu m'as dit et quand j'exécute j'obtiens le message:

"Fonction 'CompteChaine' non definie dans l'expression"

[Tofalu]

Tu as bien mis la fonction dans un module ?