使用列表框中的選擇創建SQL SELECT語句的標準

Question

我試圖讓用戶從列表框中選擇員工，然後按下一個命令按鈕，該按鈕將在WHERE語句中運行包含選定員工（修剪者）的查詢。

我試過這個使用循環，將選定的列表項添加到我打算在我的SQL WHERE語句中使用的字符串變量。每次通過列表選擇循環時，我都會在變量中添加「或類似」。我的問題是我不希望第一個項目在它前面有「或」。我想要第一個項目返回「Like TrimmerName1」，其餘項目返回「或像TrimmerName2」等

也許有一個完全不同的方法，會更好。我不確定。我對VBA很新，這是我第二次在這裏發佈。任何幫助表示讚賞！

這裏是我的代碼：

Dim varTrimmers As Variant 
Dim varTrimmer As String 
Dim VCriteria As String 

For Each varTrimmers In Me.lstTrimmers.ItemsSelected 
varTrimmer = Me.lstTrimmers.ItemData(varTrimmers) 


VCriteria = VCriteria & " or like " & "'" & varTrimmer & "'" 

Next varTrimmers 

Answer 1

當它完成循環，去除前4個字符。

Dim varTrimmers As Variant 
Dim varTrimmer As String 
Dim VCriteria As String 

For Each varTrimmers In Me.lstTrimmers.ItemsSelected 
    varTrimmer = Me.lstTrimmers.ItemData(varTrimmers) 
    VCriteria = VCriteria & " or like " & "'" & varTrimmer & "'" 
Next varTrimmers 
VCriteria = Mid$(VCriteria, 4, Len(VCriteria)) 

Answer 2

Dim varTrimmers As Variant 
Dim varTrimmer As String 
Dim VCriteria As String 

For Each varTrimmers In Me.lstTrimmers.ItemsSelected 
varTrimmer = Me.lstTrimmers.ItemData(varTrimmers) 


VCriteria = VCriteria & " or like " & "'" & varTrimmer & "'" 

Next varTrimmers 

VCriteria = Right([VCriteria], Len([VCriteria]) - 4) 

上親密