チョコラブ
2022/12/03 (土) 21:32:46
9af1b@d60f0
リンゴ様
情報が足りずにすみません。
下記の通りになりますが、Clickイベントだと正しく行番号が取得できますが、更新後処理イベントに入れると正しく表示されません。
関係があるのでしょうか?
Private Sub 部品番号_AfterUpdate()
If Me.部品番号.ListIndex <> -1 Then
Me.部品ID = Me.部品番号.Column(0,Me.部品番号.ListIndex)
Debug.Print Me.部品番号.ListIndex
End If
End Sub
通報 ...
大雑把にやってみた限りでは、特に問題なく転記出来ました。
Debug.printの結果も、すべて1が続く感じになるのかしら。
ちょっとよくわかりません。コード以外も想定通りかひと通りチェックするくらいでしょうか。例えば、VBAの画面で、ClickイベントとAfterUpdateイベントを試しているが、実は何かの弾みで、コンボボックスのプロパティの更新後処理イベントの[イベントプロシージャ]が外れてしまっていたり。
部品番号が同じで、顧客部品番号が違うもののリストがあるので、同じ部品番号の1番目を選択した時と2番目を選択した時を区別したいのです。(2列目は顧客部品番号があり、違う番号になっている)
仕方ないのでIDを取得し、ADOで抽出することにしました。
アドバイスありがとうございました。