Dlookup problem with '

[dominicg123]

This code is used to update a text box with the value from the column 1 of a list box. Everything worked until when in the name of the field I have the ' character. Then I get a syntax error! I must have a typo somewhere...

for example this will work:
G:\Public\Dossiers\BRUN16\R.Brunet Annexe A.pdf

this will not:
G:\Public\Dossiers\BRUN16\R.Brunet Confirmation d'emploi.pdf


Dim lst As String
lst = Me.lstFileList.Column(1)

Me.Description = Nz(DLookup("[Contact Documents]![Description]", "Contact Documents", "[Linked Doc] = " & "'" & lst & "'"), "")

 

[PHV]

Me.Description = Nz(DLookup("Description", "[Contact Documents]", "[Linked Doc]=[tt]'"[/tt] & Replace(lst, [tt]"'", "''") & "'"[/tt]), "")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[dominicg123]

Great!!!!