Discussion :

[jmde]

Bonjour

Lorsque je valide ce code tout fonctionne correctement, mais je n’arrive pas à supprimer les espaces du champ
Catégorie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Do While Not rs1.EOF
 
'--- Rechercher si le numéro  existe
     rs.FindFirst "[Numéro]=" & rs1! Numéro   
 
'--- Pas de numéro trouvé, crée l'enregistrement
     If rs.NoMatch Then
 
'--- Enregistrement des données
     rs.AddNew
       rs("Nom") = rs1!Nom
       rs("Prénom") = rs1!Prénom
       rs("Titre") = rs1!Civil
       rs("Numéro") = rs1!Numéro
       rs(Trim("Catégorie")) = Trim(rs1!Catégorie)
 
    rs.Update
    End If
    rs1.MoveNext
    Loop

Merci pour votre aide

Salutations
Jacques

[ptitdragon_eric]

De quel champs tu parles?

[jmde]

Bonjour,

Du champ catégorie "rs(Trim("Catégorie"))" du type texte

Salutations.
Jacques

[ptitdragon_eric]

Code :

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

rs(Trim("Catégorie"))

Le Trim qui est là ne sert à rien puisqu'il s'agit du champs Catégorie de ton recordset rs.

Code :

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

Trim(rs1!Catégorie)

Là tu supprime les espaces extérieurs c'est à dire avant le premier caractère du contenu du champs et après le dernier caractère du contenu.

sinon je ne vois pas quels espaces tu veux supprimer.

[jmde]

Bonjour,

Merci de t’intéresser à mon problème, j’ai effectué la modification, et j’ai toujours les espaces devant le contenu du champ catégorie.

Voila les espaces que je voudrai supprimer :
Les valeurs du champ catégorie de rs1 se présente ainsi.

!---Catégorie---!
!--AA-------------!
!--BB-------------!

Sur rs je voudrai :
!---Catégorie---!
!AA---------------!
!BB---------------!

Mais je n’y arrive pas.

Salutations
Jacques

[Trini]

Bonjour,

Bon logiquement le Trim() devrait fonctionner

Code :

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

1
2
 
 rs("Catégorie") = Trim(rs1!Catégorie)

Est-tu sûr que ce sont bien des blancs ?
Tu peux faire un ti test du style :

Code :

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

1
2
3
4
5
 
  ....
  Msgbox "Controle code Ascii : " & Asc(left(rs1!Catégorie),1)
  rs("Catégorie") = Trim(rs1!Catégorie)
  ....

Si la valeur est différente de 32 C'est pas un blanc, et dans ce cas il faudrait utiliser une fonction qui remplace ces caractères par des blancs ou carrément "".
Si c'est 32, euh , je vois pas où est le problème !

Salut,

[ptitdragon_eric]

Essaye

Code :

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

LTrim(rs1!Catégorie)

C'est la fonction de supprimer les espaces à gauche. sinon je ne vois pas pquoi il t'insère des espace à gauche pour une saisie de texte.

C'est où que tu as ce soucis : dans une table, un formulaire ou un état?

[jmde]

Re bonjour Trini,

J’ai fait le test mais j’ai une « erreur de compilation argument non facultatif »
Le curseur s’arrête sur Left, et Je n’arrive pas à débuguer.

Salutations

Jacques

[jmde]

Bonjour Petitdragon.

J’ai déjà essayé avec LTrim, sans aucun résultat.
Le problème se situe dans la table.
Je précise que les données de rs1 proviennent de l’importation d’une table Excel dans Access.

Salutations

Jacques

[Trini]

Re,

Désolé, une erreur de frappe dans les parenthèses , il faut lire

Code :

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

1
2
 
Asc(left(rs1!Catégorie,1))

Bon test

[jmde]

Re,

La valeur est 160, sauf erreur il sagit d'un espace.

A-tu une solution ?

Salutations
Jacques

[SfJ5Rpw8]

bon comme dit plus haut le caractére espace à 32 pour code ascii, mais tu as raison le cractére 160 lui ressemble énormément ...


un petit remplacement doit te permettre de le supprimer ...

Code :

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

stCategorie =replace(rs1!Catégorie,Chr(160),"")

[Tofalu]

Pourquoi un addnew ?

Tu veux modifier ou ajouter ?

[Trini]

Re,

J'ai essayé pour voir de créer une variable avec des Chr(160) devant, ben le Trim() ne supprime pas ces caractères.
Susceptible la fonction Trim() ?

Salut,

[jmde]

Bonsoir Trini

J’ai du m’absenter ce qui fait que je n’ai pas encore essayer ton code.

A+

Jacques

[jmde]

Bonsoir Tofalu,

Je veux ajouter des enregistrements.
Mais j’ai le même problème avec mon code de mise à jour que j’aborderai plus tard.

Salutations
Jacques

[jmde]

Bonsoir,

Un grand merci à vous tous.

Mon problème et résolu, et voici la ligne de code:

Code :

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

rs("Categorie") = Trim(Replace(rs1!Categorie, Chr(160), ""))

Bon dimanche.

Salutations

Jacques