www.MsAccess.gr

Το Mouse Wheel το ροδάκι δηλαδή του ποντικιού μας μεταφέρει από εγγραφή σε εγγραφή. Η απενεργοποίηση αυτού όπως αναζήτησα στο Internet γινόταν με την προσθήκη Dll και αρκετά πολύπλοκες διαδικασίες για να ενσωματώσουμε την αποτροπή του Mouse Wheel.

Με βάση το λοιπόν ερώτημα στο FreeStuff που μπορείτε να δείτε κάνοντας κλικ εδώ παραθέτω την λύση που έδωσα εκεί και στην σελίδα μου. Μία λύση που σίγουρα επιδέχεται και βελτίωση ίσως καθότι είναι μια τεχνική που βασίζεται σε μία προσωπική μου τεχνική και δεν βρίσκεται κάπου στο Internet.

Παραθέτω τον κώδικα αλλά και ένα Demo mdb που φαίνεται και λειτουργεί σε όλες τις εκδόσεις Access.download   Η μετακίνηση από εγγραφή σε εγγραφή γίνεται με τα πλήκτρα Πάνω - Κάτω.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim VarID As Variant
On Error Resume Next
If Me.NewRecord = False Then
    If KeyCode = vbKeyDown Or KeyCode = vbKeyUp Then
        VarID = Me.id
        Me.FilterOn = False
        Dim RcdSet As DAO.Recordset
        Me.Filter = "ID=" & VarID
        Set RcdSet = Me.RecordsetClone
        RcdSet.FindFirst ("ID=" & VarID)
        Me.Bookmark = RcdSet.Bookmark
        If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext
        If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious
        VarID = Me.id
        Me.Filter = "ID=" & VarID
        Me.FilterOn = True
    End If
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
        Me.Filter = "ID=" & Me.id
        Me.FilterOn = True
        Me.AllowAdditions = False
End Sub