Discussion :

[veriecherie]

Bonjour à tous,

J'ai un problème d'ajout d'espace dans mes champs. Je m'explique.
J'ai une première table (BDC) dans laquelle je sélectionne les lignes qui ont le champs "pick_seq_11" non null, puis j'enregistre ces lignes dans une autre table (BDC_select_ps11). Et là je me rends compte que pour chaque champs copié/collé dans la table BDC_select_ps11 access rajoute un espace à la fin de la valeur. Par exemple si un champs de la table BDC contient "C017713", il me colle dans la table BDC_select_ps11 "C017713 ". Du coup je ne peux pas faire de rapprochement après entre les deux tables car mes champs sont différents d'un espace
quelqu'un sait d'où ça vient et comment y remédier, ou alors connaissez vous un moyen de contournez cette difficulté ?
Une dernière précision le copié/collé des lignes sélectionnées, je le fait en vba.

Merci

[eperat]

Pour t'aider, il faudrait que tu me montres ton code

[Gabout]

Bonjour,

Comment sélectionnes-tu tes lignes ? par une requête ?

Si c'est le cas, tu disposes des fonctions SupprEspace, SupprDroite et SupprGauche, mais elles ne sont qu'un remède. Il serait plus élégant de trouver la cause.

[veriecherie]

Bonjour,

Merci pour vos réponses, voici une partie de mon code :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
'On sélectionne les picks tickets dont la quantité est supérieure ou égale à nb_mini
        strsql2 = "SELECT BDC.[Pick Ticket #] AS pick_select FROM BDC GROUP BY BDC.[Pick Ticket #] HAVING (((Sum(BDC.Quantity))> " & nb_mini & ") OR ((Sum(BDC.Quantity))= " & nb_mini & "))"
        Set rst2 = CurrentDb.OpenRecordset(strsql2)
        'on enregistre chaque picks tickets sélectionnés dans la table BDC_mono
        Do Until rst2.EOF
            num_pick = rst2![pick_select]
            'On va chercher la/les ligne(s) correspondante(s) à num_pick et on la/les enregistre(nt) dans la table BDC_mono
            strsql3 = "SELECT BDC.[Customer #] AS custom1, BDC.[Customer #1] AS custom2, BDC.[Order #] AS order1, BDC.[Style #] AS style1, BDC.Color AS color1, BDC.[Size Type] AS size_type1, BDC.Size AS size1, BDC.Quantity AS qte1, BDC.[Pick Sequence 1] AS pick1, BDC.[Pick Sequence 11] AS pick11, BDC.[Pick Sequence 2] AS pick2, BDC.[Pick Sequence 3] AS pick3 FROM BDC WHERE (((BDC.[Pick Ticket #])='" & num_pick & "'))"
            Set rst3 = CurrentDb.OpenRecordset(strsql3)
            Do Until rst3.EOF
                custom1 = rst3![custom1]
                custom2 = rst3![custom2]
                order1 = rst3![order1]
                style1 = rst3![style1]
                color1 = rst3![color1]
                size_type1 = rst3![size_type1]
                size1 = rst3![size1]
                qte1 = rst3![qte1]
                pick1 = rst3![pick1]
                pick11 = rst3![pick11]
                pick2 = rst3![pick2]
                pick3 = rst3![pick3]
                'On enregistre le tout dans la table BDC_mono
                MonSQL = "INSERT INTO BDC_mono ([Customer #], [Customer #1], [Pick Ticket #], [Order #], [Style #], Color, [Size Type], Size, Quantity, [Pick Sequence 1], [Pick Sequence 11], [Pick Sequence 2], [Pick Sequence 3], traite) VALUES ('" & [custom1] & " ', '" & [custom2] & " ', '" & [num_pick] & " ', '" & [order1] & " ', '" & [style1] & " ', '" & [color1] & " ', '" & [size_type1] & " ', '" & [size1] & " ', '" & [qte1] & " ', '" & [pick1] & " ', '" & [pick11] & " ', '" & [pick2] & " ', '" & [pick3] & " ',0)"
                DoCmd.SetWarnings False
                DoCmd.RunSQL MonSQL
                DoCmd.SetWarnings True
                rst3.MoveNext
            Loop
            rst3.Close
            rst2.MoveNext
        Loop
        rst2.Close

Je sélectionne les numéros (pick ticket) qui m'intéressent, puis pour chaque numéros je vais sélectionner les lignes à copier et je les enregistre dans la table BDC_mono.
J'utilise donc une requête pour sélectionner les lignes.
Je vais essayer avec les fonctions que tu m'as donné Gabout, pour essayer d'appliquer un remède en attendant...
Merci

[veriecherie]

Re,

J'ai donc résolu le problème avec la fonction "Trim()", mais j'aimerai bien savoir le pourquoi du comment Access rajoute-t-il des espaces !
Si quelqu'un sait ???
Merci

[Jean-Philippe André]

Bonjour,
vérifie ta requête INSERT INTO, tu y constateras des espaces laissés par omission

essaie avec ceci :

Code :

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

MonSQL = "INSERT INTO BDC_mono ([Customer #], [Customer #1], [Pick Ticket #], [Order #], [Style #], Color, [Size Type], Size, Quantity, [Pick Sequence 1], [Pick Sequence 11], [Pick Sequence 2], [Pick Sequence 3], traite) VALUES ('" & [custom1] & "', '" & [custom2] & "', '" & [num_pick] & "', '" & [order1] & "', '" & [style1] & "', '" & [color1] & "', '" & [size_type1] & "', '" & [size1] & "', '" & [qte1] & "', '" & [pick1] & "', '" & [pick11] & "', '" & [pick2] & "', '" & [pick3] & "',0)"