تعديل كود التنقل بين السجلات في النمودج المستمر باستعمال الأسهم

[moho58]

السلام عليكم

الإخوة الأفاضل في هذا المنتدى الجميل

أستخدم حاليا كود من أجل التنقل بين السجلات في النموذج المستمر

أريد التعديل على الكود

السهم العلوي والسهم السفلي يعملان جيدا

لكن عند الضغط على سهم اليمين يدهب إلى اليسار  وعند الضغط على سهم اليسار يدهب لليمين

الرجاء المساعدة والتوجيه وبارك الله فيكم

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Select Case KeyCode
Case Is = vbKeyDown
DoCmd.GoToRecord , , acNext
Case Is = vbKeyUp
DoCmd.GoToRecord , , acPrevious
End Select
End Sub

 

baseMM - .accdb

[kkhalifa1960]

وين الاسهم  ارسل المرفق الصح !!!!

[moho58]

25 دقائق مضت, kkhalifa1960 said:

وين الاسهم  ارسل المرفق الصح !!!!

تحية طيبة أستاد @kkhalifa1960

الأسهم هي أسهم لوحة المفاتيح

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

المفتاح باتجاه الأعلى والأسفل يشتغلان جيدا الاتجاه صحيح

بينما سهم اليسار عند الضغط عليه يدهب لليمين واليسار عند الضغط عليه يدهب لليمين

 

[Foksh]

مشاركة عالطاير ، جرب هذا التعديل :-

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Select Case KeyCode
        Case vbKeyDown
            DoCmd.GoToRecord , , acNext
        Case vbKeyUp
            DoCmd.GoToRecord , , acPrevious
        Case vbKeyRight
            Me.SetFocus
            SendKeys "{TAB}"
        Case vbKeyLeft
            Me.SetFocus
            SendKeys "+{TAB}"
    End Select
End Sub

 

[moho58]

شكرا الأخ الفاضل @Fokshعلى المشاركة

بعد التجربة مزال نفس المشكل

السهم العلوي والسفلي يشتغلان جيدا

اليمين واليسار الاتجاه مزال معكوس

وشكرا

[Foksh]

تحايل على الكود بعكس الوظيفتين ، أو جرب هذا التعديل 🤔 .

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Select Case KeyCode
        Case vbKeyDown
            DoCmd.GoToRecord , , acNext
        Case vbKeyUp
            DoCmd.GoToRecord , , acPrevious
        Case vbKeyRight
            Me.SetFocus
            Screen.PreviousControl.SetFocus
            SendKeys "{TAB}"
        Case vbKeyLeft
            Me.SetFocus
            Screen.PreviousControl.SetFocus
            SendKeys "+{TAB}"
    End Select
End Sub

 

[moho58]

7 دقائق مضت, Foksh said:

تحايل على الكود بعكس الوظيفتين ، أو جرب هذا التعديل 🤔 .

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Select Case KeyCode
        Case vbKeyDown
            DoCmd.GoToRecord , , acNext
        Case vbKeyUp
            DoCmd.GoToRecord , , acPrevious
        Case vbKeyRight
            Me.SetFocus
            Screen.PreviousControl.SetFocus
            SendKeys "{TAB}"
        Case vbKeyLeft
            Me.SetFocus
            Screen.PreviousControl.SetFocus
            SendKeys "+{TAB}"
    End Select
End Sub

 

مزال نفس المشكل أخي الكريم

[Foksh]

51 دقائق مضت, Foksh said:

مشاركة عالطاير ، جرب هذا التعديل :-

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Select Case KeyCode
        Case vbKeyDown
            DoCmd.GoToRecord , , acNext
        Case vbKeyUp
            DoCmd.GoToRecord , , acPrevious
        Case vbKeyRight
            Me.SetFocus
            SendKeys "{TAB}"
        Case vbKeyLeft
            Me.SetFocus
            SendKeys "+{TAB}"
    End Select
End Sub

 

ما قصدته بالتحايل ،،

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Select Case KeyCode
        Case vbKeyDown
            DoCmd.GoToRecord , , acNext
        Case vbKeyUp
            DoCmd.GoToRecord , , acPrevious
        Case vbKeyLeft
            Me.SetFocus
            SendKeys "{TAB}"
        Case vbKeyRight
            Me.SetFocus
            SendKeys "+{TAB}"
    End Select
End Sub

عكس المفاتيح لنفس الوظيفة ما قصدته

[moho58]

6 دقائق مضت, Foksh said:

ما قصدته بالتحايل ،،

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Select Case KeyCode
        Case vbKeyDown
            DoCmd.GoToRecord , , acNext
        Case vbKeyUp
            DoCmd.GoToRecord , , acPrevious
        Case vbKeyLeft
            Me.SetFocus
            SendKeys "{TAB}"
        Case vbKeyRight
            Me.SetFocus
            SendKeys "+{TAB}"
    End Select
End Sub

عكس المفاتيح لنفس الوظيفة ما قصدته

لقد جربت الكود هدا الاخير

السهم العلوي والسفلي يشتغلان جيدا

لكن اليمين واليسار أصبح  لا يشتغلان

وشكرا لك مرة أخرى على المتابعة

[Foksh]

محاولاتي معك بعيدة عن الكمبيوتر ، غدا إن كان في العمر بقية سنحاول المتابعة للوصول الى حل

[Foksh]

اخي @moho58 ..

جرب هذا السلوك  :-

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Dim newKeyCode As Integer
    Select Case KeyCode
        Case vbKeyDown
            DoCmd.GoToRecord , , acNext
        Case vbKeyUp
            DoCmd.GoToRecord , , acPrevious
        Case vbKeyRight
            newKeyCode = vbKeyLeft
            KeyCode = newKeyCode
        Case vbKeyLeft
            newKeyCode = vbKeyRight
            KeyCode = newKeyCode
    End Select
End Sub

 

[moho58]

20 دقائق مضت, Foksh said:

اخي @moho58 ..

جرب هذا السلوك  :-

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Dim newKeyCode As Integer
    Select Case KeyCode
        Case vbKeyDown
            DoCmd.GoToRecord , , acNext
        Case vbKeyUp
            DoCmd.GoToRecord , , acPrevious
        Case vbKeyRight
            newKeyCode = vbKeyLeft
            KeyCode = newKeyCode
        Case vbKeyLeft
            newKeyCode = vbKeyRight
            KeyCode = newKeyCode
    End Select
End Sub

 

الاستاذ  الفاضل @Foksh

بعد التجربة شغال وبامتياز 

جزاك الله كل الخير ان شاء الله 

الف شكر وامتنان