Discussion :

[moilou2]

Bonjour, je voudrais savoir comment forcer un champ textBox dans un formulaire à écrire en majuscule?

Merci

[micniv]

Salut,
utiliser la fonction Ucase() dans l'evt afterUpdate

[Renardo]

Bonjour
dans la faq tu aurais trouvé ceci

auteur : FRED.G
Il existe plusieurs solutions qui affectent soit le format d'affichage des données, soit les données elles-mêmes.


Formatage de l'affichage seulement :

Il suffit d'utiliser la propriété Format d'un champ de table ou requête ou d'un contrôle de formulaire ou d'état.
Valeur de la propriété pour une seule lettre, en majuscule : Valeur de la propriété pour une seule lettre, en minuscule :


Conversion des données :

Code :

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

1
2
3
4
Fonction Ucase$() -> Renvoie une valeur de type String contenant la chaîne indiquée, convertie en majuscules. (cf. Aide Access) Exemple : 
 
Dim MaVariable As String
MaVariable = Ucase$("develoPPEZ123")

MaVariable reçoit "DEVELOPPEZ123"
Mise en minuscule -> Lcase$()

Code :

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

1
2
3
4
Fonction Strconv() Renvoie une valeur de type Variant (String) 
 
Dim MaVariable As String
MaVariable = Strconv("develoPPEZ123", vbUpperCase)

MaVariable reçoit "DEVELOPPEZ123" Mise en minuscule -> vbLowerCase au lieu de vbUpperCase

Code :

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

1
2
3
4
Fonction Format(). Le deuxième argument prend une chaîne identique à la propriété Format. Cependant le résultat renvoyé sera une réelle conversion : 
 
Dim MaVariable As String
MaVariable = Format("BONJOUR", "<")

La variable "MaVariable" reçoit le texte "bonjour"

On peut également utiliser la propriété Masque de saisie (Inputmask) d'un champ de table ou d'un contrôle de formulaire.
Valeur de la propriété pour une seule lettre, en majuscule : >C
Valeur de la propriété pour une seule lettre, en minuscule : <C
Exemple : Pour avoir deux lettres en majuscules suivies de trois lettres en minuscules on aura : >CC<CCC
Cependant gérer la casse au moment de la saisie à l'aide cette propriété n'est pas la solution la plus souple car il faut connaître à l'avance le nombre maximum de caractère pouvant être saisis.
Pour la saisie via un formulaire, préférer plutôt une conversion au moment de l'événement Sur touche Activée :

Code :

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

1
2
3
Private Sub Moncontrôle_KeyPress(KeyAscii As Integer)
  KeyAscii = Asc(UCase$(Chr(KeyAscii)))
End Sub