cmb得意先の変更時のイベントプロシージャ Private Sub cmb得意先_Change() Dim stSQL As String stSQL = "SELECT 得意先名 FROM 得意先 WHERE フリガナ Like '*" & Me.cmb得意先.Text & "*' ORDER BY フリガナ;" Me.cmb得意先.RowSource = stSQL Me.cmb得意先.Dropdown End Sub 上記はフリガナで制限してますが、得意先名で制限してもいいかもしれません。希望に合わせてWHERE句の条件を変更してください。 さて、上記のコンボボックスでカナを一文字でも入力するとリストがドロップダウンして部分一致で制限されたリストが表示されます。そのリストから2行目以降のデータを選択しようと、↓キーを押すと、テキストボックスに1行目のデータが表示されると同時に、リスト