雑物・小物ダウンロード

雑物ダウンロード

必要でしたら使ってください。(使用は自己責任でお願いします)

Accessでスクロールをさせない

マウスのスクロールボタンでレコードが動くのを防ぐ

マイクロソフトのサポートに載っていた物です

Download(4.16k) ←これ(LZH圧縮してあります)

方法

Accessで Alt+F11 でVBEを開く

上部ツールバーの ツール → 参照設定 → 参照 で

ダウンロード 解凍した MouseWheel.dll を参照

スクロールボタンでレコード移動させたくないフォーム名をダブルクリックして開く

天辺の Option Compare Database の下にでも

Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

を記述

あと適当な所に下記記述

Private Sub Form_Load()

Set clsMouseWheel = New MouseWheel.CMouseWheel

Set clsMouseWheel.Form = Me

clsMouseWheel.SubClassHookForm

End Sub

Private Sub Form_Close()

clsMouseWheel.SubClassUnHookForm

Set clsMouseWheel.Form = Nothing

Set clsMouseWheel = Nothing

End Sub

Private Sub clsMouseWheel_MouseWheel(cancel As Integer)

cancel = True

End Sub

これでだけでロック

気になる所といえば他でエラーなどで終了した場合、clsMouseWheelの終了エラーが出る 編集中は仕方が無いです。

2002と2003で試して正しくロックかかりました。

(※自己責任でお願いします)

マイクロソフトサポートページ

http://support.microsoft.com/default.aspx?scid=kb%3Bja%3B308636

トップへ戻る

---

トップデータ復旧パソコン修理ソフト販売困った時の対処方法パソコン契約サポートお問い合わせオフィス案内データ復旧例・パソコン修理例
ダウンロードリンク法律に基づく表示サイトマップ当サイトについて

三重県松阪市のパソコン修理、データ復旧取り出しのアビーライン

Copyright(C)三重のパソコン修理・データ復旧・救出・取り出し、アビーライン All rights reserved.