نماذج اكسس ، الانتقال بين السجلات عن طريق لوحة المفاتيح او عن طرق زر امر (معدل)

[علاء طه]

الاخوة الاعزاء السلام عليكم ورحمة الله وبركاته

قد قمت بعمل نموذج بسجلات مستمرة لملئ درجات 

كيف انتقل للسجل السابق فى نفس العمود عن طريق لوحة المفاتيح او عن طرق زر امر

ولكم جزيل الشكر والتقدير

[kkhalifa1960]

في وضع التصميم عند النقر على الحقل (DoCmd.GoToRecord , , acPrevious) واذا تبغي الرجوع لأي حقل آخر نفذ ماسبق في كل الحقول  واليك المرفق. ووافني بالرد 

DA111.rar

تم تعديل يناير 12, 2023 بواسطه kkhalifa1960

[kkhalifa1960]

أخي اذا كان هذا مطلبك حدد على ايقونة افضل اجابة 

[علاء طه]

اخي انا شغال على اوفيس 2003

[Eng.Qassim]

اذا لم تستطع فتح ملف استاذ @kkhalifa1960

اول شي اعمل KeyPreview = yes للنموذج ثم ضع الكود التالي عند حدث KeyDown

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case 38 'Up Arrow
        If Not Me.Recordset.BOF Then
            Me.Recordset.MovePrevious
        End If
    Case 40 'Down Arrow
        If Not Me.Recordset.EOF Then
            Me.Recordset.MoveNext
        End If
End Select
End Sub