Discussion :

[nouveau17]

Bonjour,

dans le cas ou je voudrai convertir dans un champs dans un formulaire Access les première lettre de la phrase constitué de plusieurs mots comment faire:
exemple:
Direction Approvisionnement .

j'ai utilisé pour un seul mot ce code et ca fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub txtprenom_KeyPress(KeyAscii As Integer)
If KeyAscii > 64 Then
If [txtprenom].SelStart = 0 Then
  KeyAscii = Asc(UCase(Chr(KeyAscii)))
Else
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End If
End If
 
End Sub

merci

[ONTAYG]

Bonjour,

Il y a plein de choses dans la FAQ : https://access.developpez.com/faq/?p...A#ConvMajLettr

ONTAYG

[nouveau17]

J'ai cherché dans la FAQ, mais pas ce que je cherche.
Merci

[tee_grandbois]

bonsoir,

J'ai cherché dans la FAQ, mais pas ce que je cherche.

Code :

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

1
2
3
Private Sub txtprenom_AfterUpdate()
Me.txtprenom = StrConv(Me.txtprenom, vbProperCase)
End Sub

quand on te propose une solution incluant un lien, prend le temps de bien lire :

[nouveau17]

Bonjour,
Dans procédure événementielle " sur touche activité"
Avec le code je ne peux écrire qu'une lettre dans le champs.

[tee_grandbois]

bonjour,

Bonjour,
Dans procédure événementielle " sur touche activité"
Avec le code je ne peux écrire qu'une lettre dans le champs.

je t'ai pourtant donné le code (procédure événementielle "Après mise à jour", AfterUpdate dans VBA):

Code :

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

1
2
3
Private Sub txtprenom_AfterUpdate()
Me.txtprenom = StrConv(Me.txtprenom, vbProperCase)
End Sub

[nouveau17]

Grand merci je me suis trompé et ca fonctionne super bien.