Aşağıdaki kodları kopyalayıp formunuza yapıştırın.
Kod:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_Komut4_Click
If KeyCode = vbKeyDown Then
DoCmd.GoToRecord , , acNext
End If
If KeyCode = vbKeyUp Then
DoCmd.GoToRecord , , acPrevious
End If
Exit_Komut4_Click:
Exit Sub
Err_Komut4_Click:
MsgBox Err.Description
Resume Exit_Komut4_Click
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.