record changed values

[Dan @BCBS]

I'm trying to record a change onto a table.

In a previous message "subject = Chosen Few Only" Tony T is assisting me in
allowing a certain user to change a value.

This question is to record the value being changed:
In the code below I removed all the values to record except one, just to get
something recored in the table. I cannot understand why I am getting the
error: Runtime error 3075, Syntex error (missing operator) in query
expression 'tblTrackingData.ICNNOFROM tbleTrackingData WHERE
(((tblTrackingData.ICNNO)="000000195097"))'.

It's even showing me the value to record "000000195097"....

Dim lCriteria As String
Dim lICCNNO As String

lICCNNO = Me!ICNNO

If MsgBox("Are you sure you want to change the dates? ", vbQuestion &
vbYesNo, "Question") = vbYes Then
DoCmd.SetWarnings False

Dim lID As Long
lID = GetNewID("t_DateChanged")
lCriteria = "INSERT INTO t_DateChanged ( ID, ICNNO) "

lCriteria = lCriteria & "SELECT " & lID & " AS tID,
tblTrackingData.ICNNO"
lCriteria = lCriteria & "FROM tblTrackingData "
lCriteria = lCriteria & "WHERE (((tblTrackingData.ICNNO)=" &
"""" & lICCNNO & """" & "));"
DoCmd.RunSQL lCriteria


Suggestions????

 

[strive4peace]

Hi Dan,

you need to seperate with spaces... put a space before FROM and WHERE...

lCriteria = lCriteria & " FROM tblTrackingData "
lCriteria = lCriteria & " WHERE ..."

as a rule of thumb, I generally start each line with a space after the
quote -- just to make sure thee is one! more than one is ok, but none
is not

In your case, the problem is that there is not a space before FROM and
after ICNNO

Warm Regards,
Crystal
*
have an awesome day
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*