OVH Cloud OVH Cloud

Majuscule dans un Etat

8 réponses
Avatar
Starwing
Bonjour =E0 tous,

J'ai un probl=E8me dans un Etat, j'essaie de mettre en=20
Majuscule la seule lettre d'une zone de texte situ=E9 dans=20
le champ D=E9tail.

Croyez-le ou non, j'en suis incapable, m=EAme avec l'aide de=20
Google. Rien ne fonctionne, aucun code. Nenni, Niet...
Ucase, code vba dans Format_D=E9tail...Rien


un exemple dans ma bal serais appr=E9ci=E9

brault-lavoie@sympatico.ca


Merci d'avance

Starwing

8 réponses

Avatar
NEWS FREE
Essayer en format le sigle >

"Starwing" a écrit dans le message de news:
6ca901c483c6$4dd2cb40$
Bonjour à tous,

J'ai un problème dans un Etat, j'essaie de mettre en
Majuscule la seule lettre d'une zone de texte situé dans
le champ Détail.

Croyez-le ou non, j'en suis incapable, même avec l'aide de
Google. Rien ne fonctionne, aucun code. Nenni, Niet...
Ucase, code vba dans Format_Détail...Rien


un exemple dans ma bal serais apprécié




Merci d'avance

Starwing
Avatar
Pierre-André
Conversion de la casse des caractères saisis.

Il est parfois nécessaire de garantir la casse des données saisies par les
usagers dans une zone de texte. Par exemple, pour l'adresse URL d'un site
web, on s'assurera que tous les caractères sont en minuscules. Inversément,
pour certaines abréviations, on devra vérifier qu'elles sont bien en
majuscules. Il s'agit donc d'utiliser une routine de conversion
MajusculeMinuscule, pouvant fonctionner dans les deux cas. Pour distinguer
chaque cas, on l'appellera avec un argument de type booléen True ou False).

Dans un module standard, on écrira:

Function MajusculeMinuscule(intKey As Integer, bCasse As Boolean) As Integer
' Entrée : intKey valeur Ascii du caractère à convertir

' bCasse (True = Conversion en majuscule, False = Conversion en minuscule)
' Sortie : intkey converti selon les besoins
' La différence entre les valeurs ASCII des lettres minuscules
' et des lettres majuscules est 32.
Const conMajusculeMinuscule As Integer = 32
MajusculeMinuscule = intKey
Select Case intKey
Case 97 To 122 'minuscules de a à z
If bCasse Then
MajusculeMinuscule = intKey - conMajusculeMinuscule
End If
Case 65 To 90 'majuscules de A à Z
If Not bCasse Then
MajusculeMinuscule = intKey + conMajusculeMinuscule
End If
Case 27, 44, 126
'Echap, Virgule, et ~ ne seront pas acceptés
Beep
MajusculeMinuscule = 0
Case Else
MajusculeMinuscule = intKey
End Select
End Function

Dans le formulaire de saisie, les zones de texte concernées seront dotées
d'une procédure associée à l'événement Sur touche activée, telle que la
suivante:

Private Sub txtURL_KeyPress(KeyAscii As Integer)
' Objectif: appeler la fonction MajusculeMinuscule pour effectuer
' une conversion de la casse des caractères saisis par les usagers.
' Exemple: saisie d'une adresse de site web (URL) en minuscules
KeyAscii = GestionDonnées.MajusculeMinuscule(KeyAscii, False)
End Sub

"Starwing" a écrit dans le message de
news:6ca901c483c6$4dd2cb40$
Bonjour à tous,

J'ai un problème dans un Etat, j'essaie de mettre en
Majuscule la seule lettre d'une zone de texte situé dans
le champ Détail.

Croyez-le ou non, j'en suis incapable, même avec l'aide de
Google. Rien ne fonctionne, aucun code. Nenni, Niet...
Ucase, code vba dans Format_Détail...Rien


un exemple dans ma bal serais apprécié




Merci d'avance

Starwing
Avatar
3stone
Salut,

"Starwing"

J'ai un problème dans un Etat, j'essaie de mettre en
Majuscule la seule lettre d'une zone de texte situé dans
le champ Détail.


Dans la zone de texte concernée:

=UCase([LeChamp])

ce qui transforme la zone de texte dépendante en
zone de texte calculée.



Croyez-le ou non, j'en suis incapable, même avec l'aide de
Google. Rien ne fonctionne, aucun code. Nenni, Niet...
Ucase, code vba dans Format_Détail...Rien

Par contre, si tu as un problème avec UCase, Left,
Trim et autres fonctions VBA, c'est que tu as un problème
de références...

Alt + F1 et ensuite menu Outils, Références.
et tu trouvera une référence marquée "Manquante..."
Dècoche-là et compile.


un exemple dans ma bal serais apprécié



allo, ici forum ;-))


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Avatar
Starwing
Bonjour 3stone,

Lorsque je mets ce code,

=UCase([LeChamp])

ce qui transforme la zone de texte dépendante en
zone de texte calculée.

La formule se transforme en ceci:
=Majuscule([NuméroModèle])

Puis lorsque je visionne l'État je reçois comme valeur:
#erreur


Snif! C'est quoi qui ne fonctionne pas?

Starwing
"3stone" a écrit dans le message de
news:%
Salut,

"Starwing"

J'ai un problème dans un Etat, j'essaie de mettre en
Majuscule la seule lettre d'une zone de texte situé dans
le champ Détail.


Dans la zone de texte concernée:

=UCase([LeChamp])

ce qui transforme la zone de texte dépendante en
zone de texte calculée.



Croyez-le ou non, j'en suis incapable, même avec l'aide de
Google. Rien ne fonctionne, aucun code. Nenni, Niet...
Ucase, code vba dans Format_Détail...Rien

Par contre, si tu as un problème avec UCase, Left,
Trim et autres fonctions VBA, c'est que tu as un problème
de références...

Alt + F1 et ensuite menu Outils, Références.
et tu trouvera une référence marquée "Manquante..."
Dècoche-là et compile.


un exemple dans ma bal serais apprécié



allo, ici forum ;-))


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------







Avatar
3stone
Salut,

"Starwing"
Lorsque je mets ce code,

=UCase([LeChamp])

ce qui transforme la zone de texte dépendante en
zone de texte calculée.

La formule se transforme en ceci:
=Majuscule([NuméroModèle])

Puis lorsque je visionne l'État je reçois comme valeur:
#erreur


Snif! C'est quoi qui ne fonctionne pas?



ton [NuméroModèle] est bien le nom exact d'un champ
qui se retrouve dans la requête source de ton état ?


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Starwing
Bonjour 3stone,

ton [NuméroModèle] est bien le nom exact d'un champ
qui se retrouve dans la requête source de ton état ?
Non elle ne l'est pas.
Voici la Requête source de mon Etat:

SELECT DISTINCTROW [Catégories de biens].CatégorieBien, Biens.* FROM
[Catégories de biens] RIGHT JOIN Biens ON [Catégories de
biens].RéfCatégorieBien=Biens.RéfCatégorieBien;

Cette Requête viens en fait d'un modèle d'ACCESS. J'essaie à partir d'un
modèle, de créer une application personnelle de gestion des espaces. Ce
modèle me semble la mieux adapter àpour mes besoins.
Toutefois, la création de Requête comme ci-haut m'est presque totalement
inconnu...
S'il faut que j' ajoute quelque chose dans cette Requête j'en serai
incapable...

Pourrais-tu m'aider?

Starwing
Avatar
3stone
Salut,

"Starwing"
ton [NuméroModèle] est bien le nom exact d'un champ
qui se retrouve dans la requête source de ton état ?
Non elle ne l'est pas.



ben... dans ce cas, que représente ce "NuméroModèle"
que tu veux présenter en majuscules ??

Tu dois tout de même savoir comment s'appelle le champ
que tu veux traiter...



Voici la Requête source de mon Etat:

SELECT DISTINCTROW [Catégories de biens].CatégorieBien, Biens.* FROM
[Catégories de biens] RIGHT JOIN Biens ON [Catégories de
biens].RéfCatégorieBien=Biens.RéfCatégorieBien;

Cette Requête viens en fait d'un modèle d'ACCESS. J'essaie à partir d'un
modèle, de créer une application personnelle de gestion des espaces. Ce
modèle me semble la mieux adapter àpour mes besoins.
Toutefois, la création de Requête comme ci-haut m'est presque totalement
inconnu...
S'il faut que j' ajoute quelque chose dans cette Requête j'en serai
incapable...



Dans ce cas, tu es mal embarqué ;-)

Evidemment, tu n'as (probablement) pas besoin de modifier ta requête
sous sa forme SQL... reste plutôt dans l'éditeur de requête graphique...
Beaucoup déjà s'y laisse résoudre.


Prendre une appli existante comme base est une solution, encore faut-il
l'étudier à fond pour en comprendre le "fonctionnement".
Sans cela, toute modif est hasardeuse.


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Starwing
Bonjour 3Stone,

Merci *****BEAUCOUP**** 3stone,

Je viens de saisir pourquoi cela ne fonctionnais pas, grâce à tes
informations, j'ai fini par comprendre. Ça pris du temps... Mille mercis!!

Maintenant cela fonctionne bien ;-)

YAHOO!!!

Starwing


"3stone" a écrit dans le message de
news:uzG$$
Salut,

"Starwing"
ton [NuméroModèle] est bien le nom exact d'un champ
qui se retrouve dans la requête source de ton état ?
Non elle ne l'est pas.



ben... dans ce cas, que représente ce "NuméroModèle"
que tu veux présenter en majuscules ??

Tu dois tout de même savoir comment s'appelle le champ
que tu veux traiter...



Voici la Requête source de mon Etat:

SELECT DISTINCTROW [Catégories de biens].CatégorieBien, Biens.* FROM
[Catégories de biens] RIGHT JOIN Biens ON [Catégories de
biens].RéfCatégorieBien=Biens.RéfCatégorieBien;

Cette Requête viens en fait d'un modèle d'ACCESS. J'essaie à partir d'un
modèle, de créer une application personnelle de gestion des espaces. Ce
modèle me semble la mieux adapter àpour mes besoins.
Toutefois, la création de Requête comme ci-haut m'est presque totalement
inconnu...
S'il faut que j' ajoute quelque chose dans cette Requête j'en serai
incapable...



Dans ce cas, tu es mal embarqué ;-)

Evidemment, tu n'as (probablement) pas besoin de modifier ta requête
sous sa forme SQL... reste plutôt dans l'éditeur de requête
graphique...

Beaucoup déjà s'y laisse résoudre.


Prendre une appli existante comme base est une solution, encore
faut-il

l'étudier à fond pour en comprendre le "fonctionnement".
Sans cela, toute modif est hasardeuse.


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------