أريد نقل التركيز الى نموذج فرعي ويكون التنقل بشكل رأسي وليس أفقي مثال مرفق

[iam-hona]

السلام عليكم

أريد نقل التركيز الى نموذج فرعي ويكون التنقل عبر السجلات بشكل رأسي وليس أفقي مثال مرفق

ولكم جزيل الشكر

test8.zip

[Shivan Rekany]

الان, iam-hona said:

أريد نقل التركيز الى نموذج فرعي ويكون التنقل عبر السجلات بشكل رأسي وليس أفقي

الان, iam-hona said:

الله يجزيك الخير  ويبارك فيك 

ممتاز لاكن حينما أريد ان أعود ثانية الى نقطة البداية وهي ارجاع التركيز الى الحقل الموجود في القائمة الرئيسية أريد عند الضغط على زر تاب يتم الارجاع إن أمكن

وشكرا جزيلا

 

الان, iam-hona said:

وأيضا هناك ملاحظة فيما لو أردت أن أتنقل من أعلى الى أسفل عن طريق الاسهم كيف يتم إضافة هذا الكود

اتفضل @iam-hona 
انا غيرت الكود و استخدمت هذا الكود عند ضغط على انتر

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
    If KeyCode = 13 Or KeyCode = 40 Then
            DoCmd.GoToRecord , , acNext
        ElseIf KeyCode = 38 Then
            DoCmd.GoToRecord , , acPrevious
        ElseIf KeyCode = 9 Then
            Me.Requery
            Forms!F1!tt.SetFocus
    End If
End Sub


Private Sub Form_Open(Cancel As Integer)
    Me.KeyPreview = True
End Sub

واليك مرفق بعد تعديل

 

 

test8.zip

تم تعديل يونيو 4, 2017 بواسطه Shivan Rekany

[iam-hona]

الله يجزيك الخير  ويبارك فيك 

ممتاز لاكن حينما أريد ان أعود ثانية الى نقطة البداية وهي ارجاع التركيز الى الحقل الموجود في القائمة الرئيسية أريد عند الضغط على زر تاب يتم الارجاع إن أمكن

وشكرا جزيلا

 

[iam-hona]

وأيضا هناك ملاحظة فيما لو أردت أن أتنقل من أعلى الى أسفل عن طريق الاسهم كيف يتم إضافة هذا الكود