Annonce
#1 Thu 14 May 2009 08:53
- PaulH
- Participant assidu
- Lieu: Nantes
- Date d'inscription: 1 Aug 2007
- Messages: 463
Script pour identifiant
Bonjour,
J'expose le problème. J'ai un champ identifiant se terminant parfois par une lettre.
ex: FRFR1548A
La lettre a la fin n'est pas systématique mais est toujours en majuscule. J'aimerais créer un script qui quand l'identifiant se termine par une lettre, transforme la lettre en minuscule.
Merci!!
Paul Hedin
ex-luern
Hors ligne
#2 Thu 14 May 2009 09:48
- Spacejo
- Membre
- Lieu: Nancy
- Date d'inscription: 17 Aug 2008
- Messages: 2511
Re: Script pour identifiant
Salut,
Pour ton code voilà les 2 fonctions dont tu as besoin:
Lcase et Right([Ton_Champs],1)
Pour la première -----> http://msdn.microsoft.com/fr-fr/library … S.80).aspx
La seconde récupère le premier caractère de ta chaine en partant par la droite -----> Right([Ton_Champs],1)
A+
Joël
Hors ligne
#3 Thu 14 May 2009 10:16
- PaulH
- Participant assidu
- Lieu: Nantes
- Date d'inscription: 1 Aug 2007
- Messages: 463
Re: Script pour identifiant
Oui ms on ne peut pas appliquer ces fonctions en même temps...
Il faut que je convertisse en minuscule uniquement la dernière lettre (si elle est présente)
Faudrait utiliser ces 2 fonctions en les imbriquant
Paul Hedin
ex-luern
Hors ligne
#4 Thu 14 May 2009 10:22
- Spacejo
- Membre
- Lieu: Nancy
- Date d'inscription: 17 Aug 2008
- Messages: 2511
Re: Script pour identifiant
Re,
Je te cite 
J'aimerais créer un script
Le tout est de récupérer le dernier caractère de ta chaine avec le "Right" puis faire un test avec un "If" ---> "est ce bien une lettre?" puis le "Lcase" pour transformer cette lettre de majuscule vers du minuscule.
Bon courage
A+
Joël
Dernière modification par Spacejo (Thu 14 May 2009 10:23)
Hors ligne
#5 Thu 14 May 2009 10:30
- PaulH
- Participant assidu
- Lieu: Nantes
- Date d'inscription: 1 Aug 2007
- Messages: 463
Re: Script pour identifiant
ça serait gentil en fait si tu pouvais plus m'aider.
les scripts et moi, on s'aime pas trop...
Paul Hedin
ex-luern
Hors ligne
#6 Thu 14 May 2009 11:04
- Spacejo
- Membre
- Lieu: Nancy
- Date d'inscription: 17 Aug 2008
- Messages: 2511
Re: Script pour identifiant
Re,
Essaye ça:
Code:
Dim Var1 as Integer Dim Début as String Dim Fin as String Var1=Len([Ton_Champs]) Début=Left([Ton_Champs],Var1-1) Fin=Right([Ton_Champs],1) Fin=Lcase(Fin) Code=Début & Fin
Mettre "Code" dans le champs du bas
Ps:Une petite précision ---> Le test n'est pas utile car la minuscule et la majuscule d'un chiffre reste le même caractère
A+
Joël
Dernière modification par Spacejo (Thu 14 May 2009 11:11)
Hors ligne
#7 Thu 14 May 2009 11:19
- PaulH
- Participant assidu
- Lieu: Nantes
- Date d'inscription: 1 Aug 2007
- Messages: 463
Re: Script pour identifiant
Ca marche merci beaucoup!
Paul Hedin
ex-luern
Hors ligne
