Den rullehjulet på musen er nyttig i enkelte dataprogrammer, men det kan føre til problemer i Microsoft Access. Hvis du oppretter databaseapplikasjoner med Access , kan du bli kjent med hvordan rullehjulet kan forårsake poster å sykle for fort eller sykle før dataregistrering er fullført. Med utgivelsen av Access 2007 , er rullehjulet deaktivert som standard i søknaden. I versjoner før Access 2007 , inkludert Access 2003 , må du manuelt deaktivere rullehjulet funksjonen med en modul eller VBA-kode plasseres i en mus hendelse prosedyre . Denne artikkelen beskriver to metoder for å oppnå dette. Du trenger
datamaskin med Internett-tilgang
Vis flere instruksjoner
Ring en DLL -fil fra koden manuelt
en
Last ned gratis MouseWheelHookA2k eksempeldatabasen og kode fra den Lebans Holdings hjemmeside (se Ressurser for link) . Pakk ut filen til en mappe på datamaskinen.
2
Kopier og lim inn " MouseHook.DLL "-filen i mappen med Access MDB -filen.
3 < p> Åpne Access-databasen . Finn og åpne " Oppstart " form i listen over skjemaer for databasen (Your start Skjemaet kan ha et annet navn ) .
4
Klikk på " Form Design Tools " verktøylinje og lage en "Command Button " hvor som helst på skjemaet.
5
Høyreklikk på Command Button og klikk" Properties " alternativet på hurtigmenyen . Bla ned til " onclick " og dobbeltklikk på det tomme feltet for å åpne Visual Basic for Applications ( VBA ) redaktør
6
Kopier og lim inn følgende kode i VBA redaktør : .
' Slå musehjulet Off
Dim blRet Som Boolean
blRet = MouseWheelOFF
7
Lukk VBA editor.
8
Lag en annen " Command Button " på noen annen form i databasen for å slå rullehjulet på igjen før du avslutter database . Skriv inn følgende kode bak Command Button i " onclick " code : en
' Slå musehjulet On The
Dim blRet Som Boolean
blRet = MouseWheelON
Importer en modul inn i Access Database
9
Last ned gratis basMouseHook Sample database og kode fra EverythingAccess.com nettstedet ( se Ressurser for link) . Lagre databasen i en mappe på datamaskinen.
10
Åpne databasen i Access. Klikk på "File /Import " og velg deretter " moduler ". Bla til mappen der du lagret basMouseHook database og importere basMouseHook kodemodul fra prøven database.
11
Åpne " Oppstart " form i skjemaene designer vinduet. Høyreklikk på skjemaet , og klikk deretter på " Properties" alternativet på hurtigmenyen .
12
Bla ned til " OnOpen " event prosedyre og dobbeltklikk på den for å gå inn i VBA editor .
13
Kopier og lim inn følgende kode i " OnOpen " event prosedyre : en
Private Sub Form_Open ( Cancel As Integer )
Statisk MouseHook som objekt
Set MouseHook = NewMouseHook (Me )
End Sub
