Het scrollwiel van de muis is nuttig in sommige computertoepassingen , maar het kan problemen in Microsoft Access veroorzaken . Als je database- applicaties te maken met Access , zou u vertrouwd zijn met de manier waarop het scrollwiel kunt records te fietsen te snel of te fietsen veroorzaken vóór het invoeren van gegevens is voltooid . Met de release van Access 2007 , wordt het scrollwiel standaard uitgeschakeld in de applicatie . In eerdere versies dan Access 2007 , zoals Access 2003 , moet u handmatig het scrollwiel functie met een module of VBA-code geplaatst in een muis gebeurtenisprocedure uitschakelen . In dit artikel worden twee methoden om dit te bereiken . Wat je
Computer met internettoegang
Need Toon Meer Aanwijzingen
Bel een DLL-bestand van Code handmatig
1 Download de gratis MouseWheelHookA2k Sample Database en Code van de website Lebans Holdings ( zie bronnen voor de link ) . Pak het bestand uit in een map op de computer .
Copy 2 en plak de " MouseHook.DLL " bestand in de map met het MDB -bestand Access .
3 Open de Access-database . Zoek en open de " Opstarten " vorm in de lijst met formulieren voor uw database ( Uw start formulier kan een andere naam hebben ) .
Klik 4 de " Form Design Tools " toolbar en een " Command button " overal op uw formulier .
5 klik met de rechtermuisknop op de opdracht knop en klik op de " " optie Eigenschappen in het snelmenu . Blader omlaag naar de optie " OnClick " en dubbelklik op het lege veld om de Visual Basic for Applications ( VBA ) redacteur
Copy 6 openen en plak de volgende code in de VBA- editor : . < Br > ' Zet de MouseWheel Off Dim blRet
zoals Van Boole blRet = MouseWheelOFF
7
Sluit de VBA- editor .
8 Maak nog een " Command Button " op elke andere vorm in uw database aan het scrollwiel weer in te schakelen voordat u de database af te sluiten . Voer de volgende code achter de Command -knop in de " OnClick " code :
' Zet de MouseWheel Op Dim blRet
zoals Van Boole
blRet = MouseWheelON
< br >
Importeer een module in de Access-database
9 Download de gratis basMouseHook Sample -database en de code van de EverythingAccess.com website ( zie bronnen voor de link ) . Opslaan van de database in een map op uw computer .
10 Open uw database in Access . Klik op de optie "Bestand /Importeren " en selecteer vervolgens " Modules . " Blader naar de map waar u de basMouseHook databank opgeslagen en importeert de code module basMouseHook uit de voorbeelddatabase .
11 Open je " Opstarten " vorm in de designer venster vormen . Klik met de rechtermuisknop op het formulier en klik vervolgens op de optie "Eigenschappen" in het pop - upmenu .
12 Scroll naar beneden naar de " OnOpen " event procedure en dubbelklik erop om de VBA- editor in te voeren .
Copy 13 en plak de volgende code in het " OnOpen " gebeurtenisprocedure : Private Sub Form_Open
( Cancel As Integer ) Statische MouseHook
als Voorwerp < br Set > MouseHook = NewMouseHook ( Me ) op End Sub
|
