在Access2003中简单三步，禁止鼠标中键滚轮
在窗体中，如果为窗体指定了记录来源，那么在窗体上滚动鼠标中键，那么所显示的记录就会随着滚轮不断变化。但是，很多时候我们却并不需要这一点，尤其是涉及到筛选的时候。
比如，在窗体尚不有个选择框，下面现实与上面选择框内容相关的资料，在选择框内容发生变化时，下面的资料会跟着发生变化，但是，一旦你在此时滚动了鼠标中键，那么下面的内容就会变化到上一条记录或是下一条记录，这样上下就不对应了，很容易传达错误的信息。如果选择框是学生姓名下面是学生信息的话，那么滚动中键后，姓名与信息就不同了，就像是完全换了个人一样。
所以，在很多时候，我们需要避免Access这种自作多情，甚至可以说是画蛇添足的做法。
具体步骤也很简单，虽然代码很多，但是你需要做的只是简单的“复制”，“粘贴”，简单三步就可以完成。
实例代码请从这里下载：Access禁止鼠标中键滚轮代码实例 （微软网盘存储，请放心下载，不能用迅雷）
首先，要建立一个模块，这个模块（实例文件中的名字是Basmousehook）说白了就是一堆代码，你直接复制过去就是，模块名称随便定。
然后，在窗体上声明一个对象变量。
Private MouseHook AsObject（这个声明必不可少，否则会提示缺少对象）
最后，在Form_open事件中输入执行代码：（把下面的代码复制到窗体的代码编写窗口就OK了！）
Private SubForm_Open(Cancel As Integer)
Set MouseHook = NewMouseHook(Me)
MouseHook.Scroll = False
EndSub
至此，大功告成，记录再也不会变动了，鼠标中键滚动不起作用了！
