Discussion :

[Daniela]

Bonjour a tous, je voudrais savoir comment on affecte à un champ de ma table la proprieté majuscule. moi j'ai esseie de mettre dans la proprieté masque input <LL, mais ne marche pas.

comment je peux faire?

[Invité]

Bonjour
Peut être trouveras tu une solution ici:
http://access.developpez.com/faq/?pa...DATA#TxtMajMin

[castours]

Bonjour
Je te joins plusieurs fonctions a mettre dans un module.
Elles fonctionnent dans un formulaire dans un champ considéré.
Suivant la fonction appellée, le champ se met en masjuscule ou miniscule ou la premiere lettre en masjuscule.
La fonction ConvMaj1car() est à utiliser pour une adresse
Bon courage
Guy

Code :

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

1
2
3
4
5
6
7
8
9
Function ConvMaj()
    '*** screen.activecontrol désigne le contrôle actif au moment
    '*** de l'appel de la fonction
    Dim Chaine
    Chaine = UCase(Screen.ActiveControl)
    If IsNull(Chaine) Or Chaine = "" Then Exit Function
    Screen.ActiveControl = Chaine
 
End Function

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
35
36
37
38
39
40
41
42
Function Convmaj1car()
    Dim Chaine$, lg%, i%, extract, convConvmaj1car()
    Dim Conv
    Chaine$ = LCase(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 ", "ET ", "SUR ", "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

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
35
36
37
Function ConvGenre(numgenre As Integer, typegenre) As String
    Dim libgenre$
    If IsNull(numgenre) Or IsNull(typegenre) Then Exit Function
    '**** NumGenre : numéro de genre (1, 2, 3, 4)
    '**** TypeGenre : Court = Mme, Long = Madame
    typegenre = LCase(typegenre)
    '
    '**** Choix du libellé à utiliser
    Select Case numgenre
        Case 1
            If typegenre = "long" Then
                libgenre = "Monsieur"
            Else
                libgenre = "M."
            End If
        Case 2
            If typegenre = "long" Then
                libgenre = "Madame"
            Else
                libgenre = "Mme"
            End If
        Case 3
            If typegenre = "long" Then
                libgenre = "Mademoiselle"
            Else
                libgenre = "Melle"
            End If
        Case 4
            If typegenre = "long" Then
                libgenre = "Madame, Monsieur"
            Else
                libgenre = ""
            End If
    '
    End Select
    ConvGenre = libgenre$
End Function

Code :

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

1
2
3
4
Public Function PremiereMasj()
Chaine = UCase(Mid(Chaine, 1, 1)) + LCase(Mid(Chaine, 1, 33))
'haine.SelStart = Len(Chaine)
End Function

[Invité]

Bonjour

Mets > mais dans la propriété format de ton champ de ta table que tu veux mettre en majuscule.

Ainsi toute saisie dans ce champ sera mise en majuscule.

Philippe

[Daniela]

merci beaucoup pour tes codes. J'ai cree le module avec la fonction de convertion en majuscule. mais j'ai pas compris comment je fais pour faire appelle a ce module dans mon champ X.

[argyronet]

Bonjour,

Humm, un champ de type texte peut être formaté, ainsi que le souligne Philippe par le biais de la propriété Format défini à >.

Mais cela reste visuel et dans la table la valeur restera telle que tapée.
Par exemple avec le format > :

patrICK DuraNT sera affiché PATRICK DURANT mais dans la table la valeur patrICK DuraNT sera conservée.

Si tu veux que la valeur soit forcée en majuscule, un simple :

Code :

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

1
2
3
4
5
Private Sub NomDuChamp_AfterUpdate()
    If Not IsNull(Me!NomDuChamp) Then
        Me!NomDuChamp = UCase$(Me!NomDuChamp)
    End If
End Sub

suffit...

Quant au code de Castours, bien que complet, reste bien long et pourrait être très grandement simplifié...

Argy

[Daniela]

merci beaucoup marche tres bien