Discussion :

[Bragon12]

Bonjour,

Voici mon problème :

Dans mon application une partie de mes champs texte se remplissent d'espace à la suite du texte. Celà est assez problématique lorsque je souhaite faire des concaténation, je sais qu'il existe des forumles de supression de caractère, mais je souhaiterai plutôt traiter le problème à la source. Suariez-vous pourquoi j'ai ces espaces dans mes champs?

[Invité]

Bonjour

Il serait bon d'indiquer comment tu remplis ces champs (saisies manuelles, importation, etc...), et les propriétés de ces champs.

Si c'est du code par exemple, indique le code que tu utilises.

Philippe

[Bragon12]

Les champs de la table sont remplis via un formulaire de saisie. Lorsque l'entrée saisie dans une zone de liste déroulante ne fait pas partie de la liste, une boite de dialogue invite à l'ajouter à la table. Voici le 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
Private Sub id_sec_NotInList(NewData As String, Response As Integer)
Dim txtmsg As String
Dim rstSection As Recordset
'supression du message d'erreur
    Response = DATA_ERRCONTINUE
'boite de message
    txtmsg = NewData & " n'est pas une section connue de " & INSEE.Column(1) & Chr(10) & "Voulez-vous l'ajouter aux sections de la commune ?"
    Select Case MsgBox(txtmsg, vbYesNo, "Saisie inconnue")
    'si nouvel enregistrement
    Case 6
        'Ouverture du recordset
        Set rstSection = CurrentDb.OpenRecordset("Section")
        'Ajout de l'enregistrement
        With rstSection
            .AddNew
            !id_sec = INSEE & NewData
            !nom_sect = NewData
            !INSEE = INSEE
            .Update
        End With
        'selection de l'enregistrement dans la liste
        rstSection.MoveLast
        id_sec = rstSection!id_sec
        'fermeture du recordset
        rstSection.Close
    'si abandon
    Case 7
        id_sec = ""
        End
    End Select
End Sub

[Bragon12]

Bonjour,

Je n'ai toujours pas résolu mon problème qui semble par ailleurs me poser problème dans un autre formulaire, quelqu'un aurait-il une idée sur les raisons de ce remplissage d'espaces? Ce qui est bizzar c'est que çà me le fait sur certains champs mais pas sur d'autres!

[Dolphy35]

Bonjour,

regarde du côté de la fonction : Trim()

Lors de l'ajout des données englobe ta variable dans la fonction.

@++

[Bragon12]

Oui j'y avais pensé, mais sauf erreur de ma part, cette fonction supprime tous les espaces du champ! Or, mes champs contiennent des noms de lieu, souvent composés de plusieurs mots et donc d'espaces!

[Invité]

Bonjour

Trim supprime les espaces avant et après et non dans la chaine.

Philippe

[Bragon12]

J'ai l'impression de juste traiter les symptômes en faisant ca , sans vraiment traiter la source du problème. Je ne comprend toujours pas pourquoi il m'ajoute cette série d'espaces dans mon champ dans la mesure où, sur ma msgbox (ligne 8) le NewData n'a pas d'espaces!

[Invité]

Bonjour

Donc un trim sur le NewData sur ces lignes :

Code :

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

1
2
3
4
5
6
7
With rstSection
            .AddNew
            !id_sec = INSEE & Trim(NewData)
            !nom_sect = Trim(NewData)
            !INSEE = INSEE
            .Update
        End With

Et est-ce qu'il n'y aurait pas un format dans le champ nom_sect ?

Philippe

[Bragon12]

Non, il n'y a pas de format particulier! Voilà les cactéristiques du champ nom_sect (Texte court) :

Taille du Champ : 255
Null interdit : Non
Chaine vide autorisée : Oui
Indexé : Non
Compression unicode : Non
Mode IME : Aucun contrôle
Mode de formulation IME : Aucun
Aligner le texte : Général

Pour le reste les champs sont vides!

[Invité]

Re

Franchement, à part le Trim, je ne vois pas ce qui peut y avoir de plus.

Désolé.

Philippe

[Bragon12]

Le Trim ne fonctionne pas
Je ne comprend vraiment pas, car avant que la donnée soit entrée dans la table il est claire qu'elle n'a pas d'espace!!!

[Bragon12]

Et même quand je fait une saisie manuelle dans la table, les espace apparaissent!!!

[Bragon12]

Du coup J'ai résolu mon problème :
J'ai repassé tous mes champs posant porblème en texte long, enregistré, puis repassé en texte court!

Peut-être le problème venait que mes tables avaient été générées par un code SQL définissant ces champs comme CHAR. Mais celà est étrange puisque d'autre champs dans d'autres tables définis pareille n'avaient pas ce problème!

Les voies d'Access sont parfoit impénétrables !!!