在 ACCESS 里 如何彻底禁止鼠标滚轮滚动到下一条或上一条记录？

[htc_xx]

使用了MS的，会导致ACCESS长时间不响应

难道没有更好的办法吗？

用那个DLL又没有看到可以下载的

[changechange]

方法三：




用子窗体控件包含这个窗体

不知道大家是否发现一个有趣的情况？子窗体中的记录无法跟着滚轮的滚动而跳转，在这里正好利用这一点，只要将窗体套嵌进一个子窗体即可。

[changechange]

请参考以下文章及其相关文章：

用api禁止鼠标滚轮 （包括其他不用API 的方法）
http://access911.net/?kbid;73FAB71E1ADC


这么多方法，难道没有一个适合你？

注意，滚轮问题只有在 XP 以下版本才存在，XP以上版本增加了滚轮事件，根本没有必要用其他方法去搞了

[wwwwb]

转：

Public jl As Long

Private Sub Command142_Click() '禁止滚动
jl = Me.CurrentRecord '记录当前记录号
'Me.AllowEdits = True '窗体可编辑
'Me.AllowDeletions = True '窗体可删除
End Sub

Private Sub Command143_Click() '允许滚动
jl = 0
'Me.AllowEdits = False '窗体不可编辑
'Me.AllowDeletions = False '窗体不可删除
End Sub

Private Sub Form_Current()
If jl <> 0 And Me.CurrentRecord <> jl Then
DoCmd.GoToRecord acForm, Me.Form.name, acGoTo, jl '返回原记录号
Me.Command142.Enabled = False
Me.Command143.Enabled = True
Else
Me.Command142.Enabled = True
Me.Command143.Enabled = False

End If
End Sub

[changechange]

右上角，兰底白字，管理

[changechange]

右上角，兰底白字，管理

[htc_xx]

非常感谢

[htc_xx]

不知道怎么给你们给分啊