複数選択リストボックスで選択されたフィールドに対して「個別選択」クエリを実行しています (リストボックスにはテーブルのフィールドが入力されています)。複数選択する前はコードは正常に機能していましたが、現在は SQL クエリが機能していません。たとえば、フィールド リストから「Gender」フィールドと「INTERFACE」フィールドを選択すると、2 番目のリスト ボックスの結果は次のようになります。
DISTINCT 性別インターフェイスを選択
理想的には、結果にはフィールド名と値が含まれ、各フィールドの結果の間に線が入ります。
これが私のコードです:
Dim strSQL As String
Dim strCriteria As String
Dim varItem As Variant
On Error GoTo Err_Command206_Click
For Each varItem In Me.ScrubbedList.ItemsSelected
strCriteria = strCriteria & ",[" & Me!ScrubbedList.ItemData(varItem) & "]"
Next varItem
strSQL = "SELECT DISTINCT " & Mid(strCriteria, 2) & " FROM Scrubbed"
'====== Testing
Debug.Print strSQL
'=====
Me.List316.RowSource = strSQL
Exit_Command206_Click:
Exit Sub
Err_Command206_Click:
MsgBox "Please select a field"