最初のエントリのリストボックスを選択

Question

データベースを作成しています。リストボックスの最初のレコードを選択したい場合は、テキストフィールドに入力した後に を入力してください。

Private Sub domSuche_Change() 

Dim i As Integer 

For i = 0 To Me!lstSuchergebnis.ListCount - 1 

    If Me!lstSuchergebnis.Column(3, i) Like "*" & Me!domSuche.Text & "*" Then 

     Me!lstSuchergebnis.Selected(i) = True 

    End If 

Next i 

End Sub 

これは動作しますが、リストフィールドの最後のエントリのみを選択します。

私のリストの最初のエントリだけを選択する方法はありますか？

ありがとうございます！

Answer 1

は試合

Private Sub domSuche_Change() 
    Dim i As Integer 

    For i = 0 To Me!lstSuchergebnis.ListCount - 1 
     If Me!lstSuchergebnis.Column(3, i) Like "*" & Me!domSuche.Text & "*" Then 
      Me!lstSuchergebnis.Selected(i) = True 
      Exit For 
     End If 
    Next i 
End Sub 

を見つけた後 Exit Forを追加します