اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

 

Database1.rar

رابط هذا التعليق
شارك

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

  • Moosak changed the title to التنبيه عند الوصول لآخر سجل Next Record and Last Record

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

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

تم تعديل بواسطه ابو عبد الله العراقي
  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information