Je suis en train de me former à Access et je débute certainement une série
de questions après avoir passé plus d'un mois à vous lire.
Voilà, je me lance.
Dans une table, je crée un champ "Prénom". Pour mettre la 1er lettre en
majuscule je met le signe ">?<?????????" dans "Format" de propriété du
champ.
Mais ce système m'impose un trait disgracieux dans l'enregistrement avec la
table et surtout comment je fais si j'ai à faire avec un prénom composé. Il
faudrait un truc qui autorise un nombre indéfini de caractère et qui détecte
le trait d'union pour refaire ">?<????????
Y a t il un truc que vous pourriez me faire part ?
Merci d'avance
Marco
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
Raymond [mvp]
Bonsoir.
Tu ne pourras pas résoudre les prénoms composés par un masque de saisie. il faut passer par une fonction sur l'événement afterupdate de ton controle.
Private Sub Prénom_AfterUpdate() Me.Prénom= MotsMajuscules(Me.Prénom) End Sub
Public Function MotsMajuscules(Texte As String) As String On Error GoTo Err_Property Dim T As String T = LCase$(Texte) Dim I As Integer Mid$(T, 1) = LCase$(Mid$(T, 1)) If T <> "" Then Mid$(T, 1, 1) = UCase$(Mid$(T, 1, 1)) For I = 1 To Len(T) - 1 If Mid$(T, I, 2) = Chr$(13) + Chr$(10) Then Mid$(T, I + 2, 1) = UCase$(Mid$(T, I + 2, 1)) End If If Mid$(T, I, 1) = " " Then Mid$(T, I + 1, 1) = UCase$(Mid$(T, I + 1, 1)) End If If Mid$(T, I, 1) = "-" Then Mid$(T, I + 1, 1) = UCase$(Mid$(T, I + 1, 1)) End If Next MotsMajuscules = T End If Exit Function Err_Property: MsgBox "Erreur N° " & Err.Number & ", " & "MotsMajuscules" & ", " & Err.Description, , Err.Source End Function
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"Eau de Source" a écrit dans le message de news:br2l0q$ki3$
Bonsoir,
Je suis en train de me former à Access et je débute certainement une série de questions après avoir passé plus d'un mois à vous lire.
Voilà, je me lance. Dans une table, je crée un champ "Prénom". Pour mettre la 1er lettre en majuscule je met le signe ">?<?????????" dans "Format" de propriété du champ. Mais ce système m'impose un trait disgracieux dans l'enregistrement avec la
table et surtout comment je fais si j'ai à faire avec un prénom composé. Il
faudrait un truc qui autorise un nombre indéfini de caractère et qui détecte
le trait d'union pour refaire ">?<???????? Y a t il un truc que vous pourriez me faire part ? Merci d'avance Marco
Bonsoir.
Tu ne pourras pas résoudre les prénoms composés par un masque de saisie. il
faut passer par une fonction sur l'événement afterupdate de ton controle.
Private Sub Prénom_AfterUpdate()
Me.Prénom= MotsMajuscules(Me.Prénom)
End Sub
Public Function MotsMajuscules(Texte As String) As String
On Error GoTo Err_Property
Dim T As String
T = LCase$(Texte)
Dim I As Integer
Mid$(T, 1) = LCase$(Mid$(T, 1))
If T <> "" Then
Mid$(T, 1, 1) = UCase$(Mid$(T, 1, 1))
For I = 1 To Len(T) - 1
If Mid$(T, I, 2) = Chr$(13) + Chr$(10) Then
Mid$(T, I + 2, 1) = UCase$(Mid$(T, I + 2, 1))
End If
If Mid$(T, I, 1) = " " Then
Mid$(T, I + 1, 1) = UCase$(Mid$(T, I + 1, 1))
End If
If Mid$(T, I, 1) = "-" Then
Mid$(T, I + 1, 1) = UCase$(Mid$(T, I + 1, 1))
End If
Next
MotsMajuscules = T
End If
Exit Function
Err_Property:
MsgBox "Erreur N° " & Err.Number & ", " & "MotsMajuscules" & ", " &
Err.Description, , Err.Source
End Function
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"Eau de Source" <eau.de.source@wanadoo.fr> a écrit dans le message de
news:br2l0q$ki3$1@news-reader4.wanadoo.fr...
Bonsoir,
Je suis en train de me former à Access et je débute certainement une série
de questions après avoir passé plus d'un mois à vous lire.
Voilà, je me lance.
Dans une table, je crée un champ "Prénom". Pour mettre la 1er lettre en
majuscule je met le signe ">?<?????????" dans "Format" de propriété du
champ.
Mais ce système m'impose un trait disgracieux dans l'enregistrement avec
la
table et surtout comment je fais si j'ai à faire avec un prénom composé.
Il
faudrait un truc qui autorise un nombre indéfini de caractère et qui
détecte
le trait d'union pour refaire ">?<????????
Y a t il un truc que vous pourriez me faire part ?
Merci d'avance
Marco
Tu ne pourras pas résoudre les prénoms composés par un masque de saisie. il faut passer par une fonction sur l'événement afterupdate de ton controle.
Private Sub Prénom_AfterUpdate() Me.Prénom= MotsMajuscules(Me.Prénom) End Sub
Public Function MotsMajuscules(Texte As String) As String On Error GoTo Err_Property Dim T As String T = LCase$(Texte) Dim I As Integer Mid$(T, 1) = LCase$(Mid$(T, 1)) If T <> "" Then Mid$(T, 1, 1) = UCase$(Mid$(T, 1, 1)) For I = 1 To Len(T) - 1 If Mid$(T, I, 2) = Chr$(13) + Chr$(10) Then Mid$(T, I + 2, 1) = UCase$(Mid$(T, I + 2, 1)) End If If Mid$(T, I, 1) = " " Then Mid$(T, I + 1, 1) = UCase$(Mid$(T, I + 1, 1)) End If If Mid$(T, I, 1) = "-" Then Mid$(T, I + 1, 1) = UCase$(Mid$(T, I + 1, 1)) End If Next MotsMajuscules = T End If Exit Function Err_Property: MsgBox "Erreur N° " & Err.Number & ", " & "MotsMajuscules" & ", " & Err.Description, , Err.Source End Function
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"Eau de Source" a écrit dans le message de news:br2l0q$ki3$
Bonsoir,
Je suis en train de me former à Access et je débute certainement une série de questions après avoir passé plus d'un mois à vous lire.
Voilà, je me lance. Dans une table, je crée un champ "Prénom". Pour mettre la 1er lettre en majuscule je met le signe ">?<?????????" dans "Format" de propriété du champ. Mais ce système m'impose un trait disgracieux dans l'enregistrement avec la
table et surtout comment je fais si j'ai à faire avec un prénom composé. Il
faudrait un truc qui autorise un nombre indéfini de caractère et qui détecte
le trait d'union pour refaire ">?<???????? Y a t il un truc que vous pourriez me faire part ? Merci d'avance Marco
J-Pierre
Raymond, tu es proprement incroyable :-)
"Raymond [mvp]" a écrit dans le message de news:%
Bonsoir.
Raymond, tu es proprement incroyable :-)
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de news:%23tS9pwcvDHA.3256@TK2MSFTNGP11.phx.gbl...
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"J-Pierre" a écrit dans le message de news:
Raymond, tu es proprement incroyable :-)
J'espère que tu l'as testée et que ça marche.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"J-Pierre" <pas.de.pub.jpberchtold@hotmail.com> a écrit dans le message de
news:ez28PHdvDHA.2072@TK2MSFTNGP10.phx.gbl...
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"J-Pierre" a écrit dans le message de news:
Eau de Source
Il a fait quoi, Raymond ?
"J-Pierre" a écrit dans le message de news:
Raymond, tu es proprement incroyable :-)
"Raymond [mvp]" a écrit dans le message de news:%
Bonsoir.
Il a fait quoi, Raymond ?
"J-Pierre" <pas.de.pub.jpberchtold@hotmail.com> a écrit dans le message de
news:ez28PHdvDHA.2072@TK2MSFTNGP10.phx.gbl...
Raymond, tu es proprement incroyable :-)
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:%23tS9pwcvDHA.3256@TK2MSFTNGP11.phx.gbl...
Salut, ta fonction vba tu l'écrit simplement comme suit Private Sub Prénom_BeforeUpdate() Prénom= strconv(prénom,3) End Sub cela suffit pour mettre la première lettre en majuscule et le reste en minuscules salut "Eau de Source" a écrit dans le message de news:br2l0q$ki3$
Bonsoir,
Je suis en train de me former à Access et je débute certainement une série de questions après avoir passé plus d'un mois à vous lire.
Voilà, je me lance. Dans une table, je crée un champ "Prénom". Pour mettre la 1er lettre en majuscule je met le signe ">?<?????????" dans "Format" de propriété du champ. Mais ce système m'impose un trait disgracieux dans l'enregistrement avec la
table et surtout comment je fais si j'ai à faire avec un prénom composé. Il
faudrait un truc qui autorise un nombre indéfini de caractère et qui détecte
le trait d'union pour refaire ">?<???????? Y a t il un truc que vous pourriez me faire part ? Merci d'avance Marco
Salut, ta fonction vba tu l'écrit simplement comme suit
Private Sub Prénom_BeforeUpdate()
Prénom= strconv(prénom,3)
End Sub
cela suffit pour mettre la première lettre en majuscule et le reste en
minuscules
salut
"Eau de Source" <eau.de.source@wanadoo.fr> a écrit dans le message de
news:br2l0q$ki3$1@news-reader4.wanadoo.fr...
Bonsoir,
Je suis en train de me former à Access et je débute certainement une série
de questions après avoir passé plus d'un mois à vous lire.
Voilà, je me lance.
Dans une table, je crée un champ "Prénom". Pour mettre la 1er lettre en
majuscule je met le signe ">?<?????????" dans "Format" de propriété du
champ.
Mais ce système m'impose un trait disgracieux dans l'enregistrement avec
la
table et surtout comment je fais si j'ai à faire avec un prénom composé.
Il
faudrait un truc qui autorise un nombre indéfini de caractère et qui
détecte
le trait d'union pour refaire ">?<????????
Y a t il un truc que vous pourriez me faire part ?
Merci d'avance
Marco
Salut, ta fonction vba tu l'écrit simplement comme suit Private Sub Prénom_BeforeUpdate() Prénom= strconv(prénom,3) End Sub cela suffit pour mettre la première lettre en majuscule et le reste en minuscules salut "Eau de Source" a écrit dans le message de news:br2l0q$ki3$
Bonsoir,
Je suis en train de me former à Access et je débute certainement une série de questions après avoir passé plus d'un mois à vous lire.
Voilà, je me lance. Dans une table, je crée un champ "Prénom". Pour mettre la 1er lettre en majuscule je met le signe ">?<?????????" dans "Format" de propriété du champ. Mais ce système m'impose un trait disgracieux dans l'enregistrement avec la
table et surtout comment je fais si j'ai à faire avec un prénom composé. Il
faudrait un truc qui autorise un nombre indéfini de caractère et qui détecte
le trait d'union pour refaire ">?<???????? Y a t il un truc que vous pourriez me faire part ? Merci d'avance Marco
Raymond [mvp]
Bonjour.
Ne cherche pas, c'était de l'humour à la J-Pierre. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"Eau de Source" a écrit dans le message de news:br3qms$vir$
Il a fait quoi, Raymond ?
Bonjour.
Ne cherche pas, c'était de l'humour à la J-Pierre.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"Eau de Source" <eau.de.source@wanadoo.fr> a écrit dans le message de
news:br3qms$vir$1@news-reader5.wanadoo.fr...
Ne cherche pas, c'était de l'humour à la J-Pierre. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"Eau de Source" a écrit dans le message de news:br3qms$vir$
