Ms Access SQL VBA query error no 3075

Question

В моем приложении доступа я пытаюсь связать существующее значение поля с новым значением, и у меня есть код, как указано ниже в VBA, я получаю ошибку 3075 «Синтаксическая ошибка без оператора»

sUser = UserNameWindows 
' MsgBox sUser 
    currenttime = Format(Now(), "dd/mm/yyyy hh:mm:ss") 
SqlQuery = "UPDATE tbl_AllRequests " & _ 
" SET [Status]= 'Archived' " & _ 
", [History] = [History] & CHR(13) & CHR(10) & 'Archived on' " & currenttime & " ' by ' & '" + sUser + "' " & _ 
" WHERE [ID] in (" & selectedIDs & ")" 
'" SET [History] = concat([History], 'Archived on " & currenttime & " by '" & sUser & "'&')'&" & _ 
'data=concat(data, 'a') 
'SqlQuery = "UPDATE tbl_AllRequests SET Status = 'Archived' WHERE ID in (17, 11)" 
Debug.Print "this is new one " & SqlQuery 
DoCmd.RunSQL SqlQuery, True 

Я получаю сообщение об ошибке ниже строки кода.

", [History] = [History] & CHR(13) & CHR(10) & 'Archived on' " & currenttime & " ' by ' & '" + sUser + "' " & _ 

Если удалить код после 'Архивировано на' это работает.

Благодаря

Answer 1

Сначала это исправить:

currenttime = Format(Now(), "dd/mm/yyyy hh:nn:ss") 

Затем используйте только одиночные кавычки вокруг фиксированного текста:

", [History] = ([History] + CHR(13) + CHR(10)) & 'Archived on '" & currenttime & "' by '" & sUser & "" & _ 

Кроме того, это не имеет никакого смысла первого форматировать теперь к string, затем преобразуйте (с ошибками) значение даты, обернув его в octothorpes (# .. #), который - при объединении с строками - будет передан еще раз в строку.