忍者ブログ
ブログ主が仕事や個人的に学んだPC系・プログラミング系(VBAとかHTML)について書いていく備忘録ブログ。 ※ここで記載する内容はあくまで「個人的に」上手くいく内容です。ご使用には十分注意してください
[7] [6] [5] [4] [3] [1] 
Posted by - 2017.06.28,Wed
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

Posted by 若槻風亜 - 2013.07.03,Wed
(対象)Access VBA
(確認)Access2003


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



「Access VBA マウスホイール制御」
――――――――
○やりたいこと
――――――――
→フォームでマウスホイールをするとレコードが移動してしまうので
 それをなくす
――――――――
○ソース
――――――――
Dim bbb As Integer
'=============================================
' フォームの読み込み時
'=============================================
Private Sub Form_Load()
  bbb = 0
End Sub
――――――――
☆やっていること
――――――――
フォームの読み込み時に変数bbbに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
――――――――
☆やっていること
――――――――
マウスホイールが動かされたらbbbにCountの値を入れる
(Countの値=ホイールされて動こうとしているレコードの数)
'=============================================
' レコードに変更があった時
'=============================================
Private Sub Form_BeforeUpdate(Cancel As Integer)
  If bbb <> 0 Then
    Cancel = True
    bbb = 0
  End If
End Sub
――――――――
☆やっていること
――――――――
bbbの値が0でない時にCancelをTrueにして処理をキャンセルする。
※1ここでキャンセルされると移動もキャンセルになる
※2判断は必ず「0でない」にする。bbbの値はマイナス値にもなる
※3bbbの値を初期化しておく
(上のレコード移動時の処理を超えると自動的に入ってくる)
=======================



拍手[1回]

PR
Comments
Post a Comment
Name :
Title :
E-mail :
URL :
Comments :
Pass :   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
プロフィール
HN:
若槻風亜
性別:
女性
職業:
会社員
趣味:
創作、プログラミング
自己紹介:
仕事や個人で学んだことをまとめておきたかったがために備忘録ブログを立ち上げました。
あくまで自分が学んだこと・自分が出来たことなので、ご覧くださる場合は参照レベルでお願いします。
ブログ内検索
カレンダー
05 2017/06 07
S M T W T F S
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30
P R
最新トラックバック
コガネモチ
フリーエリア



Template by mavericyard*
Powered by "Samurai Factory"
忍者ブログ [PR]