[Access] Changer la casse

Essaye ça:

Private Sub Prénom_AfterUpdate()
Me!Prénom.Value = Format(Left(Me!Prénom.Value, 1), ">") & Format(Right(Me!Prénom.Value, Len(Me!Prénom.Value) - 1), "<")

End Sub

Ce que je t'ai écrit ne peut pas s'appliquer dans une table, seulement dans un formulaire.

Tu crées un formulaire basé sur ta table, et dans la propriété Après MAJ du champ Prénom, tu cliques sur le bouton à ... à droite, tu choisis "générateur de code" puis tui colle ce que j'ai écrit.

Si les données sont déjà existantes, il faudra faire une requête Mise à jour. Dis moi.

Bonjour
Une autre fonction.
Lorsque tu ecris un prénom, il prend automatiquement la premiere lettre en majuscule.
J'ai une fonction tout en majuscule
Function Convmaj1car()
' TRANSFORME LA PREMIERE LETTRE EN MASJUSCULE
Dim chaine$, lg%, i%, extract, conv
'
chaine$ = Screen.ActiveControl
If IsNull(chaine) Or chaine = "" Then Exit Function
lg% = Len(chaine)
' Recherche "-", apostrophe ou espace
For i = 1 To lg
extract = Mid(chaine, i, 1)
'
If extract = " " Or extract = "-" Or extract = "'" Then
conv = False
If i < lg - 3 Then
'test si préposition
extract = (UCase(Mid(chaine, i + 1, 2)))
Select Case extract
Case "L'", "D'"
i = i + 1
End Select
'
extract = (UCase(Mid(chaine, i + 1, 3)))
Select Case extract
Case "DE ", "DE-", "DES", "DU ", "DU-", "LE ", "LE-", "LES", "LA ", "LA-", "L' ", "AU ", "RUE", Chr$(68) + Chr$(39)
i = i + 2
Case Else
conv = True
End Select
Else
conv = True
End If
' si pas de préposition, 1ère lettre en majuscule
If i <> lg And conv Then
chaine = Left(chaine, i) + UCase(Mid(chaine, i + 1, 1)) + Right(chaine, lg - i - 1)
End If
If i = lg Then
chaine = Left(chaine, lg - 1) + LCase(Right(chaine, 1))
End If
End If
'
Next
Screen.ActiveControl = UCase(Left(chaine, 1)) & Right(chaine, lg - 1)
End Function