sürekli form - yön tuşları

Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın hedefkaya,

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
İyi çalışmalar
 
Üst