【Access】テキストボックスのスクロールバーをマウスホイールで動かせるようにしたい

Question

前提・実現したいこと

Accessのフォームに作成したテキストボックスのスクロールバーを、
マウスでスクロールできるようにしたいです。

###発生している問題・エラーメッセージ

現在下記のように書けないかと考えています。

①特定のテキストボックスをクリック
②MouseWheelイベントを取得する
③上下どちらかにスクロールしたかを判断
④上下どちらかに指定している距離分テキストボックス内を動かす

つまずいている部分は主に
・②→イベント取得がそもそもできていない
・③→上下どちらにスクロールしたかをどう取得するのか
・④→距離をどう指定するか
の3点です。

まだAccess、VBAを理解しきれていないので説明不足の部分がありましたら申し訳ありません。
上記の方法でもそれ以外でも、良い方法がありましたら何卒ご教示お願いいたします。

Answer 1

昔、YU-TANG さんのページにありましたが、今は閉鎖されています。
WEBアーカイブに残ってますので、下記を参照してください。

MouseWheel イベントの使い道 | YU-TANG's MS-Access Discovery

ただし古い情報ですので、現在のバージョンで正常に動作するかは確認していません。

---

サクッとサンプルを作成して、上記のコードをコピーしてみました。
すこし、コード修正の必要はありますが、Access2019で正常に動作するのを確認しました。

Comments

[chimi_mamire]

上記のサイトのコードを少し修正したら、無事動かすことが出来ました。
ご回答ありがとうございました！