'콤보박스에서 빠르게 값을 찾는 방법

Private Sub Field1_Combo_Change()
Dim strText As String

strText = Nz(Me.Field1_Combo.Text, "")

If Len(strText) > 2 Then
     Me.Field1_Combo.RowSource = "Select keywords from " _
     & "My_Words " _
     & "where keywords like '" & strText & "*' " _
     & "order by keywords"
     Me.Field1_Combo.Dropdown
End If
End Sub

Copyright By AccessVision