Доброго дня.
Имею следующий кусок кода:

If j <> .Fields(i) Or IsNull(j) <> IsNull(.Fields(i)) Then
      Log 6, !Код, "Изменено поле " & .Fields(i).Name & " с " & .Fields(i) & " на " & j & ". Импорт."
      str = j.Value
      If VarType(j.Value) = vbString Or VarType(j.Value) = vbDate Then str = "'" & str & "'" 'Добавляем кавычки, если надо
      ssql = "UPDATE tblUPS SET tblUPS.[" & .Fields(i).Name & "] = " & str & ", tblUPS.[Дата последнего обновления] = '" & Date & "' WHERE tblUPS.[Код] = " & rst.Fields("Код") & ";"
      Debug.Print ssql
      CurrentDb.Execute ssql

      Exit For
 Else
       Exit For
End If

Вот, что выводит Debug.Print:

Debug.Print
UPDATE tblUPS SET tblUPS.[SNMP] = False, tblUPS.[Дата последнего обновления] = '28.01.2015' WHERE tblUPS.[Код] = 1348;

Видно, что строка формируется верно.

К сожалению, данные в таблице tblUPS не изменяются.

Написал в модуле Саб:

Private Sub test()
CurrentDb.Execute "UPDATE tblUPS SET tblUPS.[SNMP] = False, tblUPS.[Дата последнего обновления] = '28.01.2015' WHERE tblUPS.[Код] = 1348;"
End Sub

Т.е. тупо копи/паст вывода дебаггера. Вот так все работает и данные обновляются.

Прошу помочь, почему не работает вариант с формированием ssql строки?

http://www.sql.ru/forum/1139626/currentdb-execute-update-set-ne-rabotaet