Combien d'occurances d'un caractère dans un champ ?

Le
Jac
Bonjour à tous,

je suis à la recherche de la fonction de calcul qui me permettrait de
compter combien de fois la lettre "e" se trouve dans un champ.

Merci d'avance.

Jac
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #6394461
Salut,

"Jac"
| je suis à la recherche de la fonction de calcul qui me permettrait de
| compter combien de fois la lettre "e" se trouve dans un champ.


Une mini fonction :

Function fnHowMuch(s As Variant, f As String) As Integer
'// Si A = a remplacer vbBinaryCompare par vbTextCompare
If Len(s) > 0 Then
fnHowMuch = Len(s) - Len(Replace(s, f, "", , , vbBinaryCompare))
Else
fnHowMuch = 0
End If
End Function



et donc :
= fnHowMuch([le champ],"e")

dans une requête ou un textbox :
= fnHowMuch([le champ];"e")

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Jac
Le #6394451
Comme d'habitude, impec...

Merci

Jac

"3stone" %23P$
Salut,

"Jac"
| je suis à la recherche de la fonction de calcul qui me permettrait de
| compter combien de fois la lettre "e" se trouve dans un champ.


Une mini fonction :

Function fnHowMuch(s As Variant, f As String) As Integer
'// Si A = a remplacer vbBinaryCompare par vbTextCompare
If Len(s) > 0 Then
fnHowMuch = Len(s) - Len(Replace(s, f, "", , , vbBinaryCompare))
Else
fnHowMuch = 0
End If
End Function



et donc :
= fnHowMuch([le champ],"e")

dans une requête ou un textbox :
= fnHowMuch([le champ];"e")

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)



Publicité
Poster une réponse
Anonyme