Zeilenwechsel mit Pfeiltasten

Mit den Pfeiltasten „Hinauf“ und „Hinunter“ soll man im Formular den Datensatz wechseln können.

Einstellung

Unter Eigenschaften > Ereignis > Tastenvorschau muss „Ja“ eingestellt sein.

Variablen deklarieren

Falls die „Option Explicit“ gesetzt worden ist (die sehr anzuraten ist), muss im Code des Formulars die Variable „KeyCode“ definiert sein:

Dim KeyCode

Ereignis-Behandlung

Beim Ereignis „Bei Taste Ab“ ist folgender Code einzufügen:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    'Bei Pfeil hinauf/hinunter soll der Datensatz gewechselt werden
    'Eigenschaften > Ereignis > Tastenvorschau muss auf "Ja" gestellt sein
    
    On Error Resume Next 'Falls erster oder letzter Datensatz erreicht wurde
    
    Select Case KeyCode
        Case vbKeyDown
            KeyCode = 0
            DoCmd.GoToRecord , , acNext
        Case vbKeyUp
            KeyCode = 0
            DoCmd.GoToRecord , , acPrevious
    End Select
End Sub

Quelle

1 Stern2 Sterne3 Sterne4 Sterne5 Sterne

Loading…
Avatar von manuel

AUTOR

manuel