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