リストボックス内の選択肢を使用してSQL SELECTステートメントの条件を作成する

Question

ユーザーがリストボックスから従業員を選択し、WHEREステートメントで選択した従業員（トリマー）を含むクエリを実行するコマンドボタンを押すようにしようとしています。 。

私は、SQL WHERE文で使用する予定の文字列変数に選択したリスト項目を追加するループを使用してこれを試みました。リストの選択を繰り返すたびに、変数に "or like"を追加します。私の問題は、最初の商品に「または」があることを希望しないことです。私は最初のアイテムが "TrimmerName1のように"返され、残りのアイテムは "TrimmerName2"のように返るようにしたい。

多分もっと良いアプローチがあります。よく分かりません。私はVBAの初心者です。これは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 

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)