Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 09/10/2011, 12h40   #1
Nouveau Membre du Club
 
Inscription : août 2006
Messages : 76
Détails du profil
Informations personnelles :
Âge : 51
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations forums :
Inscription : août 2006
Messages : 76
Points : 33
Points : 33
Par défaut Comment supprimer les espaces avec mid, left, right

Bonjour à tous,
J'ai un petit soucis pour lequel vous devriez sans effort me donner la solution.
J'ai cherché dans les différentes FAQ pouvant peut-être m'aider malheureusement je n'ai pas trouvé(peut-être n'ai-je pas posé la bonne question) c'est pour ça que je fais appel à vous.

Dans le code ci-dessous, je veux récupérer une chaine de caractère mais sans les espaces contenus dans la source.
Ainsi dans le champs MDPVNC aura un groupe de carractère sans espace.
Avez-vous une petite astuce ?

Code :
1
2
3
4
5
 
eng1 = Left(Forms!F_clientsDossier!S_F_ClientsDossier![Enseigne], 2)
eng2 = Mid(Forms!F_clientsDossier!S_F_ClientsDossier![Enseigne], 3, 2)
eng3 = Mid(Forms!F_clientsDossier!S_F_ClientsDossier![CodeClient], 1, 4)
Forms!F_clientsDossier!S_F_ClientsDossier!S_F_ClientsCom![MDPVNC] = eng1 & eng3 & eng2
D'avance merci pour votre aide qui est toujours performante.
@+
edonis est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 09/10/2011, 16h36   #2
Membre émérite
 
Conseil + Formation
Inscription : février 2010
Messages : 584
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Conseil + Formation

Informations forums :
Inscription : février 2010
Messages : 584
Points : 886
Points : 886
Bonjour

Soit tu sais où est l'espace et tu ajustes en conséquence la longueur et le point de départ de tes sous-chaînes, soit sa place est aléatoire et tu utilises instr pour chercher sa position afin d'ajuster en conséquence :
Exemple
pour prendre en left de ce qui se trouve avant le 1er espace de "chaine"
Code :
left(chaine, instr(chaine, " ")-1)
78chris est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 09/10/2011, 18h06   #3
Membre éprouvé
 
Homme
Inscription : octobre 2007
Messages : 324
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : octobre 2007
Messages : 324
Points : 440
Points : 440
Avec la fonction Replace ça marche pas?
Psychopathe est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 09/10/2011, 19h05   #4
Nouveau Membre du Club
 
Inscription : août 2006
Messages : 76
Détails du profil
Informations personnelles :
Âge : 51
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations forums :
Inscription : août 2006
Messages : 76
Points : 33
Points : 33
Vous êtes super.
Comme l'espace est aléatoire j'ai pris la solutio Replace et sa correspond exactement à ce que je cherchais
Merci encore et bon fin de week-end

@+
edonis est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 19h46.


 
 
 
 
Partenaires

Hébergement Web