Le portail francophone de la géomatique

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

Re,

Je te cite

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)

Re,

Essaye ça:

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)