rullehjulet på en mus er nyttigt i nogle edb-applikationer , men det kan give problemer i Microsoft Access. Hvis du opretter database applikationer med Access , kan du være fortrolig med den måde rullehjulet kan forårsage poster til cykle for hurtigt eller cykle før indtastning af data er afsluttet. Med udgivelsen af Access 2007 , er rullehjulet deaktiveret som standard i ansøgningen. I versioner før Access 2007 , herunder Access 2003 , skal du manuelt deaktivere rullehjulet funktion med et modul eller VBA-kode placeres i en mus begivenhed procedure. Denne artikel beskrives to metoder til at opnå dette. Hvad du har brug
Computer med internetadgang
Vis Flere Instruktioner
Ring en DLL fil fra koden manuelt
1
Download gratis MouseWheelHookA2k Sample Database og Code fra den Lebans Holdings hjemmeside (se Ressourcer til link) . Udpak filen til en mappe på computeren.
2
Kopier og indsæt " MouseHook.DLL " fil i mappen med Access MDB-fil .
3 < p> Åbn den Access -database. Find og åbn " StartUp " form i listen over formularer til din database (Dit start- form kan have et andet navn ) .
4
Klik "Form Design Tools " værktøjslinjen og skabe en "Command Button " hvor som helst på din formular .
5
Højreklik på Kommandoknap og klik på" Egenskaber "option på pop- up -menuen. Rul ned til " OnClick ", og dobbeltklik på det tomme felt for at åbne Visual Basic for Applications ( VBA ) editor
6
Kopier og indsæt følgende kode i VBA editoren : . < Br >
' Drej musehjulet Off
Dim blRet Som Boolean
blRet = MouseWheelOFF
7
Luk VBA editoren .
8
Opret en anden "Kommando -knap" på enhver anden form i din database til at dreje rullehjulet igen, før du forlader databasen. Indtast følgende kode bag Command Button i " OnClick " code : Hej
' Drej musehjulet On
Dim blRet Som Boolean
blRet = MouseWheelON
< br >
Importer et modul i Access-database
9
Download gratis basMouseHook Sample database og kode fra EverythingAccess.com webstedet (se Ressourcer til link) . Gem databasen i en mappe på computeren.
10
Åbn din database i Access. Klik på " File /Import ", og derefter vælge " Moduler ". Gå til den mappe , hvor du gemte basMouseHook database og importere basMouseHook kodemodulet fra prøven databasen.
11
Åbn din " StartUp " form i formularer designer vinduet. Højreklik på formularen, og klik derefter på "Egenskaber " option på pop- up -menuen.
12
Rul ned til " OnOpen " begivenhed procedure og dobbeltklik på den for at komme ind i VBA editoren .
13
Kopier og indsæt følgende kode i " OnOpen " begivenhed procedure : Hej
Private Sub Form_Open ( Cancel As Integer )
Statisk MouseHook As Object < br >
Set MouseHook = NewMouseHook (Me)
End Sub
