部品番号コンボボックスの下記プロパティの設定はどうなってますか。
値集合ソース
値集合タイプ
連結列
列数
列幅
ちなみに、リストの選択した行の1列目の値を表示させたい場合は、
「連結列」を「1」と設定しておけば、下記でOKです。
Private Sub 部品番号_AfterUpdate()
Me.部品ID = Me.部品番号.Value
End Sub
あるいは、部品IDテキストボックスのコントロールソースを下記のように設定すればコード不要です。
=[部品番号]
通報 ...
プロパティもVBAで設定していますが、以前、直接コントロールソースに書き込んだら20列あるためなのか、フォームのデザインビューとフォームビューの切り替えがすごく遅くなってしまったのでVBAで対応することにしました。
仕方なくADOで対応することにしました。ありがとうございました。