كود ايقاف زر Next على السجل الاخير دو ن الذهاب الى سجل جديد

[محمدنجار]

السلام عليكم ... اخواني  الكرام ...

:: كيف يمكن ايقاف زر التالي على السجل  الاخير ولا يذهب الى السجل الجديد عند الضغط عليه  ؟ 

:: شكري وتقديري للجميع ..........................................................

تم تعديل أغسطس 2, 2018 بواسطه محمدنجار

[صالح حمادي]

السلام عليكم

جرب هذا المرفق

If CurrentRecord < Me.c Then
  DoCmd.GoToRecord , , acNext
End If

 

زر_التنقل.rar

[Shivan Rekany]

2 ساعات مضت, محمدنجار said:

: كيف يمكن ايقاف زر التالي على السجل  الاخير ولا يذهب الى السجل الجديد عند الضغط عليه  ؟

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

 

[صالح حمادي]

4 ساعات مضت, Shivan Rekany said:

مشاركة مع استاذ صالح

أهلين أخي فين هذا الغياب

[محمدنجار]

21 ساعات مضت, Shivan Rekany said:

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

:: شكرا اخي شيفان ... بارك الله بعمرك .

:: والشكر موصول لاستاذنا الشيخ ابو خليل .

[kaser906]

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

مساهمة مع الاساتذة

يمكننا ايضا ايقاف زر االتالي من الذهاب الى سجل جديد باستخدام هذا الكود

طبعا ف حال انشاء زر أمر وليس عن طريق ازرار تنقل شريط النموذج

Private Sub Next_Click()
 On Error GoTo Err_Next_Click
   
    DoCmd.GoToRecord , , acNext
Exit_Next_Click:
    Exit Sub

Err_Next_Click:
    MsgBox "هذا هو السجل الاخير لايوجد سجل تالي للذهاب إليه "
    Resume Exit_Next_Click

End Sub

 

تم تعديل أغسطس 3, 2018 بواسطه kaser906

[محمدنجار]

11 دقائق مضت, kaser906 said:

يمكننا ايضا ايقاف زر االتالي من الذهاب الى سجل جديد باستخدام هذا الكود

طبعا ف حال انشاء زر أمر وليس عن طريق ازرار تنقل شريط النموذج

 

:: شكرا لك اخ كاسر ... لكن اعتقد ان الرسالة تظهر بعد الذهاب للسجل الجديد وليس قبل الذهاب اليه  ... 

[kaser906]

عذرا اخ محمد نسيت اضافة

AllowAdditions = False

Private Sub Next_Click()
 On Error GoTo Err_Next_Click
   AllowAdditions = False
    DoCmd.GoToRecord , , acNext
Exit_Next_Click:
    Exit Sub

Err_Next_Click:
    MsgBox "وصلت للسجل الأخير لايوجد سجل تالي للذهاب اليه !!!", 48, "تنبيه !"
    Resume Exit_Next_Click

End Sub

 

[محمدنجار]

12 دقائق مضت, kaser906 said:

عذرا اخ محمد نسيت اضافة

AllowAdditions = False

Private Sub Next_Click()
 On Error GoTo Err_Next_Click
   AllowAdditions = False
    DoCmd.GoToRecord , , acNext
Exit_Next_Click:
    Exit Sub

Err_Next_Click:
    MsgBox "وصلت للسجل الأخير لايوجد سجل تالي للذهاب اليه !!!", 48, "تنبيه !"
    Resume Exit_Next_Click

End Sub

 

:: شكرا لك اخي الكريم ... 🙂

[علي جاسم]

الاخ العزيز kaser906

شكرا جزيلا على هذه المعلومة المفيدة

كنت ابحث عنها طويلاً .. شكرا جزيلا مرة اخرى

 

 

دمتم سالمين

[kaser906]

18 دقائق مضت, علي جاسم said:

الاخ العزيز kaser906

شكرا جزيلا على هذه المعلومة المفيدة 

كنت ابحث عنها طويلاً .. شكرا جزيلا مرة اخرى

 

 

دمتم سالمين

على الرحب والسعة أخي الكريم

::بالتوفيق::