Bonjour, je voudrais savoir comment forcer un champ textBox dans un formulaire à écrire en majuscule?
Merci
Bonjour, je voudrais savoir comment forcer un champ textBox dans un formulaire à écrire en majuscule?
Merci
Salut,
utiliser la fonction Ucase() dans l'evt afterUpdate
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager