Chaînes de caractères - [PatCatNat's]

Chaînes de caractères

Article mis en ligne le 15 janvier 2007

dernière modification le 7 mars 2012

par Patrice MOREL

Access 97

Access 97 | Compatible |

Access 2003

Access 2003 | Compatible |

Majuscule et minuscules :

Il existe une fonction intégrée à access qui permet de mettre tout en MAJUSCULE, tout en minuscule ou la première lettre en Majuscule :

StrConv([Le Champ];N° de conversion)

N° de conversion :

vbUpperCase	1	Convertit la chaîne en majuscules.
vbLowerCase	2	Convertit la chaîne en minuscules.
vbProperCase	3	Convertit la première lettre de chaque mot de la chaîne en majuscule.

Le problème de la variante 3 est que jean-louis devient Jean-louis...

Une fonction à créer dans un module permet d’y remédier :

jean-louis donne alors Jean-Louis
marie louise donne Marie Louise

Fonction à mettre dans un module classique :

Function Maj(AnyValue As Variant) As Variant
Dim ptr As Integer
Dim theString As String
Dim currChar As String, prevChar As String

If IsNull(AnyValue) Then
Exit Function
End If

theString = CStr(AnyValue)
For ptr = 1 To Len(theString)
currChar = Mid$(theString, ptr, 1)

Select Case prevChar

Case "A" To "Z", "a" To "z"
Mid(theString, ptr, 1) = LCase(currChar)

Case Else
Mid(theString, ptr, 1) = UCase(currChar)

End Select
prevChar = currChar
Next ptr
Maj = CVar(theString)
End Function

Appel de la fonction :

Maj([MonControle])