Discussion :

[oplaut]

Bonjour à tous,

J'aimerais faire un masque de saisie dans un formulaire pour pouvoir introduire des prénoms composés comme Jean-Pierre.

>L<?????? ne fonctionne pas parce que pierre sera tout en minuscules.

J'aimerais avoir quelque chose comme (>L)???????????? pour que > ne s'applique qu'à la première lettre et que le reste soit libre.

J'ai vu une solution avec 2 champs séparés [PremiereLettre] & [suiteprenom] mais je trouve ça un peu compliqué.

Merci d'avance,
Olivier

[Domi2]

Bonjour,

Un masque de saisie ne me semble guère applicable.

Tu peux utiliser une fonction. Code à coller dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Function NomPropre(X)
 
    'Fonction de Raymond Sénèque, MVP Access - officesystem.access.free.fr
    'Mise en majuscule des premières lettres des noms propres
 
    Dim Temp$, C$, OldC$, i As Integer
 
    If IsNull(X) Then
 
        Exit Function
 
    Else
 
        Temp$ = CStr(LCase(X))
        'Initialise OldC$ en un seul espace car la première
        'lettre doit être mise en majuscule mais n'est précédée d'aucune autre lettre.
        OldC$ = " "
 
        For i = 1 To Len(Temp$)
            C$ = Mid$(Temp$, i, 1)
 
            If C$ >= "a" And C$ <= "z" And (OldC$ < "a" Or OldC$ > "z") Then
 
                Mid$(Temp$, i, 1) = UCase$(C$)
 
            End If
 
            OldC$ = C$
        Next i
        NomPropre = Temp$
 
    End If
 
End Function

Et tu l'appelles comme ceci, sur l'événement après mise à jour de ton champ

Code :

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

1
2
3
4
5
6
Private Sub Tonchamp_AfterUpdate()
 
    'Appelle la fonction NomPropre
    TonChamp = NomPropre([TonChamp])
 
End Sub

où TonChamp doit être remplacé par ton champ prénom.

Domi2

[oplaut]

Bon sang, ça marche!

Merci beaucoup.
Olivier

[Domi2]

Re,

Bon sang, ça marche!

Ben oui...

N'oublie pas le tag

Domi2