Выберите поле с первым списком записей

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

добавить Exit For после обнаружения матча

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