OVH Cloud OVH Cloud

Mise en Forme d'un champ

4 réponses
Avatar
themeepmeep
Bonsoir.

Petit soucis encore et toujours avec Access... C'est très simple :
Je veux que la valeur saisie via un champ dans un formulaire soit
enregistrée sous une certaine mise en forme dans la table, exemple tout en
majuscule, ou alors 1ere lettre en majuscule puis le reste tout en minuscle
afin que dans les Etats tout ceci apparaisse bien formatté. Comment puis-je
faire ? Car l'aide de Access ne m'a pas vraiment bien aidé... Merci pour
votre réponse par avance

4 réponses

Avatar
tonio
Bonsoir.
Bonsoir,


Petit soucis encore et toujours avec Access... C'est très simple :
Je veux que la valeur saisie via un champ dans un formulaire soit
enregistrée sous une certaine mise en forme dans la table, exemple tout en
majuscule, ou alors 1ere lettre en majuscule puis le reste tout en minuscle
afin que dans les Etats tout ceci apparaisse bien formatté. Comment puis-je
faire ? Car l'aide de Access ne m'a pas vraiment bien aidé... Merci pour
votre réponse par avance


voici une fonction exemple à adapter selon besoin

Function MiseEnMajuscule(Chaine As String) As String
Dim nCar As Integer 'Compteur (position dans la chaine à traiter)

Chaine = Trim$(Chaine) 'Récupère la chaîne sans les espaces facultatifs
'Traitement spécifique sur le premier caractère
MiseEnMajuscule = UCase$(Left(Chaine, 1))
'Début de la boucle sur les autres caractères
For nCar = 2 To Len(Chaine)
'Teste le caractère précédent (" " ou "-")
If (Mid$(Chaine, nCar - 1, 1) = " ") Or (Mid$(Chaine, nCar - 1, 1) =
"-") Then
'Si c'est vrai, mettre en majuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & UCase$(Mid(Chaine, nCar, 1))
Else
'Si c'est faux, mettre en minuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & LCase$(Mid(Chaine, nCar, 1))
End If
'Fin de la boucle sur les caractères
Next
End Function


A appeler

Dim Prénom As String

Prénom = MiseEnMajuscule(Me.Txt_Prénom)
Me.Txt_Prénom = Prénom


--
Tonio
Débutant mais volontaire ;-)

Avatar
themeepmeep
Merci :o)

Cependant n'y a t'il pas un autre moyen que des Macros, surtout que je ne
sais pas comment "appeler" la macro ni à quel moment... :o|
Déjà qu'avec Access je ne suis pas trop trop calé, alors ça fait beaucoup en
1 coup tout ça ;-)

"tonio" wrote:

Bonsoir.
Bonsoir,


Petit soucis encore et toujours avec Access... C'est très simple :
Je veux que la valeur saisie via un champ dans un formulaire soit
enregistrée sous une certaine mise en forme dans la table, exemple tout en
majuscule, ou alors 1ere lettre en majuscule puis le reste tout en minuscle
afin que dans les Etats tout ceci apparaisse bien formatté. Comment puis-je
faire ? Car l'aide de Access ne m'a pas vraiment bien aidé... Merci pour
votre réponse par avance


voici une fonction exemple à adapter selon besoin

Function MiseEnMajuscule(Chaine As String) As String
Dim nCar As Integer 'Compteur (position dans la chaine à traiter)

Chaine = Trim$(Chaine) 'Récupère la chaîne sans les espaces facultatifs
'Traitement spécifique sur le premier caractère
MiseEnMajuscule = UCase$(Left(Chaine, 1))
'Début de la boucle sur les autres caractères
For nCar = 2 To Len(Chaine)
'Teste le caractère précédent (" " ou "-")
If (Mid$(Chaine, nCar - 1, 1) = " ") Or (Mid$(Chaine, nCar - 1, 1) =
"-") Then
'Si c'est vrai, mettre en majuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & UCase$(Mid(Chaine, nCar, 1))
Else
'Si c'est faux, mettre en minuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & LCase$(Mid(Chaine, nCar, 1))
End If
'Fin de la boucle sur les caractères
Next
End Function


A appeler

Dim Prénom As String

Prénom = MiseEnMajuscule(Me.Txt_Prénom)
Me.Txt_Prénom = Prénom


--
Tonio
Débutant mais volontaire ;-)






Avatar
themeepmeep
Re Bonsoir...

Je suis toujours sur ce fichu problème, je cherche un peu partout mais je
n'arrive pas.
J'ai lu qu'on pouvait utiliser un truc genre "strConv([NomFamille], UCase)"
mais je ne sais pas où le mettre dans le formulaire que j'utilise... Une idée
? Faut-il utiliser ConvertChaîne ou StrConv ? Quand je fais ça, ca m'ouvre
lors de l'enregistrement de la requete une fenetre UCase ?!?


Bonsoir.
Bonsoir,


Petit soucis encore et toujours avec Access... C'est très simple :
Je veux que la valeur saisie via un champ dans un formulaire soit
enregistrée sous une certaine mise en forme dans la table, exemple tout en
majuscule, ou alors 1ere lettre en majuscule puis le reste tout en minuscle
afin que dans les Etats tout ceci apparaisse bien formatté. Comment puis-je
faire ? Car l'aide de Access ne m'a pas vraiment bien aidé... Merci pour
votre réponse par avance


voici une fonction exemple à adapter selon besoin

Function MiseEnMajuscule(Chaine As String) As String
Dim nCar As Integer 'Compteur (position dans la chaine à traiter)

Chaine = Trim$(Chaine) 'Récupère la chaîne sans les espaces facultatifs
'Traitement spécifique sur le premier caractère
MiseEnMajuscule = UCase$(Left(Chaine, 1))
'Début de la boucle sur les autres caractères
For nCar = 2 To Len(Chaine)
'Teste le caractère précédent (" " ou "-")
If (Mid$(Chaine, nCar - 1, 1) = " ") Or (Mid$(Chaine, nCar - 1, 1) =
"-") Then
'Si c'est vrai, mettre en majuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & UCase$(Mid(Chaine, nCar, 1))
Else
'Si c'est faux, mettre en minuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & LCase$(Mid(Chaine, nCar, 1))
End If
'Fin de la boucle sur les caractères
Next
End Function


A appeler

Dim Prénom As String

Prénom = MiseEnMajuscule(Me.Txt_Prénom)
Me.Txt_Prénom = Prénom


--
Tonio
Débutant mais volontaire ;-)






Avatar
tonio
themeepmeep a écrit dans son message
:
Re Bonsoir...
Bonsoir,

Je suis toujours sur ce fichu problème, je cherche un peu partout mais je
n'arrive pas.
J'ai lu qu'on pouvait utiliser un truc genre "strConv([NomFamille], UCase)"
mais je ne sais pas où le mettre dans le formulaire que j'utilise... Une idée
? Faut-il utiliser ConvertChaîne ou StrConv ? Quand je fais ça, ca m'ouvre
lors de l'enregistrement de la requete une fenetre UCase ?!?


Bonsoir.
Bonsoir,


Petit soucis encore et toujours avec Access... C'est très simple :
Je veux que la valeur saisie via un champ dans un formulaire soit
enregistrée sous une certaine mise en forme dans la table, exemple tout en
majuscule, ou alors 1ere lettre en majuscule puis le reste tout en minuscle
afin que dans les Etats tout ceci apparaisse bien formatté. Comment puis-je
faire ? Car l'aide de Access ne m'a pas vraiment bien aidé... Merci pour
votre réponse par avance





sinon tu peux mettre dans le masque de saisie des propriétés de ton controle

&CCCCCCCCCCCCCCCCCCCCCCCCCCCC


pour mettre tout en majuscule
= mettre en majuscule ce qui suis
& = un caractère obligatoire (lettre chiffre espace tiret ...)

C = un caractère facultatif (idem &)

&<CCCCCCCCCCCCCCCC


Pour mettre la première lettre en Majuscule et le reste en minuscule

Bonne route

--
Tonio
Me.[Débutant]=Null
;-);-);-)