1

この問題について教えてください。

私はフォームを持っていて、これらの値をSQL クエリのステートメントにComboBox返したい:in

SELECT *
FROM [Actual_list query]
WHERE ((([Actual_list LSC query].[place]) In (([Forms]![Internal forms]![Places].Value))));
4

1 に答える 1

0

SQL を VBA で作成する必要があります。コンボからリストを取得できます。

これは数値リスト用で、文字列のリストには引用符が必要です。

For Each itm In Me.PlacesListbox.ItemsSelected
  listofvalues = listofvalues & "," & Me.PlacesListbox.Column(0, itm)
Next

listofvalues = Mid(listofvalues,2)

sSQL="SELECT * FROM [Actual_list query] " _
    & "WHERE [Actual_list LSC query].[place] In (" & listofvalues & ")"
于 2013-01-30T11:43:46.957 に答える