Discussion :

[tAKAmAkA]

Bonjour à tous,

Je me retrouve, je ne sais comment avec une kirielle d'espaces en fin d'un champ texte qui contient un chemin de fichier.
Et ceci me pose probleme dans mes docmd.runsql
J'utilise donc Trim mais je n'ai pas le résultat attendu.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function fctMvmtInsert(ByVal TypeMvmt As String, ByVal Docnum As Long, ByVal FichierAvant As String, ByVal FichierApres As String)
Dim fsespace As String
Debug.Print "fav " & FichierAvant & "I"
fsespace = Trim(FichierAvant)
Debug.Print "fse " & fsespace & "O"
Debug.Print "fap " & FichierApres & "H"
Dim SQLinsMvt As String
SQLinsMvt = "INSERT INTO tblMouvement (TypeMvmt, Docnum, MvmtDate, Acteur, FichierAvant, FichierApres) " & _
                "VALUES ('" & Replace(TypeMvmt, " ", "") & "', " & Docnum & ",  " & Chr(35) & Date & " " & Time() & Chr(35) & ",'" & Application.CurrentUser & "','" & Trim(Replace(FichierAvant, "'", "''")) & "', '" & Trim(Replace(FichierApres, "'", "''")) & "')" & ";"
Debug.Print SQLinsMvt
    DoCmd.RunSQL SQLinsMvt
End Function

et le debug.print

fav E:\Mes documents\Ged\bookdrive.pdf ---ici tout plein d'espaces---I
fse E:\Mes documents\Ged\bookdrive.pdf ---- ici c'est tout pareil ----O
fap E:\RepDestination\bookdrive.pdfH
INSERT INTO tblMouvement (TypeMvmt, Docnum, MvmtDate, Acteur, FichierAvant, FichierApres) VALUES ('Sauvegarde', 802, #06/10/2007 00:01:35#,'Admin','E:\Mes documents\Ged\bookdrive.pdf ', 'E:\RepDestination\bookdrive.pdf');

où les lettres I,O et H me servent à visualiser les espaces.
Quelque chose m'échappe...
Merci de votre attention

[vodiem]

bonjour tAKAmAkA,

en reprenant ce que tu as fais moi j'ai:

fav E:\Mes documents\Ged\bookdrive.pdf <plein d'espaces> I
fse E:\Mes documents\Ged\bookdrive.pdfO
fap E:\RepDestination\bookdrive.pdfHH
INSERT INTO tblMouvement (TypeMvmt, Docnum, MvmtDate, Acteur, FichierAvant, FichierApres) VALUES ('Sauvegarde', 802, #06/10/2007 08:11:43#,'Admin','E:\Mes documents\Ged\bookdrive.pdf', 'E:\RepDestination\bookdrive.pdfH');

comme tu peux le constater: pas de pb.
mais c'est curieux parceque dans ton INSERT INTO (de ton post) tu as bien:

'E:\Mes documents\Ged\bookdrive.pdf '

avec toutefois un espace en fin.

je ne peux conclure que deux choses: tu te trompe dans ton ex, ou simplement: ceux ne sont pas des espaces...
verifie chaque avec Asc().

[tAKAmAkA]

Bonjour vodiem,

L'espace à la fin du nom de fichier dans le SELECT est en fait le résidu de toute la suite d'espaces (220) réduite à un seul par le copier/coller entre la fenêtre debug et le post.
Le résultat dans le SELECT est donc bien une chaine de 441 caractères:
183 caractères - 220 espaces - 38 caractères.
Le résultat de Asc()

Len fespace = 254
Debug.Print "Asc SQLins = " & Asc(Mid(SQLinsMvt, 190, 1))

Asc SQLins = 0
Len SQLinsMvt = 441

Après investigation ce sont bien des Null:

Code :

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

1
2
fsespace = Replace(FichierAvant, Chr(0), "")
Debug.Print "fse " & fsespace & "O"

donne

fav E:\Mes documents\Ged\bookdrive.pdf < espaces >I
fse E:\Mes documents\Ged\bookdrive.pdfO