VBA для ввода значений из многозначного Lisbox в отдельную таблицу (ошибка времени выполнения 3075)

Question

Это мой первый пост и надеется получить помощь. Я провел много исследований, но не могу определить, где я ошибаюсь. Я просто хочу перебрать многозначный список и добавить значения в отдельную таблицу.

У меня есть код, который, как я думаю, должен работать, но я получаю ошибку времени выполнения 3075 Ошибка синтаксиса (отсутствующий оператор) в выражении запроса '1b'.

Вот моя ситуация:

У меня есть таблица: qaTbl

У меня есть два поля в этой таблице. interactiveID и дефект (это многозначный список). Оба поля являются shortText.

Для каждой представленной записи я хочу поместить идентификатор взаимодействия и дефект (независимо от того, выбран ли один дефект или много) в новую таблицу, называемую callDefectsTbl.

Два поля в callDefectsTbl - это идентификатор взаимодействия и дефект.

У меня есть форма с кнопкой отправки (qaSubmit). Элемент управления для списка - это «дефект».

Вот код привязан к Click() Событие кнопки отправки:

Private Sub qaSubmit_Click() 

Dim db As DAO.Database 
Dim strSQL As String 
Dim varItem As Variant 

Set db = CurrentDb 
' Add each defect selected in the list box to callDefectsTbl 
With Me.defect 
For Each varItem In .ItemsSelected 
    strSQL = _ 
     "INSERT INTO callDefectsTbl " & _ 
      "(interactionID, defect) VALUES (" & _ 
      Me.interactionID & ", " & .ItemData(varItem) & ")" 
    db.Execute strSQL 
Next varItem 
End With 


DoCmd.GoToRecord , , acNewRec 

End Sub 

Я получаю ошибки времени выполнения 3075. Это, кажется, останавливается, когда захватывая значение дефекта. Я изучил другой код, который делает то же самое, но я не понимаю, что я делаю неправильно.

Любая помощь и подробное объяснение были бы очень признательны !!

Спасибо!

Answer 1

Если shorttext изменить SQL с одной цитатой

strSQL = _ "INSERT INTO callDefectsTbl" & _ "(interactionID, дефект) VALUES ('" & _ Me.interactionID & " ''" & .ItemData (varItem) & "')"