Chaînes de caractères

D 15 janvier 2007 H 14:44 A Patrice MOREL

Access 97 | Compatible |
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])

Dans la même rubrique

18 février 2010 – Liste déroulante

26 janvier 2010 – Requête croisée

5 mars 2008 – Evènement sur Onglet

7 février 2008 – Astuces et pièges VBA

8 décembre 2007 – Envoi de mails

Rechercher

Traducteur

Chaînes de caractères

Dans la même rubrique

Rechercher

Traducteur

Les plus lus

5 articles au hasard

Les plus populaires