[access 2002] Comment ne pas supprimer les espaces en fin de champs texte d'une table

[XRE096]

Bonjour,

[access 2002] je voudrais garder les espaces en fin de chaine sur un champ texte ou memo d'une table. Lorsque je transfert ou saisis un texte dans un champ (texte ou memo) d'un table, avec des espaces à la fin ceux disparaissent dans ma table.

Cordialement

[FreeAccess]

Bonjour,

Question bizarre.....mais pourquoi pas.....

As-tu vraiment la nécessité de "sauvegarder" les espaces dans ta table...

Dans quel but..

Sinon, tu peux très bien gérer ces espaces lors de l'utilisation de ton champ......en y rajoutant un espace.

Code :

MonChamp1.Value & " " & MonChamp2.value

[XRE096]

Bonjour,

En fait, je fais des copier coller de page web pour historiser des mouvements. Certains mouvements ont en fin un icone.

cet icone, je le repère dans mon fichier texte par des espaces.

lorsque j'exporte ces données dans une table l'espace disparait . Je ne peux donc pas diférencier les mouvements avec ou sans icone !!

[Strontium]

J'ai galéré pour trouver une solution. Rien sur le net donc je poste une solution au cas où ca serve à quelqu'un d'autre (jamais deux sans trois comme on dit )

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private sauveEspaces As Integer
 
Private Sub CSValeur_BeforeUpdate(Cancel As Integer)
    sauveEspaces = Len(Me.CSValeur.Text) - Len(RTrim(Me.CSValeur.Text))
End Sub
 
Private Sub CSValeur_Exit(Cancel As Integer)
    If sauveEspaces > 0 Then
        Me.CSValeur = Me.CSValeur & Space(sauveEspaces)
        sauveEspaces = 0
    End If
End Sub

Voilou