اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

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

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

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

تم تعديل بواسطه محمدنجار
قام بنشر
2 ساعات مضت, محمدنجار said:

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

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

 

  • Like 1
  • Thanks 2
قام بنشر
21 ساعات مضت, Shivan Rekany said:

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

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

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

قام بنشر (معدل)

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

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

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

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

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

 

تم تعديل بواسطه kaser906
  • Thanks 1
قام بنشر
11 دقائق مضت, 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

 

  • Like 1
قام بنشر
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

 

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

  • Like 1
قام بنشر
18 دقائق مضت, علي جاسم said:

الاخ العزيز kaser906

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

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

 

 

دمتم سالمين

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information