Access VBA―マウスホイール制御

（対象）Access　VBA
（確認）Access2003


今回はマウスホイールの制御についてです。



「Access VBA　マウスホイール制御」

――――――――

○やりたいこと
――――――――

→フォームでマウスホイールをするとレコードが移動してしまうので

　それをなくす

――――――――

○ソース

――――――――

Dim bbb As Integer

'=============================================

' フォームの読み込み時

'=============================================

Private Sub Form_Load()

  bbb = 0

End Sub

――――――――

☆やっていること

――――――――

フォームの読み込み時に変数ｂｂｂに0を入れる

'=============================================

'レコード移動時 

'=============================================

Private Sub Form_Current() 

　If Me.NewRecord Then Exit Sub 

　

　Me.[コントロール名].SetFocus 

　Me.Dirty = True 

End Sub 

――――――――

☆やっていること

――――――――

レコード移動時の処理。

　1.次のレコードが新しいレコードの時は作用しない 

　2.どれでもいいからコントロールを選んでおく。
　　これを選ばないとエラーになる 

　3.「Dirty」はカレントレコードの変更の有無を表す。
　　　今はTrueなので変更有り→変更有り＝更新前処理が入る 

'=============================================

' マウスホイールを動かした時

'=============================================

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

  bbb = Count

End Sub

――――――――

☆やっていること

――――――――

マウスホイールが動かされたらｂｂｂにCountの値を入れる

（Countの値＝ホイールされて動こうとしているレコードの数）

'=============================================

' レコードに変更があった時

'=============================================

Private Sub Form_BeforeUpdate(Cancel As Integer)

  If bbb <> 0 Then

    Cancel = True

    bbb = 0

  End If

End Sub

――――――――

☆やっていること

――――――――

ｂｂｂの値が0でない時にCancelをTrueにして処理をキャンセルする。

※1ここでキャンセルされると移動もキャンセルになる

※2判断は必ず「0でない」にする。ｂｂｂの値はマイナス値にもなる

※3ｂｂｂの値を初期化しておく

（上のレコード移動時の処理を超えると自動的に入ってくる）

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝