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 27/01/2012, 10h36   #1
Nouveau Membre du Club
 
Inscription : mars 2010
Messages : 130
Détails du profil
Informations personnelles :
Âge : 47

Informations forums :
Inscription : mars 2010
Messages : 130
Points : 38
Points : 38
Par défaut Caractères 0x0D et 0x0A

Bonjour,

j'ai créé une base de données qui importe des données deouis un fichier Excel. Parfois il y dans un champ texte un caractère spéciale qui correspond aux deux nombres héxadécimales 0x0D et 0x0A (équivalent à CR LF surement).
Je voudrais supprimer ces deux caractères lorsque j'importe les données en faisant un
Citation:
champ_DESIGNATION = Replace(RS.Fields(1), 0x0A, vbNullString)
mais cela ne marche pas dans l'état, quelqu'un peut m'aider sur la synthaxe ?

Merci
Taiby est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/01/2012, 11h06   #2
Rédacteur/Modérateur
 
Avatar de jpcheck
 
Jean-Philippe ANDRÉ
Inscription : juillet 2007
Messages : 7 878
Détails du profil
Informations personnelles :
Nom : Jean-Philippe ANDRÉ
Âge : 28
Localisation : France

Informations forums :
Inscription : juillet 2007
Messages : 7 878
Points : 10 743
Points : 10 743
Envoyer un message via MSN à jpcheck
Hello,

comme ce sont des valeurs en Hexa, deux solutions se détachent :
- passer par le code Hexa avec &H (voir exemple http://www.developpez.net/forums/d73...nnees-hexa-vb/)
- récupérer directement la valeur en système décimal voire même les constantes VB (VbCrLf et co.)
__________________
Pas de question technique par MP, je ne réponds pas

Mon perso ? Une vraie brute

Tutos Access, Tâches planifiées et Batch,Tables de Paramètres sous Access, Excel et Batch, Tâches planifiées et Access
jpcheck est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/01/2012, 12h16   #3
Membre éclairé
 
Homme Michel
Développeur informatique
Inscription : février 2008
Messages : 263
Détails du profil
Informations personnelles :
Nom : Homme Michel
Localisation : France, Hérault (Languedoc Roussillon)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Finance

Informations forums :
Inscription : février 2008
Messages : 263
Points : 309
Points : 309
Bonjour
Ca marcherait pas ce
Code :
Champ_Designation = Replace(RS.Fields(1), vbCr, vbNullString)
Michel
Orion34080 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/01/2012, 13h03   #4
Nouveau Membre du Club
 
Inscription : mars 2010
Messages : 130
Détails du profil
Informations personnelles :
Âge : 47

Informations forums :
Inscription : mars 2010
Messages : 130
Points : 38
Points : 38
J'ai essayé la totale, rien n'y fait !

Citation:
champ_DESIGNATION = Replace(RS.Fields(1), &HD, vbNullString)
champ_DESIGNATION = Replace(RS.Fields(1), &HA, vbNullString)
champ_DESIGNATION = Replace(RS.Fields(1), vbCrLf, vbNullString)
champ_DESIGNATION = Replace(RS.Fields(1), vbLf, vbNullString)
champ_DESIGNATION = Replace(RS.Fields(1), vbCr, vbNullString)
champ_DESIGNATION = Replace(RS.Fields(1), vbNewLine, vbNullString)
Taiby est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/01/2012, 13h08   #5
Nouveau Membre du Club
 
Inscription : mars 2010
Messages : 130
Détails du profil
Informations personnelles :
Âge : 47

Informations forums :
Inscription : mars 2010
Messages : 130
Points : 38
Points : 38
Autant pour moi, le caractère suivant fonctionne :

Citation:
champ_DESIGNATION = Replace(RS.Fields(1), vbLf, vbNullString)
Merci du coup de pouce
Taiby 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 20h48.


 
 
 
 
Partenaires

Hébergement Web