bij muiswiel ga na record

[sis123]

is het mogelijk om ?

draai muiswiel naar onder --> ga na vorig record
en
draai muiswiel naar boven --> ga na volgend record

beide acties zouden in 1 code moeten werken

----------------------------------------------------------------------------

Ik dacht hieraan maar doet het niet :

Option Compare Database

onMouseWheelUp.GoToRecord , , acNext
onMouseWheelDown.GoToRecord , , acPrevious

Refresh

 

[Tardis]

Hallo,

dat gaat niet.

Groet,

Tardis

 

[vanzwam]

Bij gaat dat automatisch en zonder code. Scrollwiel naar onder -> volgend record. Scrollwiel boven -> vorig record.

 

[Anne-Marie]

Kwestie van je formuliergrootte goed hebben

Zorg dat je formulierontwerp zo groot is dat deze past in je volledige scherm (of kleiner). Zet in het ontwerp je schuifbalken uit. Test even of het werkt (met Page-up en Page-down moet je naar vorig of volgend record gaan) en dan werkt hetzelfde met het scroll-wiel m.u.v. als je in een memovelden staat waar meer tekst in staat dan zichtbaar is.

 

[sis123]

Bij gaat dat automatisch en zonder code. Scrollwiel naar onder -> volgend record. Scrollwiel boven -> vorig record.

Weet ik,

mijn opzet is net het omgekeerde om de scroll functie uit te schakelen

 

[Tardis]

Zie http://www.lebans.com/mousewheelonoff.htm

Groet,

Tardis

 

[sis123]

De methode van lebans mogen we niet toepassen.

Er moet toch een hold (popup) kunnen worden gemaakt bij OnMouseWheel.
Ik kan een popup openen maar daarvoor is de instructie van de scroll (volgende of vorige record) al uitgevoerd. Daar zit het !

Bij OnMouseWheel mag ook een error scherm komen !!!

 

[Tardis]

De methode van lebans mogen we niet toepassen

Hallo,

waarom niet?
Veel meer mogelijkheden heb je niet (= er zijn geen andere mogelijkheden).

Groet,

Tardis

 

[Guus2005]

Try this one for size...

Je scroll functie werkt op de control die de focus heeft. Voel je hem al aankomen?
Als je ervoor zorgt dat het control de focus niet krijgt dan zal het muisje er nooit invloed op kunnen uitoefenen. Denk aan je property Tab Stop = False. Echter, eenmaal aangeklikt krijgt het control de focus en hou je scrollen met het muiswieltje niet tegen, zonder eerder genoemde oplossingen. Maar als je ervoor zorgt dat er ook niet op geklikt kan worden door bijvoorbeeld een label erover heen te leggen dan kan dat ook niet meer.

Als je een form opent heeft Access de onhebbelijke neiging om met de code door te gaan als je dat gedaan hebt. Met de volgende code "stopt" je de code totdat het form is gesloten.

Public Function IsLoaded(sFormName As String) As Boolean
    Dim i As Integer
    IsLoaded = False
    For i = 0 To Forms.Count - 1
        If Forms(i).Name = sFormName And Forms(i).Visible Then
            IsLoaded = True
            Exit Function
        End If
    Next
End Function

Private Sub cmdLeveranciersOnderhoud_Click()

    DoCmd.OpenForm "frmLeverancierOnderhoud"
    
    Do While IsLoaded("frmLeverancierOnderhoud")
        DoEvents
    Loop

    MsgBox "Nu gaan we weer verder"

End Sub