lordring قام بنشر ديسمبر 13, 2011 مشاركة قام بنشر ديسمبر 13, 2011 السلام عليكم في المرفق التالي عند التنقل والوصول الى السجل الاخير تظهر الرسالة التالية عوضا عن ظهور سجل فارغ .. لكن عند قيامي بعمل تصفية للسجلات والتقل بين ناتج التصفية يظهر لي سجل فارغ بعد السجل الاخير كالتالي كيف السبيل لجعل الحالة تصبح مشابهة للحالة الاولى اي تظهر رسالة تخبرني بانتهاء السجلات عوضا عن سجل فارغ وشكرا رابط هذا التعليق شارك More sharing options...
lordring قام بنشر ديسمبر 13, 2011 الكاتب مشاركة قام بنشر ديسمبر 13, 2011 رابط الملف ام استطع التحميل على المنتدى http://dl.dropbox.com/u/9352509/access/no.rar رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر ديسمبر 13, 2011 مشاركة قام بنشر ديسمبر 13, 2011 اخوي الحل هو من خصائص النموذج اذهب الى تاب Data او بيانات و ضع allow addition من نعم الى لا طبع لا يوجد رساله تنبيه هذا ابسط حل رابط هذا التعليق شارك More sharing options...
lordring قام بنشر ديسمبر 13, 2011 الكاتب مشاركة قام بنشر ديسمبر 13, 2011 اخي الكريم انا لااريد ان اوقف عمليات الاضافة اذ لدي ايكونة لاضافة سجلات وشكرا رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر ديسمبر 13, 2011 مشاركة قام بنشر ديسمبر 13, 2011 اخوي كان طلبك على نموذج تصفيه وليس اضافه الحل هو الالتفاف على نموذج الاكسس بالتالي في زر امر الاضافه ضع الكود التالي مع ابقاء خاصيه allow addition با لا On Error Resume Next Me.AllowAdditions = True DoCmd.GoToRecord , , acNewRec هذا حل مقترح من وجهه نظري وربما هناك حلول اخرى من احد الزملاء ولكن انصح بعدم وضع نموذج واحد يقوم بجميع الوظائف رابط هذا التعليق شارك More sharing options...
lordring قام بنشر ديسمبر 13, 2011 الكاتب مشاركة قام بنشر ديسمبر 13, 2011 شكرا اخي تمت الافادة من الكود التالي On Error GoTo 10 If CurrentRecord < DCount("المعرف", "جدول1") Then Form_نموذج1.AllowAdditions = False DoCmd.GoToRecord , , acNext Else 10 MsgBox "لا يوجد سجل لاحق" Form_نموذج1.AllowAdditions = True End If تحياتي لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان