Access (一般機能)

Accessの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : Access 2013)
コンボボックスの自動移動
投稿日時: 18/05/17 17:02:34
投稿者: nanodia

オプショングループにより
⦿1
〇2
〇3
 
がある場合、コンボボックスの10番目に移動
 
〇1
⦿2
〇3
なら、コンボボックスの20番目に移動とかできますでしょうか?

回答
投稿日時: 18/05/17 23:03:43
投稿者: hatena
投稿者のウェブサイトに移動

nanodia さんの引用:
オプショングループにより
⦿1
〇2
〇3
 
がある場合、コンボボックスの10番目に移動

このコンボボックスの10番目に移動とは、
コンボボックスのリストの10番目のデータを選択する、という意味でしょうか。
 
オプショングルーブの各ボタンのオプション値が 1, 2, 3 となっているなら、
オプショングループの更新後処理のイベントプロシージャを下記のように記述すればいいでしょう。
 
Private Sub フレーム1_AfterUpdate()
    Me.コンボ2.Value = Me.コンボ2.ItemData(Me.フレーム1.Value * 10 - 1)
End Sub

 
オプションボタン名: フレーム1
コンボボックス名: コンボ2

投稿日時: 18/05/18 08:56:16
投稿者: nanodia

ありがとうございます。
うまく動きました。
 
また何かありましたら、ご教授のほうよろしくお願いいたします。