استخدام المفاتيح للتنقل بين السجلات

استخدام المفاتيح للتنقل بين السجلات

السجل الأول : Shift+Home

السجل الأخير :Shift+End

السجل السابق : Shift+Page Down

السجل التالي : Shift+Page Up

سجل جديد : Shift+Insert

للنموذج :

يعني يعمل ولا علاقة له بوجود التركيز في حقل معين ، في خصائص النموذج صفحة التبويب حدث في مفتاح العرض التمهيدي ضع نعم وفي حدث عند مفتاح للأعلى أو حدث عند مفتاح للأسفل ضع :

On Error Resume Next

If Shift = 1 Then

Select Case KeyCode

Case 33 ' Page Up

DoCmd.GoToRecord , , acNext

Case 34 ' Page Down

DoCmd.GoToRecord , , acPrevious

Case 36 ' Home

DoCmd.GoToRecord , , acFirst

Case 35 ' End

DoCmd.GoToRecord , , acLast

Case 45 ' Insert

DoCmd.GoToRecord , , acNewRec

End Select

End If

أما إذا رغبت أن يكون الإنتقال خاص بكون التركيز في أحد عناصر التحكم فضع مفتاح العرض التمهيدي الى لا ثم ضع الكود في مربع النص المطلوب وضع الحدث له إما في في حدث عند مفتاح للأعلى أو عند مفتاح للأعلى .

إذا كان لديك حدث في مفتاح للأعلى أو مفتاح للأسفل كحدث الكتابة والبحث فضع السطر التالي في بداية الحدث :

If KeyCode = 33 Or KeyCode = 34 Then Exit Sub

وللجميع التحية