Expected End of Statement error

[SamNotSoWise]

Hi

I'm getting an Expected End of Statement error on the second RunSQL statement shown below. I broke these apart for troubleshooting. The first statement runs fine using Integer data. The second statement, which is String data, does not run. I have not been able to find anything on-line so far to correct this error.

Also, I would like to combine these into a single statement and would appreciate suggestions for syntax.

Dim vlast, vLotID
vlast = Me.Last 'Last is integer
vLotID = Me.LotID 'LotID is string



DoCmd.RunSQL "UPDATE tblMachines SET tblMachines.LastNo =" & vlast & " WHERE MachineID = '" & Me.MachID & "'"
DoCmd.RunSQL "UPDATE tblMachines SET tblMachines.LastLotID = '" & vLotID & "'" WHERE MachineID = '" & Me.MachID & "'"

Many thanks!

[pbaldy]

Too many quotes. Try

DoCmd.RunSQL "UPDATE tblMachines SET tblMachines.LastLotID = '" & vLotID & "' WHERE MachineID = '" & Me.MachID & "'"

[SamNotSoWise]

Works like a charm - thanks!

[Missinglinq]

I don't do a lot of this, but doesn't there need to be a closing semi-colon (;) at the end of the SQL statement?

Linq ;0)>

[pbaldy]

I don't do a lot of this, but doesn't there need to be a closing semi-colon (;) at the end of the SQL statement?

Linq ;0)>

No, there doesn't.

[Missinglinq]

As I said, I don't do a lot of this kind of thing; just never had the occasion! But I do try to learn something new, everyday, and this is it for today!

Thanks, Paul!

Linq ;0)>