Lentini: wil je de volgende keer de edit knop (

) gebruiken als je binnen 24 uur wat wilt toevoegen? Dank je
Ontopic: [google=vba disable scrollmouse] leverde me al heel snel:
Disable scroll mouse. Of het werkt weet ik niet, maar probeer het zou ik zeggen

Yup! The wheel is a bit of a problem in Access. Here's how I handle it (without having to resort to complicated API calls and callback function to drive the mouse)
I declare a form level boolean variable
In OnClick :
Visual Basic:
1
2
3
4
| Dim bAllowNew as Boolean
bAllowNew = True
DoCmd.GoToRecord , , acNewRec |
In OnCurrent event:
Visual Basic:
1
2
3
4
5
6
| If NewRecord _
And (bAllowNew = False) _
And RecordsetClone.RecordCount <> 0 Then
DoCmd.GoToRecord , , acPrevious
Exit Sub
bAllowNew = False |
plus
What's the runtime error? Probably something about "You cannot move to that record" or "Action cancelled".
Either way if you just add these two lines to the code behind your copy button
Visual Basic:
1
2
3
4
5
| bAllowNew = True
'Then your code to select the record
DoCmd.GoToRecord , , acNewRec |
edit:
Dit is eigenlijk niet precies wat je zoekt, maar je kan de gedachte erachter gebruiken om het aan je wensen aan te passen lijkt me
[
Voor 6% gewijzigd door
F_J_K op 23-12-2002 17:06
]
'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)