التنبيه عند الوصول لآخر سجل Next Record and Last Record

[ابو عبد الله العراقي]

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

الأستاذة الافاضل

الازرار last record  و Next Record   لو انا دست على زر last Record  طبعاً شيء اكيد سوف يقوم النموذج بالذهاب إلى السجل الأخير ولو انا دست على زر Next Record  سوف يقوم البرنامج بالذهاب إلى السجل التالي في حالة كون البرنامج موجود على بداية او وسط السجلات ، المشكلة لو ان النموذج كان مفتوح على اخر سجل ودست على زر Next Record  سوف يقوم البرنامج بالذهاب على سجل جديد فارغ وهذا طبعا غير مرغوب فيه ، السؤال  : كيف اجعل زر Next Record  لا يعمل او يظهر رسالة بانه لا يوجد سجل اخر كون البرنامج واقف على اخر سجل ؟ او حتى عند الاستمرار على الضغط زر Next Record   من بداية السجلات المفروض يقف هذا الزر Next Record  على السجل الأخير ولا ينتقل إلى سجل فارغ ؟

 

Database1.rar

[Moosak]

وعليكم السلام ورحمة الله وبركاته أخي @ابو عبد الله العراقي 🙂 

ضع هذا الكود على زر [ التالي ] ليخبرك عندما تصل إلى نهاية السجلات :

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

 

[ابو عبد الله العراقي]

عاشت ايدك استاذ

وجزاك الله خيراً على الحل وعلى انك  عرفتني والمستفيد من هذا الموضوع بخصائص السجلات في الـــفجول بيسك 

تم تعديل ديسمبر 21, 2023 بواسطه ابو عبد الله العراقي