Microsoft Access 掲示板

Microsoft Access 掲示板

コンボボックスの選択行が正しく表示されない / 2

6 コメント
views
4 フォロー
2
チョコラブ 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

通報 ...
  • 3
    りんご 2022/12/03 (土) 23:17:22 4d616@0e907 >> 2

    大雑把にやってみた限りでは、特に問題なく転記出来ました。

    下記の通りになりますが、Clickイベントだと正しく行番号が取得できますが、更新後処理イベントに入れると正しく表示されません。

    Debug.printの結果も、すべて1が続く感じになるのかしら。

    関係があるのでしょうか？

    ちょっとよくわかりません。コード以外も想定通りかひと通りチェックするくらいでしょうか。例えば、VBAの画面で、ClickイベントとAfterUpdateイベントを試しているが、実は何かの弾みで、コンボボックスのプロパティの更新後処理イベントの[イベントプロシージャ]が外れてしまっていたり。

    5
    チョコラブ 2022/12/05 (月) 12:42:39 a1353@4d8ec >> 3

    部品番号が同じで、顧客部品番号が違うもののリストがあるので、同じ部品番号の1番目を選択した時と2番目を選択した時を区別したいのです。(2列目は顧客部品番号があり、違う番号になっている)

    仕方ないのでIDを取得し、ADOで抽出することにしました。

    アドバイスありがとうございました。