ابو عبد الله العراقي قام بنشر ديسمبر 21, 2023 مشاركة قام بنشر ديسمبر 21, 2023 السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل الازرار last record و Next Record لو انا دست على زر last Record طبعاً شيء اكيد سوف يقوم النموذج بالذهاب إلى السجل الأخير ولو انا دست على زر Next Record سوف يقوم البرنامج بالذهاب إلى السجل التالي في حالة كون البرنامج موجود على بداية او وسط السجلات ، المشكلة لو ان النموذج كان مفتوح على اخر سجل ودست على زر Next Record سوف يقوم البرنامج بالذهاب على سجل جديد فارغ وهذا طبعا غير مرغوب فيه ، السؤال : كيف اجعل زر Next Record لا يعمل او يظهر رسالة بانه لا يوجد سجل اخر كون البرنامج واقف على اخر سجل ؟ او حتى عند الاستمرار على الضغط زر Next Record من بداية السجلات المفروض يقف هذا الزر Next Record على السجل الأخير ولا ينتقل إلى سجل فارغ ؟ Database1.rar رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر ديسمبر 21, 2023 مشاركة قام بنشر ديسمبر 21, 2023 وعليكم السلام ورحمة الله وبركاته أخي @ابو عبد الله العراقي 🙂 ضع هذا الكود على زر [ التالي ] ليخبرك عندما تصل إلى نهاية السجلات : Private Sub cmdNext_Click() If Me.CurrentRecord < Me.Recordset.RecordCount Then DoCmd.GoToRecord , , acNext Else MsgBox "لقد وصلت إلى نهاية السجلات" End If End Sub وضع هذا الكود على زر [ السابق ] ليخبرك عندما تصل إلى بداية السجلات : Private Sub cmdPrevious_Click() If Me.CurrentRecord > 1 Then DoCmd.GoToRecord , , acPrevious Else MsgBox "لقد وصلت لبداية السجلات" End If End Sub 1 رابط هذا التعليق شارك More sharing options...
ابو عبد الله العراقي قام بنشر ديسمبر 21, 2023 الكاتب مشاركة قام بنشر ديسمبر 21, 2023 (معدل) عاشت ايدك استاذ وجزاك الله خيراً على الحل وعلى انك عرفتني والمستفيد من هذا الموضوع بخصائص السجلات في الـــفجول بيسك تم تعديل ديسمبر 21, 2023 بواسطه ابو عبد الله العراقي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان