Discussion :

[karous]

Bonjour,

J'ai crée une base de données, je voudrai savoir de quelle manière on peut mettre automatiquement un champ majuscule.
En plus claire, je saisie dans le champs "Nom", dans un formulaire, en minuscule et il se tranforme automatiquement en majuscule. Je saisie aussi le "prénom" en minuscule et la première lettre se transforme en majuscule.

Je ne suis pas fort en VBA, j'ai essayé d'utiliser la création d'assistant des macros en indiquant le champs que je voudrai tranformer en majuscule "Nom" et dans l'expréssion <Majuscule([Nom])>. Je ne sais comment relié cette macro au champs voulu dans le formulaire qui "Nom". et je n'ai pas pu créer pour le prénom la première lettre en majuscule.

Merci de votre aide. J'ai essayé beacoup de truc sans sccès.

[Jeannot45]

Bonjour,

Dans les propriétés du Champ (en mode création de la table) tu trouveras Masque de Saisie.

Tu cliques dans la propriété et tu fais F1, tu auras tout le paramétrage à appliquer

Jeannot

[jean-paul lepetit]

Salut,
Pour passer le nom en majuscule, ta macro semble être correcte, il te faut juste la mettre sur l'événement "sur perte de focus" de ton contrôle nom.

pour ce qui est d'une majuscule au prénom, jusqu'à Access 2000, il n'y a pas de fonction qui te le permette, tu dois l'écrire en VBA, dans les versions suivantes d'Access, cette fonction a peut être été ajoutée, mais je ne le sais pas

[FreeAccess]

Bonjour,

Egalement une possibilité directement en code VBA...

Pour passer ton champ [Nom] en Majuscule, sur événement 'Après MAJ'

Code :

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

1
2
3
Private Sub ChampNom_AfterUpdate()
Me.ChampNom = UCase$(Nz(ChampNom))
End Sub

Pour passer la première lettre de ton [Prénom] en majuscule, sur événement 'Après MAJ'

Code :

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

1
2
3
Private Sub ChampPrenom_AfterUpdate()
Me.ChampPrenom = UCase$(Mid$(Nz(ChampPrenom), 1, 1)) & LCase$(Mid$(Nz(ChampPrenom), 2, Len(Nz(ChampPrenom))))
End Sub

L'avantage de cette méthode, c'est qu'ici le nom et le prénom seront également sauvegardé tel quel dans ta table.........à la différence d'appliquer un masque de saisie qui lui ne fais qu'afficher le texte dans le format que tu souhaite....
Par contre concernant un prénom composé (Jean-Pierre) avec cette méthode seule la première lettre du prénom sera mise en majuscule (Jean-pierre)....

Bonne continuation...

[karous]

Merci àtous pour cette effort et ces idées.
Finalement j'ai essyé touts les solutions proposées. J'ai trouvé que le code proposé ci dessous fonctionne très bien. La solution de masque de saisie et aussi intéressente.

Il reste une seule chose si c'est possible, comment mettre le second mot d'un nom ou prénom composé exp "jean pierre" doit s'écrire "Jean Pierre".

Merci pour votre suggétation.

Bonjour,

Egalement une possibilité directement en code VBA...

Pour passer ton champ [Nom] en Majuscule, sur événement 'Après MAJ'

Code :

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

1
2
3
Private Sub ChampNom_AfterUpdate()
Me.ChampNom = UCase$(Nz(ChampNom))
End Sub

Pour passer la première lettre de ton [Prénom] en majuscule, sur événement 'Après MAJ'

Code :

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

1
2
3
Private Sub ChampPrenom_AfterUpdate()
Me.ChampPrenom = UCase$(Mid$(Nz(ChampPrenom), 1, 1)) & LCase$(Mid$(Nz(ChampPrenom), 2, Len(Nz(ChampPrenom))))
End Sub

L'avantage de cette méthode, c'est qu'ici le nom et le prénom seront également sauvegardé tel quel dans ta table.........à la différence d'appliquer un masque de saisie qui lui ne fais qu'afficher le texte dans le format que tu souhaite....
Par contre concernant un prénom composé (Jean-Pierre) avec cette méthode seule la première lettre du prénom sera mise en majuscule (Jean-pierre)....

Bonne continuation...

[jean-paul lepetit]

Il faut que tu créés une fonction, soit dans ton formulaire, mais cette fonction ne pourra être appelée que depuis ce formulaire soit dans un module et tu pourras l'appeler de n'importe quel formulaire

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
Function NomPropre(Entree) As String
If Not IsNull(Entree) Then
For x = 1 To Len(Entree)
    If x = 1 Then
        NomPropre = UCase(Left(Entree, 1))
    Else
        If Mid(Entree, x, 1) = "-" Or Mid(Entree, x, 1) = "_" Or Mid(Entree, x, 1) = " " Then
            Maj = 1
            NomPropre = NomPropre & "-"
        Else
            If Maj = 1 Then
                NomPropre = NomPropre & UCase(Mid(Entree, x, 1))
                Maj = 0
            Else
                NomPropre = NomPropre & LCase(Mid(Entree, x, 1))
            End If
        End If
    End If
Next x
End If
End Function

et tu l'appelles comme Ucase

Code :

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

1
2
3
Private Sub ChampPreNom_AfterUpdate() 
Me.ChampPreNom = NomPropre(Nz(ChampNom)) 
End Sub

[karous]

Merci Jean Paul pour ta proposition,
J'essaye de l'activité mais ça ne marche pas.
Je l'ai enregister en tant que module sous le nom UCase. Ensuite, j'ai crée une macro avec "Executer Cose" qui excute ce code UCase.
J'ai choisit dans le contrôle formulaire dans propriété - événement - Après MAJ j'ai choisi cette macro.

Je ne sais pas ou ça n'a pas marché. Est ce que dans le code du module on change "NomPropre" ou je le laisse comme il est? Je n'i pas compris le dernier code correspand à quoi et je l'enregistre ou?

Merci pour ton aide.

Il faut que tu créés une fonction, soit dans ton formulaire, mais cette fonction ne pourra être appelée que depuis ce formulaire soit dans un module et tu pourras l'appeler de n'importe quel formulaire

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
Function NomPropre(Entree) As String
If Not IsNull(Entree) Then
For x = 1 To Len(Entree)
    If x = 1 Then
        NomPropre = UCase(Left(Entree, 1))
    Else
        If Mid(Entree, x, 1) = "-" Or Mid(Entree, x, 1) = "_" Or Mid(Entree, x, 1) = " " Then
            Maj = 1
            NomPropre = NomPropre & "-"
        Else
            If Maj = 1 Then
                NomPropre = NomPropre & UCase(Mid(Entree, x, 1))
                Maj = 0
            Else
                NomPropre = NomPropre & LCase(Mid(Entree, x, 1))
            End If
        End If
    End If
Next x
End If
End Function

et tu l'appelles comme Ucase

Code :

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

1
2
3
Private Sub ChampPreNom_AfterUpdate() 
Me.ChampPreNom = NomPropre(Nz(ChampNom)) 
End Sub

[FreeAccess]

Re,

...Je l'ai enregister en tant que module sous le nom UCase

Evite de donner à un module ou tout autre élément, un mot clef d'Access.... renomme ton module par exemple = modPrénomMajuscule

...j'ai crée une macro avec "Executer Cose" qui excute ce code UCase

Il faut appeler le nom de la fonction...ici, NomPropre
Ensuite, évite les macros....fais tout directement sous code VBA...

Tu clique sur ton champ devant contenir le prénom...
Dans l'onglet 'Evénement' en face de la ligne "Après MAJ" tu clique sur les trois petits points [...]
Tu choisie 'Générateur de code' et tu te retrouve directement sous l'éditeur de code, avec une ligne qui ressemble à ceci:

Code :

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

1
2
3
Private Sub ChampPreNom_AfterUpdate() 
 
End Sub

Il ne reste plus qu'à insérer le code donné entre Private et End Sub

Code :

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

1
2
3
Private Sub ChampPreNom_AfterUpdate() 
Me.ChampPreNom = NomPropre(Nz(ChampNom)) 
End Sub

Voila c'est tout simple...

[jean-paul lepetit]

il faut renommer ton module Ucase, car c'est un nom réservé.
Appelles ce module "Fonctions" plutôt.

le dernier code, tu le mets sur ton champ ou tu saisis le prénom, sur l'événement après mise à jour.

tu cliques sur les ... en bout de ligne qui te propose générateur d'expression, générateur de macro ou générateur de code.
tu choisis générateur de code qui t'ouvre l'éditeur VBA.
et tu mets ce bout de code (sauf "Private Sub ChampPreNom_AfterUpdate() et End Sub " puisque tu vas déjà avoir quelque chose du même genre

[FreeAccess]

@ jean-paul lepetit

Il serait bon de rajouter en début de fonction la définition des deux variables...

Function NomPropre(Entree) As String
Dim X As Integer
Dim Maj As Integer
If Not IsNull(Entree) Then
For X = 1 To Len(Entree)
If X = 1 Then
......
......
End Sub

Bonne continuation...

[jean-paul lepetit]

@ jean-paul lepetit

Il serait bon de rajouter en début de fonction la définition des deux variables...

Bonne continuation...

Effectivement....

[karous]

Merci à tous pour vos recommadation et votre patience. Finalment j'ai réussi l'opération après que mes cheveux sont devenu tous blanc .

Je commance à saisir un peu le VBA mais je ne pourrai jamais le comprendre.