查詢列表框中的多個值

-1

這是我的情況。還沒有找到具體的可靠來源。我需要從窗體中的列表框中查詢多個選擇。 QRY是qryMetrics，表是指標，油田是職位描述，列表框lstJobDesc，查詢列表框中的多個值

我有一個顯示職位描述的列表，列表框和運行查詢的按鈕。我可以選擇一個作業說明並運行查詢並返回所選的1個作業。我需要能夠讓用戶選擇多個值並返回所選值的查詢。據我所知，如果選擇非選擇以外的任何其他選項，則多選選項返回空值，但如何在返回從表單中選擇的多個值時如何獲得擴展或簡單工作，並在沒有選擇任何選項時全部返回？

來源

2016-09-15 lPaclMan

顯示與一個選擇一起使用的查詢。您可以添加一個VBA循環來構建查詢，使用IN子句進行多項選擇 - 但您沒有任何示例代碼或SQL向我們展示？ – dbmitch

這是它的鏈接。我不知道我能提供什麼。該列表創建時沒有太多編碼。正如你所看到的，qryWhseMetrics有一個工作描述列表。我希望能夠選擇多個描述並在qry中返回它們的值。 https://drive.google.com/file/d/0B8FsW0sImRM3TW85alR3a0xBWm8/view?usp=sharing – lPaclMan

您的查詢。不是你的整個數據庫 – dbmitch

'''Listbox - Multiselect property=Simple 
Private Sub cmdOK_Click() 
    Text = "" 

    For i = 0 To Me.lstJobDesc.ListCount - 1 
     If Me.lstJobDesc.Selected(i) Then 
      Text = Text & Me.lstJobDesc.ItemData(i) & vbNewLine 
     End If 
    Next i 

    If Text = "" Then 
     For i = 0 To Me.lstJobDesc.ListCount - 1 
      Text = Text & Me.lstJobDesc.ItemData(i) & vbNewLine 
     Next i 
    End If 
    MsgBox Text 
End Sub

來源

2016-09-16 09:46:18 Poonam

謝謝你的迴應。我將這添加到我的代碼中，但沒有發生任何事情。我想知道如果我把這個錯誤。任何進一步的投入會很好。 – lPaclMan

嘗試調試代碼，並讓我知道你在哪裏得到問題。 – Poonam

查詢列表框中的多個值

回答

相關問題