첫 번째 항목 목록 상자 선택

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 추가