Zone de texte [Résolu]

[FCL31]

Je voudrais savoir si il est possible de faire en sorte que lorsque on saisi un texte dans une zone de texte, le texte soit en majuscule.

Merci

[Heureux-oli]

Tu as deux possibilités.

La première est une mise en forme de ton texte par le choix du Format, si dans la case format des propriétés de ton champ tu mets ">", le texte sera affiché en majuscule, mais sera stocké dans la table en minuscule.


Si en VBA tu mets sur l'évènement AfterUpDate de ton contrôle :

Code :

1
2
 
Me.MonContrôle = UCase(Me.Moncontrôle)

Il sera affiché et stocké en majuscule.

[FCL31]

Merci

Mais je n'arrive pas à faire se que tu me dit pour le code
voila le code que sa m'affiche lorsque je veu créer un code sur la zone de texte nommée "Conces" :

Code :

1
2
3
Private Sub Conces_BeforeUpdate(Cancel As Integer)
 
End Sub

j'ai essayer de mettre le code que tu ma dit mais sa marche pas; sa m'affiche

Erreur d'exécution '-2147352567 (80020009)'

A la place de BeforeUpdate, j'ai écrit AfterUpDate et sa marche toujours pas


Merci

[Heureux-oli]

Un petit dessin
C'est sur le champ firstName

[FCL31]

Merci j'ai compris mon erreur

sa marche nickel


J'ai une autre question sur une zone de texte mais au format date:

lorsque je tape une date ex: 19/09/07 qui se converti automatiquement en 19/09/2007 je voudrais savoir si il y a une façon de faire en sorte de ne pas taper les "/" donc taper 190907 et qui se converti automatiquement en 19/09/2007

[bruno28]

Bonjour.
Un masque de saisi résoudrait le problème.
Salutations

[FCL31]

Merci
Mais j'ai déja fait un masque saisi et c'est pas vraiment se que je veu
Peut étre que se que je veu n'est pas possible a faire ou un peu trop galaire mais en fait se que je veu c'st que dans une zone de texte, je tape : "190907" et sa me le converti automatiquement en : "19/09/2007"

[Heureux-oli]

si le masque ne te convient pas,
Il faut deux contrôles
Il faut faire une petite fonction qui va mesurer la longueur de ton entrée.
Prendre la partie de gauche, la partie de droite et celle du milieu.
Ces tros valeurs vont former la date qui sera renvoyée à l'aide de la fonction DateSerial


Et coller cette valeur dans ton contrôle lié à la table.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Texte9_AfterUpdate()
Dim i As Byte
 
 
i = Len(Me.Texte9)
If i = 6 Then
Me.Naissance = DateSerial(Right(Me.Texte9, 2), Mid(Me.Texte9, 3, 2), Left(Me.Texte9, 2))
 
Else
MsgBox "La date doit être entrée en 6 positions : " & vbCrLf & "010107"
End If
Me.ContactID.SetFocus
Me.Texte9 = ""
 
End Sub

C'est presque le même principe que pour le UCase.