Vb SQL-запрос в Access не работает

Question

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

Выпадающий список здесь

У меня, однако, трудное время, чтобы вписаться в оператор "WHERE", который будет анализировать запрос с группой, выбранной в раскрывающемся списке:

Пустой список при попытке добавить "ГДЕ"

Это код, который работает:

Private Sub catBox_Change()
Dim SQL As String
SQL = "SELECT CatQuery.[Tool Name], CatQuery.Category " _
& "FROM CatQuery;"
Me.toolBox.RowSource = SQL
Me.toolBox.Requery
End Sub

Это код, который не работает:

Private Sub catBox_Change()
Dim SQL As String
SQL = "SELECT CatQuery.[Tool Name], CatQuery.Category " _
& "FROM CatQuery" _
& "WHERE CatQuery.Category ='" & Me.toolBox.Column(0) & "';"
Me.toolBox.RowSource = SQL
Me.toolBox.Requery
End Sub

Answer 1

Вы проверили строку SQL после ее назначения?

Вы пропустили пробелы между FROM CatQuery и WHERE...

Пытаться:

SQL = "SELECT CatQuery.[Tool Name], CatQuery.Category" & vbNewLine & _
      "FROM CatQuery" & vbNewLine & _
      "WHERE CatQuery.Category = '" & Me.toolBox.Column(0) & "';"

Answer 2

Когда вызывается событие catbox_change , у toolbox нет фокуса и, следовательно, значений. Можно ли назначать значения из cutbox?:

Private Sub catBox_Change()
Dim SQL As String
SQL = "SELECT CatQuery.[Tool Name], CatQuery.Category " _
& "FROM CatQuery" _
& "WHERE CatQuery.Category ='" & Me.catBox.column(x) & "';"
Me.toolBox.RowSource = SQL
Me.toolBox.Requery
End Sub

Если нет, то вам нужен RowSource назначенный другому выпадающему списку toolBoxResult:

Private Sub catBox_Change()
Dim SQL As String
SQL = "SELECT CatQuery.[Tool Name], CatQuery.Category " _
& "FROM CatQuery" _
& "WHERE CatQuery.Category ='" & Me.toolBox.Column(0) & "';"
Me.toolBoxResult.RowSource = SQL
Me.toolBoxResult.Requery
End Sub