bonjour à tous
J'aimerai pouvoir sasir les prénoms dans une mis en forme automatique tant dans le formulaire que dans la tabl
ex Nom en majuscule : pas de problèm
Prénom en minuscule : pas de problème
Mais que dois-je faire pour avoir les prénoms avec une Majuscule pour la première lettre suivie de minuscules. Et idem si prénom composé
Merci à d'avance et bonne journée !!!
tu trouveras un module de classe sur la page : http://access.seneque.free.fr/majuscules.htm à placer dans ton code; ensuite tu trouveras un modèle d'utilisation sur : http://access.seneque.free.fr/initiales_des_mots.htm dans ton cas par exemple, tu laisses composer n'importe comment dans le champ et sur l'événement AfterUpdate du champ tu remets tout en place par cette fonction: Dim Texte As New majuscules Me.monchamp = Texte.MotsMajuscules(Me.monchamp ) Set Texte = Nothing
Tous les mots seront initialisés en majuscules et le reste en minuscules. les prénoms composés seront considérés comme deux mots séparés et chaque prénom sera en majuscules. c'est un peu compliqué à voir mais c'est simple et tu pourras profiter des autres fonctions incluses. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Claire" a écrit dans le message de news:
bonjour à tous, J'aimerai pouvoir sasir les prénoms dans une mis en forme automatique tant dans le formulaire que dans la table
ex Nom en majuscule : pas de problème Prénom en minuscule : pas de problème
Mais que dois-je faire pour avoir les prénoms avec une Majuscule pour la première lettre suivie de minuscules. Et idem si prénom composé ?
Merci à d'avance et bonne journée !!!!
Bonjour.
tu trouveras un module de classe sur la page :
http://access.seneque.free.fr/majuscules.htm à placer dans ton code;
ensuite tu trouveras un modèle d'utilisation sur :
http://access.seneque.free.fr/initiales_des_mots.htm
dans ton cas par exemple, tu laisses composer n'importe comment dans le
champ et sur l'événement AfterUpdate du champ tu remets tout en place par
cette fonction:
Dim Texte As New majuscules
Me.monchamp = Texte.MotsMajuscules(Me.monchamp )
Set Texte = Nothing
Tous les mots seront initialisés en majuscules et le reste en minuscules.
les prénoms composés seront considérés comme deux mots séparés et chaque
prénom sera en majuscules.
c'est un peu compliqué à voir mais c'est simple et tu pourras profiter des
autres fonctions incluses.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Claire" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:5EE14588-BAA4-4A9A-8720-81E0845D9952@microsoft.com...
bonjour à tous,
J'aimerai pouvoir sasir les prénoms dans une mis en forme automatique tant
dans le formulaire que dans la table
ex Nom en majuscule : pas de problème
Prénom en minuscule : pas de problème
Mais que dois-je faire pour avoir les prénoms avec une Majuscule pour la
première lettre suivie de minuscules. Et idem si prénom composé ?
tu trouveras un module de classe sur la page : http://access.seneque.free.fr/majuscules.htm à placer dans ton code; ensuite tu trouveras un modèle d'utilisation sur : http://access.seneque.free.fr/initiales_des_mots.htm dans ton cas par exemple, tu laisses composer n'importe comment dans le champ et sur l'événement AfterUpdate du champ tu remets tout en place par cette fonction: Dim Texte As New majuscules Me.monchamp = Texte.MotsMajuscules(Me.monchamp ) Set Texte = Nothing
Tous les mots seront initialisés en majuscules et le reste en minuscules. les prénoms composés seront considérés comme deux mots séparés et chaque prénom sera en majuscules. c'est un peu compliqué à voir mais c'est simple et tu pourras profiter des autres fonctions incluses. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Claire" a écrit dans le message de news:
bonjour à tous, J'aimerai pouvoir sasir les prénoms dans une mis en forme automatique tant dans le formulaire que dans la table
ex Nom en majuscule : pas de problème Prénom en minuscule : pas de problème
Mais que dois-je faire pour avoir les prénoms avec une Majuscule pour la première lettre suivie de minuscules. Et idem si prénom composé ?
Merci à d'avance et bonne journée !!!!
Le méruvien
bonjour, voici une procédure pour ce que tu cherche, Function maj_format()
'majuscule totale With CodeContextObject .Patronyme = UCase(.Patronyme) End With 'majuscule 1er lettre du 1er mot With CodeContextObject .Prenom = UCase(Left(.Prenom, 1)) & Mid(.Prenom, 2) End With 'majuscule 1er lettre de chaque mot With CodeContextObject .adresse = StrConv(.adresse, 3) End With End Function Mais pour les prénoms composés, ça marche s'il y a un espace, mais pas pour un trait-union roger
"nadine" a écrit dans le message de news: c9bc01c438f8$60983850$ Pour les prénoms composés je ne sais pas mais pour forcé la 1er lettre en majuscule.
L<?????????????????????????; Dans les propriétés du controle onglet données et Masque
bonjour, voici une procédure pour ce que tu cherche,
Function maj_format()
'majuscule totale
With CodeContextObject
.Patronyme = UCase(.Patronyme)
End With
'majuscule 1er lettre du 1er mot
With CodeContextObject
.Prenom = UCase(Left(.Prenom, 1)) & Mid(.Prenom, 2)
End With
'majuscule 1er lettre de chaque mot
With CodeContextObject
.adresse = StrConv(.adresse, 3)
End With
End Function
Mais pour les prénoms composés, ça marche s'il y a un espace, mais pas pour
un trait-union
roger
"nadine" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: c9bc01c438f8$60983850$a001280a@phx.gbl...
Pour les prénoms composés je ne sais pas mais pour forcé
la 1er lettre en majuscule.
L<?????????????????????????;
Dans les propriétés du controle onglet données et Masque
bonjour, voici une procédure pour ce que tu cherche, Function maj_format()
'majuscule totale With CodeContextObject .Patronyme = UCase(.Patronyme) End With 'majuscule 1er lettre du 1er mot With CodeContextObject .Prenom = UCase(Left(.Prenom, 1)) & Mid(.Prenom, 2) End With 'majuscule 1er lettre de chaque mot With CodeContextObject .adresse = StrConv(.adresse, 3) End With End Function Mais pour les prénoms composés, ça marche s'il y a un espace, mais pas pour un trait-union roger
"nadine" a écrit dans le message de news: c9bc01c438f8$60983850$ Pour les prénoms composés je ne sais pas mais pour forcé la 1er lettre en majuscule.
L<?????????????????????????; Dans les propriétés du controle onglet données et Masque
