محمدنجار قام بنشر أغسطس 2, 2018 قام بنشر أغسطس 2, 2018 (معدل) السلام عليكم ... اخواني الكرام ... :: كيف يمكن ايقاف زر التالي على السجل الاخير ولا يذهب الى السجل الجديد عند الضغط عليه ؟ :: شكري وتقديري للجميع .......................................................... تم تعديل أغسطس 2, 2018 بواسطه محمدنجار
صالح حمادي قام بنشر أغسطس 2, 2018 قام بنشر أغسطس 2, 2018 السلام عليكم جرب هذا المرفق If CurrentRecord < Me.c Then DoCmd.GoToRecord , , acNext End If زر_التنقل.rar 2
Shivan Rekany قام بنشر أغسطس 2, 2018 قام بنشر أغسطس 2, 2018 2 ساعات مضت, محمدنجار said: : كيف يمكن ايقاف زر التالي على السجل الاخير ولا يذهب الى السجل الجديد عند الضغط عليه ؟ مشاركة مع استاذ صالح اليك هذا الرابط به طريقتين 1 2
صالح حمادي قام بنشر أغسطس 2, 2018 قام بنشر أغسطس 2, 2018 4 ساعات مضت, Shivan Rekany said: مشاركة مع استاذ صالح أهلين أخي فين هذا الغياب 1 1
محمدنجار قام بنشر أغسطس 3, 2018 الكاتب قام بنشر أغسطس 3, 2018 21 ساعات مضت, Shivan Rekany said: مشاركة مع استاذ صالح اليك هذا الرابط به طريقتين :: شكرا اخي شيفان ... بارك الله بعمرك . :: والشكر موصول لاستاذنا الشيخ ابو خليل .
kaser906 قام بنشر أغسطس 3, 2018 قام بنشر أغسطس 3, 2018 (معدل) السلام عليكم ورحمة الله وبركاته مساهمة مع الاساتذة يمكننا ايضا ايقاف زر االتالي من الذهاب الى سجل جديد باستخدام هذا الكود طبعا ف حال انشاء زر أمر وليس عن طريق ازرار تنقل شريط النموذج 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 1
محمدنجار قام بنشر أغسطس 3, 2018 الكاتب قام بنشر أغسطس 3, 2018 11 دقائق مضت, kaser906 said: يمكننا ايضا ايقاف زر االتالي من الذهاب الى سجل جديد باستخدام هذا الكود طبعا ف حال انشاء زر أمر وليس عن طريق ازرار تنقل شريط النموذج :: شكرا لك اخ كاسر ... لكن اعتقد ان الرسالة تظهر بعد الذهاب للسجل الجديد وليس قبل الذهاب اليه ...
kaser906 قام بنشر أغسطس 3, 2018 قام بنشر أغسطس 3, 2018 عذرا اخ محمد نسيت اضافة 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 1
محمدنجار قام بنشر أغسطس 3, 2018 الكاتب قام بنشر أغسطس 3, 2018 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 :: شكرا لك اخي الكريم ... 🙂 1
علي جاسم قام بنشر أغسطس 3, 2018 قام بنشر أغسطس 3, 2018 الاخ العزيز kaser906 شكرا جزيلا على هذه المعلومة المفيدة كنت ابحث عنها طويلاً .. شكرا جزيلا مرة اخرى دمتم سالمين
kaser906 قام بنشر أغسطس 3, 2018 قام بنشر أغسطس 3, 2018 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.