Saako jollain VBA komennolla hiirenrullan pois käytöstä? Ongelma liittynee enemmän Accessiin, mutta guruja tuntuu tällä palstalla riittävän, joten kyselenpä täältä.
Hiiren rulla pois käytöstä?
JOS
2270
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
Access 2002 mulla käytössä ja lomakkeelta löysin MouseWheel tapahtuman. En tiedä mitä olet vaille, mutta nyt allaoleva koodi esim. estää tietueissa siirtymisen rullapainikkeella.
Private Rullanappi As Boolean, MissäOllaan As Object
Private Sub Form_Current()
On Error GoTo jatka
If Rullanappi Then
Me.Bookmark = MissäOllaan.Bookmark
Rullanappi = False
Exit Sub
End If
jatka:
' tähän normaali koodi...
End Sub
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error Resume Next
Set MissäOllaan = Me.Recordset.Clone
MissäOllaan.Bookmark = Me.Bookmark
Rullanappi = True
End Sub
Kiitos, taitaa toimia. Kyse oli siis, että haen pudotusvalikosta asian, joka on ns. linkitetty toiseen kenttään. Eli haen esim. Nimen ja alas tulee puh.nro. Aikaisemmin kun rullasin, puh.nrot vaihtuivat, mutta nimi pudostusvalikossa pysyi samana.
Tosin tietueet, eivät menneet kuitenkaan sekaisin.