Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 20/12/2011, 09h14   #1
Membre régulier
 
Inscription : novembre 2010
Messages : 151
Détails du profil
Informations personnelles :
Localisation : France

Informations forums :
Inscription : novembre 2010
Messages : 151
Points : 89
Points : 89
Par défaut Premières lettres en majuscule

Bonjour,

Dans la base de données de gestion de mon association, j'ai placé le code du FAQ : http://access.developpez.com/faq/?page=Ctrl#PremMaj pour mettre la première lettre du prénom en majuscule. Le code fonctionne avec les prénoms simples mais avec les prénoms composés où seul le premier prénom a une majuscule sur la première lettre.

Comment faire pour que les second prénom séparé du premier par un espace ou un tiret ait sa première lettre en majuscule.

Merci d'avance.

Jean-Pierre
jeanpierre78 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 20/12/2011, 09h49   #2
Rédacteur/Modérateur

 
Avatar de loufab
 
Homme Fabrice CONSTANS
Ingénieur développement logiciels
Inscription : avril 2005
Messages : 7 090
Détails du profil
Informations personnelles :
Nom : Homme Fabrice CONSTANS
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations professionnelles :
Activité : Ingénieur développement logiciels

Informations forums :
Inscription : avril 2005
Messages : 7 090
Points : 11 620
Points : 11 620
Bonjour,

Un peu ancien cette technique.

Il y a ceci qui fait la même chose avec des espaces :

Code :
strconv([monchamp],vbProperCase)
Voici en trois lignes ce que tu peux faire pour traiter même les tirets :

Code :
1
2
3
4
5
6
7
function EnMaj(lechamp as string) as string
 
lechamp=replace(lechamp,"-"," | ")
lechamp= strconv(lechamp,vbProperCase)
EnMaj=replace(lechamp," | ","-")
 
end function
Cordialement,
__________________
Classe MELA(CRUD) Opérateur IN et zone de liste
MsGraph et VBA - 1e Partie 2e partie
Entête d'états-Opérateur LIKE-Evénements formulaires-Cours 2010
Complément :Générateur de msgbox
Visitez mon Blog
Les questions techniques par MP ne sont pas lues et je ne pratique pas l'extispicine
loufab est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 20/12/2011, 12h33   #3
Membre régulier
 
Inscription : novembre 2010
Messages : 151
Détails du profil
Informations personnelles :
Localisation : France

Informations forums :
Inscription : novembre 2010
Messages : 151
Points : 89
Points : 89
Bonjour,

Bravo et merci, la fonction fonctionne parfaitement.

Bonnes fêtes de fin d'année.

Jean-Pierre
jeanpierre78 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 20h25.


 
 
 
 
Partenaires

Hébergement Web