Zone de texte : limité le nombre de carractère saisie
4 réponses
Rouge_XIII
Bonsoir,
Dans un formulaire j'ai crée par la boîte à outil une zone de texte. Dans
les propriété j'y ai ajouté un masque de saisie "mot de passe". J'aimerai que
le nombre de carractère qui y sera saisie soit limité à 13.
Comment faire ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
Un truc comme ça à peaufiner (ne prend pas en charge la touche Shift pour les majuscules mais tient compte de la touche Caps Lock)
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer) Static cpt As Integer If KeyCode = 8 Then cpt = cpt - 1 If cpt < 0 Then cpt = 0 ElseIf KeyCode = 46 And Texte0.SelLength > 0 Then cpt = cpt - Texte0.SelLength ElseIf (KeyCode = 46 And Texte0.SelLength = 0) Or KeyCode = 20 Then Exit Sub ElseIf cpt < 13 Then cpt = cpt + 1 Else MsgBox "pw trop long" KeyCode = 0 cpt = 13 End If End Sub
Bonsoir, Dans un formulaire j'ai crée par la boîte à outil une zone de texte. Dans les propriété j'y ai ajouté un masque de saisie "mot de passe". J'aimerai que le nombre de carractère qui y sera saisie soit limité à 13. Comment faire ?
Merci pour vos réponses. Cdt.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Un truc comme ça à peaufiner (ne prend pas en charge la touche Shift
pour les majuscules mais tient compte de la touche Caps Lock)
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer)
Static cpt As Integer
If KeyCode = 8 Then
cpt = cpt - 1
If cpt < 0 Then cpt = 0
ElseIf KeyCode = 46 And Texte0.SelLength > 0 Then
cpt = cpt - Texte0.SelLength
ElseIf (KeyCode = 46 And Texte0.SelLength = 0) Or KeyCode = 20 Then
Exit Sub
ElseIf cpt < 13 Then
cpt = cpt + 1
Else
MsgBox "pw trop long"
KeyCode = 0
cpt = 13
End If
End Sub
Bonsoir,
Dans un formulaire j'ai crée par la boîte à outil une zone de texte. Dans
les propriété j'y ai ajouté un masque de saisie "mot de passe". J'aimerai que
le nombre de carractère qui y sera saisie soit limité à 13.
Comment faire ?
Merci pour vos réponses.
Cdt.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Un truc comme ça à peaufiner (ne prend pas en charge la touche Shift pour les majuscules mais tient compte de la touche Caps Lock)
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer) Static cpt As Integer If KeyCode = 8 Then cpt = cpt - 1 If cpt < 0 Then cpt = 0 ElseIf KeyCode = 46 And Texte0.SelLength > 0 Then cpt = cpt - Texte0.SelLength ElseIf (KeyCode = 46 And Texte0.SelLength = 0) Or KeyCode = 20 Then Exit Sub ElseIf cpt < 13 Then cpt = cpt + 1 Else MsgBox "pw trop long" KeyCode = 0 cpt = 13 End If End Sub
Bonsoir, Dans un formulaire j'ai crée par la boîte à outil une zone de texte. Dans les propriété j'y ai ajouté un masque de saisie "mot de passe". J'aimerai que le nombre de carractère qui y sera saisie soit limité à 13. Comment faire ?
Merci pour vos réponses. Cdt.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Rouge_XIII
Bonjour,
Après un petit peaufinement du code que tu m'as donné ce dernier fonctionne très bien ! merci Eric.
J'aimerai, celà dit, avoir une petite explication concernant le "KeyCode". A quoi correspond t'il exactement ? (à mon avis il ne s'agit pas de la table ASCII ?). J'ai recherché dans l'aide en ligne mais il me dit que "le mot clé est introuvable". D'où l'objet de ma question !
Encore une fois un grand merci. Cdt.
Rouge_XIII
Bonjour,
Après un petit peaufinement du code que tu m'as donné ce dernier fonctionne
très bien ! merci Eric.
J'aimerai, celà dit, avoir une petite explication concernant le "KeyCode". A
quoi correspond t'il exactement ? (à mon avis il ne s'agit pas de la table
ASCII ?). J'ai recherché dans l'aide en ligne mais il me dit que "le mot clé
est introuvable". D'où l'objet de ma question !
Après un petit peaufinement du code que tu m'as donné ce dernier fonctionne très bien ! merci Eric.
J'aimerai, celà dit, avoir une petite explication concernant le "KeyCode". A quoi correspond t'il exactement ? (à mon avis il ne s'agit pas de la table ASCII ?). J'ai recherché dans l'aide en ligne mais il me dit que "le mot clé est introuvable". D'où l'objet de ma question !
Encore une fois un grand merci. Cdt.
Rouge_XIII
veronique
"Rouge_XIII" a écrit dans le message de news:
Bonsoir, Dans un formulaire j'ai crée par la boîte à outil une zone de texte. Dans les propriété j'y ai ajouté un masque de saisie "mot de passe". J'aimerai que
le nombre de carractère qui y sera saisie soit limité à 13. Comment faire ?
Merci pour vos réponses. Cdt.
"Rouge_XIII" <RougeXIII@discussions.microsoft.com> a écrit dans le message
de news:E834AC05-BEEA-4AAC-AB60-F4B072637904@microsoft.com...
Bonsoir,
Dans un formulaire j'ai crée par la boîte à outil une zone de texte. Dans
les propriété j'y ai ajouté un masque de saisie "mot de passe". J'aimerai
que
le nombre de carractère qui y sera saisie soit limité à 13.
Comment faire ?
Bonsoir, Dans un formulaire j'ai crée par la boîte à outil une zone de texte. Dans les propriété j'y ai ajouté un masque de saisie "mot de passe". J'aimerai que
le nombre de carractère qui y sera saisie soit limité à 13. Comment faire ?
Merci pour vos réponses. Cdt.
Gloops
Bonsoir,
Il faut mettre "CCCCCCCCCCCCC" dans la propriété "Masque de saisie" (InputMask), propriété de la catégorie Données, du contrôle zone de texte.
Voir l'aide : cette propriété permet aussi d'imposer le type de caractères saisis si on fixe le nombre de caractères à saisir. _________________________________________ Rouge_XIII a écrit, le 12/12/2005 16:14 :
Bonsoir, Dans un formulaire j'ai crée par la boîte à outil une zone de texte. Dans les propriété j'y ai ajouté un masque de saisie "mot de passe". J'aimerai que le nombre de carractère qui y sera saisie soit limité à 13. Comment faire ?
Merci pour vos réponses. Cdt.
Bonsoir,
Il faut mettre "CCCCCCCCCCCCC" dans la propriété "Masque de saisie"
(InputMask), propriété de la catégorie Données, du contrôle zone de texte.
Voir l'aide : cette propriété permet aussi d'imposer le type de
caractères saisis si on fixe le nombre de caractères à saisir.
_________________________________________
Rouge_XIII a écrit, le 12/12/2005 16:14 :
Bonsoir,
Dans un formulaire j'ai crée par la boîte à outil une zone de texte. Dans
les propriété j'y ai ajouté un masque de saisie "mot de passe". J'aimerai que
le nombre de carractère qui y sera saisie soit limité à 13.
Comment faire ?
Il faut mettre "CCCCCCCCCCCCC" dans la propriété "Masque de saisie" (InputMask), propriété de la catégorie Données, du contrôle zone de texte.
Voir l'aide : cette propriété permet aussi d'imposer le type de caractères saisis si on fixe le nombre de caractères à saisir. _________________________________________ Rouge_XIII a écrit, le 12/12/2005 16:14 :
Bonsoir, Dans un formulaire j'ai crée par la boîte à outil une zone de texte. Dans les propriété j'y ai ajouté un masque de saisie "mot de passe". J'aimerai que le nombre de carractère qui y sera saisie soit limité à 13. Comment faire ?
