MS Access Form_MouseWheel事件过程失效求助(Count参数恒为0)
2025年1月Office更新后MS Access Form_MouseWheel事件失效问题
- 2025年1月10日Office更新完成后,MS Access表单的
Form_MouseWheel事件过程出现异常:滚动鼠标时,传递给该过程的Count参数始终为0,而正常情况下该参数应根据滚动方向返回正数或负数。 - 由于
Count恒为0,原本基于该参数实现的鼠标滚轮滚动记录功能完全失效,且已排除鼠标硬件问题(已更换多台鼠标测试)。
原事件过程定义代码:
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
此前用于修复类似问题的临时解决代码参考微软知识库文章《无法在Access 2007或2010表单中使用鼠标滚轮滚动记录》,代码如下:
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) If Not Me.Dirty Then If (Count < 0) And (Me.CurrentRecord > 1) Then DoCmd.GoToRecord , , acPrevious ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then DoCmd.GoToRecord , , acNext End If
内容的提问来源于stack exchange,提问作者Geoffrey Pounder
相关产品推荐
相关产品推荐

