Discussion :

[Edy360]

Bonjour à tous,

Assez novice sur Access, je suis confronté à un problème de caractères dans un champs texte.

1) J'importe à partir d'Excel dans une table (TEST) un champ texte (N° CIR) basé sur 11 caractères (donc dans mon format du champ texte j'ai mis @@@@@@@@@@@). ce champ est possible qu'en texte (car mélange alphanumérique)
2) Dans le fichier Excel, les 11 caractères ne sont pas forcément présents d'où le fait de forcer avec les 11 @. Parfois il en manque au début ou à la fin.
3) La table Access m'affiche donc parfois les 11 caractères (exemple : 1234567891X) ou """"""1236549"" ou 123456789"""" (avec les "" repérsentant des vides"

Je souhaiterais remplacer ces "vides" par un 0 sur l'ensemble des données de la colonne (N° CIR)
J'ai essayé par une requête mise à jour : Remplacer([N° CIR];" ";"0") ou Remplacer([N° CIR];"@";"0") ou Remplacer([N° CIR];"";"0") mais rien ne bouge.

Dois je utiliser une autre formule ou un code VBA directement ? Et si oui laquelle ?

Merci d'avance pour votre aide qui m'avancerait énormément...

Cordialement

Edy360

[nico84]

Bonjour,

A priori j'aurais tendance à toujours ajouter des 0 du même coté sinon ça va être l'embrouille... Par exemple devant avec une formule du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monchamp11=right("00000000000" & trim(monchamp),11)

(je mets 11 zéros pour être sûr d'avoir 11 caractères à la fin)

[Edy360]

Bonsoir
Merci pour ta reponse. Je vais essayer demain mais je ne pense que cela resoudra ma problematique. Les vides sont a gauche ou a droite et d'un nombre pouvant etre changeant semon la donnees. Il faut des 0 à l'endroit precis des vides.

Merci quand meme et bonne soirée
Edy360

[nico84]

En fait je ne comprends pas pourquoi replace ne marche pas car ça devrait faire le boulot...
Les espaces existent bien dans le tableau excel ? Ils existent aussi dans la table access après import ?
Si oui > update matable set monchamp=replace(monchamp,' ','0') et l'affaire est réglée...

[Edy360]

Moi non plus en fait...
Les vides existent surtout apres import de l'excel car je force la donnee texte en mettant les 11 @ dans le format du champ de la table.
Ensuite je fais une requête mise a joir avec le code. Tu penses qu'il faut passer par du code ?
Merci

[nico84]

Ca ne serait pas juste un format d'affichage par hasard ?
Si c'est un format d'affichage ou un masque de saisie c'est sans effet lors de l'import je pense, seul l'update modifiera les données issues d'excel

[Edy360]

Bonjour,

Quand tu parles "d'update" c'est avec une requête mise à jour ou du code vba direct (là ça dépasse mes capacités) ?

En passant par une requête mise à jour avec dans mise à jour : Remplacer([N° CIR];" ";"0")...rien du tout.

Si c'est par du VBA pourrais tu m'inqiuer stp la arche à suivre

merci de ton aide

Edy360

[nico84]

Une requete c'est du SQL donc en anglais. Remplacer(... ça se passe juste au niveau de l'affichage.
Mais d'abord il faut voir si les espaces sont bien présents dans la table TEST ?

[Edy360]

Je regarde ca a partir du 23. Je n'aurai pas accès à la base la semaine pro (congés). Merci pour ton aide.

[Edy360]

Mais sinon oui la table a les espaces puisque dans le format du champ texte N CIR je mets @@@@@@@@@@@. Apres pour faire le sql update je passe par un requête mise a jour ou une macro ? Dans tous les cas merci de ton aide

[Edy360]

Le problème a été réglé en demandant un fichier .TXT pour l'import...
Merci