Mit den Pfeiltasten „Hinauf“ und „Hinunter“ soll man im Formular den Datensatz wechseln können.
Inhaltsverzeichnis
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
- Link: http://www.donkarl.com/faq/FAQ4Formulare.htm#4.10 (Vielen Dank!)