0

複数選択リストボックスで選択されたフィールドに対して「個別選択」クエリを実行しています (リストボックスにはテーブルのフィールドが入力されています)。複数選択する前はコードは正常に機能していましたが、現在は 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"
4

1 に答える 1

0

あなたは間違った場所にいくつかのものを持っているようです:

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"
于 2012-07-31T14:35:00.483 に答える