lordring قام بنشر ديسمبر 13, 2011 قام بنشر ديسمبر 13, 2011 السلام عليكم في المرفق التالي عند التنقل والوصول الى السجل الاخير تظهر الرسالة التالية عوضا عن ظهور سجل فارغ .. لكن عند قيامي بعمل تصفية للسجلات والتقل بين ناتج التصفية يظهر لي سجل فارغ بعد السجل الاخير كالتالي كيف السبيل لجعل الحالة تصبح مشابهة للحالة الاولى اي تظهر رسالة تخبرني بانتهاء السجلات عوضا عن سجل فارغ وشكرا
lordring قام بنشر ديسمبر 13, 2011 الكاتب قام بنشر ديسمبر 13, 2011 رابط الملف ام استطع التحميل على المنتدى http://dl.dropbox.com/u/9352509/access/no.rar
Bluemind قام بنشر ديسمبر 13, 2011 قام بنشر ديسمبر 13, 2011 اخوي الحل هو من خصائص النموذج اذهب الى تاب Data او بيانات و ضع allow addition من نعم الى لا طبع لا يوجد رساله تنبيه هذا ابسط حل
lordring قام بنشر ديسمبر 13, 2011 الكاتب قام بنشر ديسمبر 13, 2011 اخي الكريم انا لااريد ان اوقف عمليات الاضافة اذ لدي ايكونة لاضافة سجلات وشكرا
Bluemind قام بنشر ديسمبر 13, 2011 قام بنشر ديسمبر 13, 2011 اخوي كان طلبك على نموذج تصفيه وليس اضافه الحل هو الالتفاف على نموذج الاكسس بالتالي في زر امر الاضافه ضع الكود التالي مع ابقاء خاصيه allow addition با لا On Error Resume Next Me.AllowAdditions = True DoCmd.GoToRecord , , acNewRec هذا حل مقترح من وجهه نظري وربما هناك حلول اخرى من احد الزملاء ولكن انصح بعدم وضع نموذج واحد يقوم بجميع الوظائف
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 تحياتي لك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.