こんばんは若槻です。きりちゃんのところにぽんと投下してきた
VBAの修正版が出来たから載っけてみます。


「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ｂｂｂの値を初期化しておく
（上のレコード移動時の処理を超えると自動的に入ってくる）


＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
◎修正前
→前回はString型で文字を入れる感じでやっていたのですが、
　思いっきりホイールすると動いてしまったので数値型にしました。
　（きりちゃん報告。自分で確認しろよって話ですね分かりまｓ）

細かい原理は理解しきれてませんが多分一気にやるとどっかしらで
値が入らなくなるんだと思います。
というわけで数値型でFA。

※注意※
上のソースは若槻が触る分には特に問題はありませんでしたが、
プログラムによっては不具合を起こす可能性、動作しない可能性も
あります。その場合にこちらで責任を取ることは出来ませんので
ご了承ください。

---

＝2013/07/04　追記＝
VBAやPC系で学んだことをまとめる備忘録ブログを
作りました。


若風備忘録


内容は徐々に増えますが、こちらの内容もそちらに
入っています。

この記事に関しては説明等の内容は特に変わりません。

---

以下拍手返信です。
サイト拍手含め名無しの拍手の方々もありがとうございます！

 

こんばんは若槻です。自由に書いていくつもりだったのですが
気が付くと50音お題の中で世界がまとまってきてしまっていました。
びっくり。


というわけで忍題「砂糖菓子」＆50音お題「さ」完成です。

つこちら

今回の主観は「不器用な愛」の主観だった女の子です。
何だか若槻の中でこの子が主人公になりつつあります。
そうなると、若槻作品久しぶりのクールな女主人公に!?
（サイト上だとはじめて？）

そのうち一人称じゃなくて三人称のものも書きたいですね～。

こんばんは若槻です。
……うん。追記。ただの愚痴。見たくない方は明日の
作品うｐの報告までお待ちください。

こんばんは若槻です。ついに会社に修理の手が入り始めました。
一部使用禁止になっていて時々通行に迷います（笑


さて、今回の忍題は「砂糖菓子」ということです。
50音お題で考えていたもののひとつがお題を見た瞬間固まったので
それを書くことにしたのですが、意外に早くに完成しました。

まあ毎度の通りいきおいで書いたので読み直し必須ですが、
直して時間あるようなら絵でもつけようかと思います。

こんばんは若槻です。空気が冷えているのに対極に窓を
開けられたものだから冷房の付いているサーバールームよりも
普通のフロアの方が寒いという状況に陥れられました。
（゜д゜）｛マ　ジ　か　ん　べ　ん


ところで本日久々に小説家になろうに入って「僕らの世界」を
見てきました。アクセスはもう……目も当てられませんorz

そんな現状を見た瞬間壁際で落ち込むトーキが頭に
浮かんでしまいました。




















トーキは多分今のところ一番おとなしい主人公ですね。
（あ、樹里がいるから2番目かな？）
まあとにかく、悠一やティナみたいに「しっかりやれー！」とか
言うタイプでも清風や呂秀のように黙々としているタイプでも
ないので確実にこうなります。声もなくしくしく泣いてしまいます。

ラルムが公式でポジティブなのと反対にトーキは
公式でネガティブな子です。
……同時期に出てきたはずなのに何だこの正反対さ（笑


とにかくあまりに放置しすぎたのでそろそろ「僕らの世界」にも
手をつけたいと思います。
来月中にはせめて今の章は終わらせよう……。
（今月は忙しくて無理ぽ↓）