Muiswiel uitzetten voor record naviagatie

[laanweg]

Wie kan mij helpen

Ik heb een Access2003 Db met formulieren en tabbladen.
Alles werkt nu naar behoren
Echter bij het draaien aan het muiswiel komt er een nieuw/oud record tevoorschijn.
Dit wil ik NIET
Hoe kan je dit uit zetten

bij voorbaat dank

 

[Poppoll]

Hier http://www.lebans.com/mousewheelonoff.htm meer uitleg.
PP

 

[laanweg]

Beste Poppoll

Deze site heb ik gevonden maar ik krijg het niet werkend in de subformulieren
Ik heb het script bij het laden van het hoofdformulier gezet.
Is het mogelijk om het voor de gehele Db werkend te krijgen

ps ik gebruik Access 2000/2003

bvd

 

[Poppoll]

Dit al geprobeerd?
Private Sub Form_Open(Cancel As Integer)
' Turn the MouseWheel Off
Dim blRet As Boolean
blRet = MouseWheelOFF(True)
End Sub

Anders mischien een voorbeeld db plaatsen?

PP

 

[laanweg]

Beste PP

alleerst bedankt voor je snelle reactie

Er duikt een probleem in het script op

Private Sub Form_Open(Cancel As Integer)
' Turn the MouseWheel Off
Dim blRet As Boolean
blRet = MouseWheelOFF(True)
End Sub

blRet = MouseWheelOFF(True) wordt niet geaccepteerd.
Compileerfout: sub of function is niet gedefinieerd
Kan je hier nog mee helpen.

(de Db is 3,5Mb groot en complex)

bvd

 

[Poppoll]

Ik heb dit in mijn switchboardformulier (wat altijd open blijft):

Private Sub Form_Load()
' Turn the MouseWheel Off
Dim blRet As Boolean
    blRet = MouseWheelOFF(True)
End Sub

ModMousehook als module in de db

moushook.dll in dezelfde dir als mijn db

In formulieren waar ik het muiswiel Wel nodig heb staat dit:

Private Sub Form_Open(Cancel As Integer)
' Turn the MouseWheel On
Dim blRet As Boolean
blRet = MouseWheelON
End Sub

En in andere forms staat dan weer de eerste code

PP

 

[sesam]

PageUp

Heb je eraan gedacht dat je altijd nog met PgUp en PgDn naar andere records kunt gaan? Wil je dat ook uitzetten? Misschien is het veel aardiger om je formulier te openen met alleen het juiste record erin, dat doe je met behulp van een filter waarbij je de eigenschap nieuwe records toevoegen uitzet.

 

[laanweg]

Beste sesam en Poppol

Ik waardeer jullie ideeen zeer.

Ik gebruik deze Db op mijn werk via het netwerk (enige optie)
Thuis krijg ik het werkend echter nog steeds niet op de subformulieren en tabbladen.
Ik heb het DLL bestand in dezelfde map staan als de Db. Dus ook op het netwerk.

Het idee van sesam gaat volgens mij niet bij mijn Db werken om dat er ook data in de verschillende records ingevoerd en verandert moet worden (of heb ik het niet begrepen)

Is er niet gewoon een manier om het wieltje uit te zetten zonder dit DLL bestand.
Dan kan ik dit in het schakelbord zetten, of liever nog bij het opstarten van de Db

Graag nog wat hulp!

bijvoorbaat dank

 

[Poppoll]

Je hebt toch het goeie voorbeeld gedownload van Lebans site?
MouseWheelHookA2K.zip link op de eerste lijn v/d site.
Dan nog iets in subforms als datasheet werkt het niet!

In bijlage een wat bijgewerkte versie. open frmstart en test het muiswiel.
PP

 

[laanweg]

Het is heel jammer maar het werkt niet
Thuis werk het maar gedeeltelijk en op het (net)werk helemaal niet

Ik ga het oplossen door het muis wieltje uit te zetten in windows of een wielloze muis neer te zetten.

bedankt voor al het mee denken