Insert statement fail

[JeroenMioch]

Hi guys,

if i use this INSERT it works fine :

strSQL = "Insert into tblParkeerbeheer_log select * from parkeerbeheer where [ID] = " & Forms![parkeerbeheer]![fldID].Value & ""
DoCmd.RunSQL strSQL

But if i want to do the same with multiple records with Pnummer (personell number) as criteria in the WHERE clause :

strSQL = "Insert into tblParkeerbeheer_log select * from parkeerbeheer where [Pnummer] = " & Forms![parkeerbeheer]![Pnummer].Value & ""
DoCmd.RunSQL strSQL

It asks me to prompt the personell numer, while that number is present within the prompt box

[ItsMe]

where [Pnummer] = '" & Forms![parkeerbeheer]![Pnummer].Value & "'"

You need to enclose the data returned by the variable within single quotes if the variable returns literal text.

[JeroenMioch]

Hi Itsme,

Indeed that was the problem.

Many thanks !

[ItsMe]

Glad you were able to solve the problem.