почему этот код в коде доступа VB дает мне синтаксическую ошибку ошибки компилятора

Question

Private Sub txtSearch_Change()

If Frame1 = 1 Then 'Code
   strRowsource = "select [Code],[Category],[product]" & "from giggly " & _
   " where[Code] Like '* "&Me.txtSearch.Text&" *'"`
End If
List1.RowSource = strRowsource
End Sub

Answer 1

Требуется пробел перед from и после where. Также нужны пробелы вокруг амперсандов, но не пробелы вокруг звездочек.

Если целью является изменение списка с каждым символом, набираемым в текстовом поле, используйте «Изменить событие» и свойство «Текст». В противном случае используйте AfterUpdate, а затем не используйте свойство Text, используйте Value. Так как значение является свойством по умолчанию, указывать не нужно.

Также удалите ненужную конкатенацию.

strRowsource = "SELECT [Code],[Category],[product] FROM giggly " & _ "WHERE [Code] Like '*" & Me.txtSearch & "*'"