コンボボックスのアイテムを検索するには？ (ID:124360)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 '品種コンボボックスにデータソースの指定 Set cboHinsyu.DataSource = prRsSyouhin '品種コンボボックスへ表示 cboHinsyu.DataField = "N_HINSYU_ID" '品種マスタ先頭レコード移動 prRsHinsyu.MoveFirst '文字列の定義 Dim strHinsyuCriteria As String '文字列への代入 strHinsyuCriteria = "N_HINSYU_ID = '" & cboHinsyu.Text & "'" '品種マスタの特定の品種IDへレコード移動 prRsHinsyu.Find strHinsyuCriteria, 0, adSearchForward '品種コンボボックスへ表示 cboHinsyu.ListIndex = prRsHinsyu.AbsolutePosition - 1 これでできました。 ありがとうございました。