Access 365 VBA MouseWheel事件失效问题求助

这个问题近期在Office 365的更新批次中已经有不少用户反馈，属于官方更新导致的表单事件参数逻辑变更。

问题共性 #

• 自定义VBA表单的form_MouseWheel事件触发正常，但Count参数不再按滚动方向返回正负Long型数值，导致依赖该参数判断滚动方向的记录切换逻辑失效；
• 仅影响自定义VBA应用内的表单，Access主程序及其他Windows软件的鼠标滚轮功能正常；
• 未更新Office/Windows的旧环境中功能完全正常。

临时解决方法 #

放弃依赖Access自带的MouseWheel事件参数，改用系统API直接捕获鼠标滚动消息，判断方向后执行记录切换：

' 声明API函数（32位Office可去掉PtrSafe）
Private Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

Private Const GWL_WNDPROC = -4
Private Const WM_MOUSEWHEEL = &H20A
Private lpPrevWndProc As LongPtr
Private hWndForm As LongPtr

Private Sub Form_Load()
    hWndForm = Me.hWnd
    ' 子类化表单窗口过程
    lpPrevWndProc = SetWindowLongPtr(hWndForm, GWL_WNDPROC, AddressOf WndProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ' 恢复原窗口过程，避免内存泄漏
    Call SetWindowLongPtr(hWndForm, GWL_WNDPROC, lpPrevWndProc)
End Sub

Public Function WndProc(ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
    If Msg = WM_MOUSEWHEEL Then
        ' 解析滚动Delta值：正为向上，负为向下
        Dim delta As Long
        delta = (wParam >> 16) And &HFFFF
        
        ' 执行记录切换逻辑
        If delta > 0 Then
            If Me.CurrentRecord > 1 Then
                DoCmd.GoToRecord , , acPrevious
            End If
        Else
            If Me.CurrentRecord < Me.Recordset.RecordCount Then
                DoCmd.GoToRecord , , acNext
            End If
        End If
        
        WndProc = 0 ' 标记消息已处理
        Exit Function
    End If
    
    ' 未处理的消息交给原窗口过程
    WndProc = CallWindowProc(lpPrevWndProc, hWnd, Msg, wParam, lParam)
End Function

说明 #

该方法通过子类化表单窗口，直接拦截系统级的鼠标滚动消息，绕过了Access内置MouseWheel事件的参数异常问题，在多个受影响的用户环境中测试有效。建议关注Office后续更新，官方可能会修复该参数逻辑问题。

内容的提问来源于stack exchange，提问作者jedder