[AC-2003] afficher la saisie en majuscule indépendamment de la touche "Maj" [Résolu]

[willytito]

Bonjour,

Je développe avec Access 2003 sous Windows XP Pro.
J'ai une zone de texte indépendante, je voudrais que ma saisie s'affiche en majuscule indépendamment de la touche "Maj".
J'ai essayé avec la commande "UCASE" dans l'évènement "Change".
Mais le problème est qu'à chaque saisie, le curseur de la souris revient au début, il faudrait qu'il se positionne à la fin du dernier caractère saisie.

Si quelqu'un à une idée, je suis preneur.
Merci

Willy

[Domi2]

Bonjour,

Tu pourrais utiliser l'événement Après MAJ de ta zone de texte. Tant que tu saisis des caractères, ils restent en minuscules et quand tu quittes ta zone de texte, ils sont convertis en majuscules.

A moins que tu aies une contrainte particulière au niveau de ta saisie.

A tester :

Code :

1
2
3
4
5
6
7
Private Sub Texte1_Change()
 
    Me.Texte1.Text = UCase(Me.Texte1.Text)
 
    Screen.ActiveControl.SelStart = Len(Screen.ActiveControl)
 
End Sub

Domi2

[willytito]

Merci,

J'ai comme contrainte : majuscule pendant la saisie.
Donc, je vais essayer le code dans l'évènement change.

Willy

[willytito]

J'ai testé le code.
Il y a encore un petit souci.
Il ne tient pas compte des espaces.
Si je tape "test test" il m'affiche "TESTTEST"

Si quelqu'un a une idée, je suis preneur.
Merci

[Domi2]

Effectivement, l'espace est sans effet.

Alors dans la propriété "Masque de saisie" de la zone de texte, tu mets ">CCCCCCCCCCCCCCCCCCCCCCCC", la lettre "C" représentant le nombre maximum de caractères souhaités.

Pour plus de précision sur les possibilités, cliquer dans la zone "Masque" de saisie et F1.

Domi2

[Arkham46]

bjr,

http://support.microsoft.com/kb/209520

Private Sub CompanyName_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

ça a l'air de bien marcher

[willytito]

Merci à tous,
J'ai testé la propriété : Masque de saisie
ça fonctionne mais le nombre maximum de caractère étant inconnu.
Pour m'éviter de mettre "CCCCCCC...." existe-t-il un moyen de dire "C à l'infini"
si quelqu'un pouvait avoir une dernière petite idée, merci

Willy

[Domi2]

Pourquoi ne pas utiliser le code ?

Ca fonctionne parfaitement bien.

[willytito]

Merci d'avoir insisté.
J'ai utilisé le code avec Keypress et ça fonctionne à merveille.
Super !

Willy