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.et le debug.print
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 Functionoù les lettres I,O et H me servent à visualiser les espaces.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');
Quelque chose m'échappe...
Merci de votre attention
Partager