Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown
DoCmd.GoToRecord , , acNext
Me.ScrollBars = 2
Case vbKeyUp
DoCmd.GoToRecord , , acPrevious
Me.ScrollBars = 0
End Select
End Sub
şayet activex olarak scollbar kullanacaksan o zaman case aralarına o scrollbarın adı neyse benimscroolbarım.value=kayit+1 yada kayit-1 olarak bir şey yapacaksın
#3
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
