为什么访问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后面需要一个空格。还需要在符号和周围加空格，但不能在星号周围加空格。

如果要使用文本框中键入的每个字符修改列表框，请使用"更改事件"one_answers"文本"属性。同时将"自动展开"设置为"否"。否则，请使用AfterUpdate，然后不使用Text属性，使用Value。由于Value是默认属性，因此无需指定。

此外，请删除不必要的串联。

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