الانتقال الى اخر سجل بواسطه مفتاح End

[النجاشي]

السلام عليكم ورحمه الله وبركاته

ما هي طريقه الانتقال بنموذج بحث عن فاتوره عنما اضغط زر End يظهر اخر سجل

الانتقال لاخر سجل.rar

[وضاح النوبه]

للرفع

[صالح حمادي]

السلام عليكم

تفضل أخي لقد أضفت 4 أزرار بالنموذج الرئيسي تمكنك من التنقل بين سجلات النموذج الفرعي (الأول, الأخير, السابق, التالي).

 

البحث.rar

[Shivan Rekany]

12 ساعات مضت, ابو زاهر said:

السلام عليكم ورحمه الله وبركاته

ما هي طريقه الانتقال بنموذج بحث عن فاتوره عنما اضغط زر End يظهر اخر سجل

الانتقال لاخر سجل.rar

هل قصدك بزر End اللي على كيبورد

اذا الجواب نعم
استخدم هذا الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 35 Then
DoCmd.GoToRecord , , acLast
End If
End Sub

لكن يجب ان يكون خاصية النموذج كى بريفيو بيكون نعم
او يجب ان تستخدم هذا الكود معه في حدث عند فتح او تحميل النموذج

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

واذا ما كان قصدك اللي في كيبورد
استاذنا @صالح حمادي عمل لك اربع ازرار
اتفچل مع قاعده‌ بيانات بها الكود الاعلاه

تحياتي

 

الانتقال لاخر سجل.rar

[النجاشي]

السلام عليكم ورحمه الله وبركاته استاذي شفان صالح حمادي بارك الله فيكم هذا هو المطلوب شاكر لكم من كل قلبي استاذتي

[صالح حمادي]

48 دقائق مضت, Shivan Rekany said:

هل قصدك بزر End اللي على كيبورد

اذا الجواب نعم
استخدم هذا الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 35 Then
DoCmd.GoToRecord , , acLast
End If
End Sub

لكن يجب ان يكون خاصية النموذج كى بريفيو بيكون نعم
او يجب ان تستخدم هذا الكود معه في حدث عند فتح او تحميل النموذج

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

واذا ما كان قصدك اللي في كيبورد
استاذنا @صالح حمادي عمل لك اربع ازرار
اتفچل مع قاعده‌ بيانات بها الكود الاعلاه

ما شاء الله عليك صديقي Shivan Rekany أنت دائما في الموعد

تم تعديل مارس 31, 2017 بواسطه صالح حمادي