[Access] Changer la casse Fermé

Question

Bonjour,

Dans Access : 
J'aimerais mettre une majuscule que dans la première lettre du "prénom" 
Exemple : THIERRY devient Thierry.

Quelle fonction dois-je utiliser.

merci de votre aide.

LatelyGeek · Answer

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

LatelyGeek · Answer

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.

castours · Answer

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

[Access] Changer la casse

3 réponses

Discussions similaires