D
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????
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????