Results 1 to 2 of 2

Thread: Bound Access Form

  1. #1

    Thread Starter
    Hyperactive Member
    Join Date
    Sep 2004
    Posts
    262

    Bound Access Form

    Hi all,

    A simple thing really we have a form bound to a query in access, when you move the wheel on the mouse it skips to the next record, which we don't want. Is there anyway to turn this off in Access, can obviosly diable the wheel in windows, but would really just like to turn it off for this one form, so the user don't accidently move to the wrong record. You may think this is unlikely but am only asking as have had so many complaints.
    Any help would be great.

  2. #2
    Ex-Super Mod RobDog888's Avatar
    Join Date
    Apr 2001
    Location
    LA, Calif. Raiders #1 AKA:Gangsta Yoda™
    Posts
    60,709

    Re: Bound Access Form

    I'm not sure about disabling it, but this will detect it. Maybe you could move the current record back whatever
    pages or records they scrolled the wheel. If the scroll commits an update then you could place code in the
    Form_BeforeUpdate procedure or something?

    VB Code:
    1. Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
    2.     If Page = True Or Count <> 0 Then
    3.         MsgBox "You've moved mouse wheel." & vbNewLine & "Please dont do that!!!"'
    4.     End If
    5. End Sub
    VB/Office Guru™ (AKA: Gangsta Yoda®)
    I dont answer coding questions via PM. Please post a thread in the appropriate forum.

    Microsoft MVP 2006-2011
    Office Development FAQ (C#, VB.NET, VB 6, VBA)
    Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
    If a post has helped you then Please Rate it!
    Reps & Rating PostsVS.NET on Vista Multiple .NET Framework Versions Office Primary Interop AssembliesVB/Office Guru™ Word SpellChecker™.NETVB/Office Guru™ Word SpellChecker™ VB6VB.NET Attributes Ex.Outlook Global Address ListAPI Viewer utility.NET API Viewer Utility
    System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width