Bonjour,
Je souhaiterai mettre en majuscules la première lettre de tous les prénoms
que j'ai a saisir dans mes tables (ex : Michel).
Auriez-vous une solution? Merci.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gafish
a écrit dans le message de news:
Bonjour,
Bonjour,
Je souhaiterai mettre en majuscules la première lettre de tous les prénoms que j'ai a saisir dans mes tables (ex : Michel). Auriez-vous une solution? Merci.
Sur l'evenement lostFocus de ta zone de saisie du prénom, tu peux mettre la chose suivante : Me.NomDeTaZonePrenom = StrConv(Me.NomDeTaZonePrenom, vbProperCase)
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
<S2P12.greta@laposte.net> a écrit dans le message de news:
evszSGF5FHA.2864@tk2msftngp13.phx.gbl...
Bonjour,
Bonjour,
Je souhaiterai mettre en majuscules la première lettre de tous les prénoms
que j'ai a saisir dans mes tables (ex : Michel).
Auriez-vous une solution? Merci.
Sur l'evenement lostFocus de ta zone de saisie du prénom, tu peux mettre la
chose suivante :
Me.NomDeTaZonePrenom = StrConv(Me.NomDeTaZonePrenom, vbProperCase)
Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Je souhaiterai mettre en majuscules la première lettre de tous les prénoms que j'ai a saisir dans mes tables (ex : Michel). Auriez-vous une solution? Merci.
Sur l'evenement lostFocus de ta zone de saisie du prénom, tu peux mettre la chose suivante : Me.NomDeTaZonePrenom = StrConv(Me.NomDeTaZonePrenom, vbProperCase)
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Fleptche
?<????????????????????????????????????? dans la zonz "Masque de saisie" du champ
"
?<?????????????????????????????????????
dans la zonz "Masque de saisie" du champ
?<????????????????????????????????????? dans la zonz "Masque de saisie" du champ
"
FranckyONE
Bonjour, Je souhaiterai mettre en majuscules la première lettre de tous les prénoms que j'ai a saisir dans mes tables (ex : Michel). Auriez-vous une solution? Merci.
Je crois bien qu'il faut placer qqchose dans "format" du type (de
mémoire=àvérifier):
l< Par contre, si tu veux traiter les nom double comme Jean-Pierre, il faut
passer par du code.... Je crois que j'ai ça dans une de mes bases, je trouve, et je te réponds plus précisément... @+
Bonjour,
Je souhaiterai mettre en majuscules la première lettre de tous les prénoms
que j'ai a saisir dans mes tables (ex : Michel).
Auriez-vous une solution? Merci.
Je crois bien qu'il faut placer qqchose dans "format" du type (de
mémoire=àvérifier):
l<
Par contre, si tu veux traiter les nom double comme Jean-Pierre, il faut
passer par du code....
Je crois que j'ai ça dans une de mes bases, je trouve, et je te réponds
plus précisément...
@+
Bonjour, Je souhaiterai mettre en majuscules la première lettre de tous les prénoms que j'ai a saisir dans mes tables (ex : Michel). Auriez-vous une solution? Merci.
Je crois bien qu'il faut placer qqchose dans "format" du type (de
mémoire=àvérifier):
l< Par contre, si tu veux traiter les nom double comme Jean-Pierre, il faut
passer par du code.... Je crois que j'ai ça dans une de mes bases, je trouve, et je te réponds plus précisément... @+
FranckyONE
Bonjour, Je souhaiterai mettre en majuscules la première lettre de tous les prénoms que j'ai a saisir dans mes tables (ex : Michel). Auriez-vous une solution? Merci.
Bon, voilà, ça n'a pas été si long finalement.
Sur l'évenement sortie du champ "Prénom", tu mets ça:
If IsNull(Me!Prénom) Then Me!Prénom = "" Me!Prénom = MajPreNom(Me!Prénom)
Ajoute la fonction de mon cru (donc il y a peut-être plus simple!):
Function MajPreNom(PreN As String) If IsNull(PreN) Then MajPreNom = "": Exit Function Dim Pos2Prenom As Long PreN = Trim(PreN) PreN = UCase(Left(PreN, 1)) & LCase(Mid(PreN, 2)) Pos2Prenom = 0 PN1: Pos2Prenom = InStr(Pos2Prenom + 1, PreN, "-") If Pos2Prenom > 1 Then Mid(PreN, Pos2Prenom + 1, 1) = UCase(Mid(PreN, Pos2Prenom + 1, 1)): GoTo PN1 Pos2Prenom = 0 PN2: Pos2Prenom = InStr(Pos2Prenom + 1, PreN, " ") If Pos2Prenom > 1 Then Mid(PreN, Pos2Prenom, 2) = "-" & UCase(Mid(PreN, Pos2Prenom + 1, 1)): GoTo PN2 MajPreNom = PreN End Function
FranckyONE à votre service
Bonjour,
Je souhaiterai mettre en majuscules la première lettre de tous les prénoms
que j'ai a saisir dans mes tables (ex : Michel).
Auriez-vous une solution? Merci.
Bon, voilà, ça n'a pas été si long finalement.
Sur l'évenement sortie du champ "Prénom", tu mets ça:
If IsNull(Me!Prénom) Then Me!Prénom = ""
Me!Prénom = MajPreNom(Me!Prénom)
Ajoute la fonction de mon cru (donc il y a peut-être plus simple!):
Function MajPreNom(PreN As String)
If IsNull(PreN) Then MajPreNom = "": Exit Function
Dim Pos2Prenom As Long
PreN = Trim(PreN)
PreN = UCase(Left(PreN, 1)) & LCase(Mid(PreN, 2))
Pos2Prenom = 0
PN1:
Pos2Prenom = InStr(Pos2Prenom + 1, PreN, "-")
If Pos2Prenom > 1 Then Mid(PreN, Pos2Prenom + 1, 1) = UCase(Mid(PreN,
Pos2Prenom + 1, 1)): GoTo PN1
Pos2Prenom = 0
PN2:
Pos2Prenom = InStr(Pos2Prenom + 1, PreN, " ")
If Pos2Prenom > 1 Then Mid(PreN, Pos2Prenom, 2) = "-" & UCase(Mid(PreN,
Pos2Prenom + 1, 1)): GoTo PN2
MajPreNom = PreN
End Function
Bonjour, Je souhaiterai mettre en majuscules la première lettre de tous les prénoms que j'ai a saisir dans mes tables (ex : Michel). Auriez-vous une solution? Merci.
Bon, voilà, ça n'a pas été si long finalement.
Sur l'évenement sortie du champ "Prénom", tu mets ça:
If IsNull(Me!Prénom) Then Me!Prénom = "" Me!Prénom = MajPreNom(Me!Prénom)
Ajoute la fonction de mon cru (donc il y a peut-être plus simple!):
Function MajPreNom(PreN As String) If IsNull(PreN) Then MajPreNom = "": Exit Function Dim Pos2Prenom As Long PreN = Trim(PreN) PreN = UCase(Left(PreN, 1)) & LCase(Mid(PreN, 2)) Pos2Prenom = 0 PN1: Pos2Prenom = InStr(Pos2Prenom + 1, PreN, "-") If Pos2Prenom > 1 Then Mid(PreN, Pos2Prenom + 1, 1) = UCase(Mid(PreN, Pos2Prenom + 1, 1)): GoTo PN1 Pos2Prenom = 0 PN2: Pos2Prenom = InStr(Pos2Prenom + 1, PreN, " ") If Pos2Prenom > 1 Then Mid(PreN, Pos2Prenom, 2) = "-" & UCase(Mid(PreN, Pos2Prenom + 1, 1)): GoTo PN2 MajPreNom = PreN End Function
FranckyONE à votre service
Fabien
Merci beaucoup pour l'info. çà marche toujours pas mais bon, faut espérer que çà fasse avancer le schmili, schmibi, schmilli .. Bon après-midi
Je crois que Franckyone trouvera sa solution indiquée quelques lignes plus haut.
a écrit dans le message de news:
Bonjour, Je souhaiterai mettre en majuscules la première lettre de tous les prénoms que j'ai a saisir dans mes tables (ex : Michel). Auriez-vous une solution? Merci.
Merci beaucoup pour l'info.
çà marche toujours pas mais bon, faut espérer que çà fasse avancer le
schmili, schmibi, schmilli ..
Bon après-midi
Je crois que Franckyone trouvera sa solution indiquée quelques lignes plus
haut.
<S2P12.greta@laposte.net> a écrit dans le message de news:
evszSGF5FHA.2864@tk2msftngp13.phx.gbl...
Bonjour,
Je souhaiterai mettre en majuscules la première lettre de tous les prénoms
que j'ai a saisir dans mes tables (ex : Michel).
Auriez-vous une solution? Merci.
Merci beaucoup pour l'info. çà marche toujours pas mais bon, faut espérer que çà fasse avancer le schmili, schmibi, schmilli .. Bon après-midi
Je crois que Franckyone trouvera sa solution indiquée quelques lignes plus haut.
a écrit dans le message de news:
Bonjour, Je souhaiterai mettre en majuscules la première lettre de tous les prénoms que j'ai a saisir dans mes tables (ex : Michel). Auriez-vous une solution? Merci.
Argyronet
Bonjour,
Vous disposez d'une fonction maison ici: http://www.developpez.net/forums/viewtopic.php?p#53396#2353396
Argy
Bonjour, Je souhaiterai mettre en majuscules la première lettre de tous les prénoms que j'ai a saisir dans mes tables (ex : Michel). Auriez-vous une solution? Merci.
Bonjour,
Vous disposez d'une fonction maison ici:
http://www.developpez.net/forums/viewtopic.php?p#53396#2353396
Argy
Bonjour,
Je souhaiterai mettre en majuscules la première lettre de tous les prénoms
que j'ai a saisir dans mes tables (ex : Michel).
Auriez-vous une solution? Merci.
Vous disposez d'une fonction maison ici: http://www.developpez.net/forums/viewtopic.php?p#53396#2353396
Argy
Bonjour, Je souhaiterai mettre en majuscules la première lettre de tous les prénoms que j'ai a saisir dans mes tables (ex : Michel). Auriez-vous une solution? Merci.
