Есть несколько проблем с вашим текущим кодом -
Во-первых, очевидной проблемой является опечатка, в которой вы определяете переменную addboxsql
, а затем переходите к использованию переменной addboldsql
при попытке выполнить SQL.
Вместо этого вы должны объявить переменные, которые вы намереваетесь определить, используя операторы Dim
, и убедиться, что Option Explicit
включен в ваш модуль VBA для предотвращения использования необъявленных переменных.
Основные проблемы связаны с самой инструкцией SQL -
В MS Access запрос UPDATE
имеет формат:
UPDATE table SET newvalue WHERE criteria;
И вы не сможете использовать ключевое слово VBA Me
в коде SQL, поскольку оно не имеет смысла в этом контексте.
Быстрое исправление может быть -
Private Sub Toggle7_Click()
Dim strSQL As String
strSQL = "update final_tiu_data set newreporttext = replace([gender], """ & Me.keywords & """, ""<b>" & Me.keywords & "</b>"")"
DoCmd.RunSQL strSQL
End Sub
Однако этот подход все еще подвержен внедрению SQL, поэтому вы можете рассмотреть возможность параметризации запроса или ссылки на элементы управления формы с помощью сохраненного запроса.