MS Access Version 2412 Build - VBA to override default form record scrolling behavior no longer works

Question

I have several continuous and single forms and use the following code to override the default record scrolling behavior. With the January 7 MS Office update, nad update to Access Version 2412, the following mouse wheel event code no longer works.

What changed in Version 2412?

I've also tried changing it to DoCmd.GoToRecord , , acPrevious etc. but the default record scrolling behavior in forms is what persists.

On Error GoTo Err_Handler

    'Purpose:   Make the MouseWheel scroll in Form View in Access 2007 and later.

    '           This code lets Access 2007 behave like older versions.

    'Return:    1 if moved forward a record, -1 if moved back a record, 0 if not moved.

    'Author:    Allen Browne, February 2007.

    'Usage:     In the MouseWheel event procedure of the form:

    '               Call DoMouseWheel(Me, Count)

    Dim strMsg As String

    'Run this only in Access 2007 and later, and only in Form view.

    If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then

        'Save any edits before moving record.

        RunCommand acCmdSaveRecord

        'Move back a record if Count is negative, otherwise forward.

        RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext)

        DoMouseWheel = Sgn(lngCount)

'        If lngCount < 0& Then

'            DoCmd.GoToRecord , , acPrevious

'        Else

'            DoCmd.GoToRecord , , acNext

'        End If

    End If

Exit_Handler:

    Exit Function

Err_Handler:

    Select Case Err.Number

    Case 2046&                 'Can't move before first, after last, etc.

        Beep

    Case 3314&, 2101&, 2115&   'Can't save the current record.

        strMsg = "Cannot scroll to another record, as this one can't be saved."

        MsgBox strMsg, vbInformation, "Cannot scroll"

    Case Else

        strMsg = "Error " & Err.Number & ": " & Err.Description

        MsgBox strMsg, vbInformation, "Cannot scroll"

    End Select

    Resume Exit_Handler

End Function

Answer 1

The Access team have been able to replicate the Count bug with the repro database I sent them and have confirmed that it will be fixed.

Although not mentioned in this thread, I cannot see how the Page argument would ever be true.

Answer 2

News from the Access team

The mouse wheel issue will be fixed in version 2501, which will be available next week (W/C 27 Jan)

My related article on the Access Forever blog site will be updated again when the release date and build number are known

The Beta Channel should be fixed at around the same time

Answer 3

Yep, a bug in version 2412, refer to:

https://www.devhut.net/potential-mousewheel-bug-in-microsoft-365-version-2412/

and

https://www.youtube.com/watch?v=WdAdbHJiFCU

That's all the information that is available at this time.

Answer 4

This bug has been reported to the MS Access team.

You can roll back the update. Others have reported that resolves the bug.

Answer 5

Thank you!