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

تغير الرسالة عند الذهاب إلى السجل ما قبل الأول وما بعد الأخير ؟


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

بسم الله


تساؤل صغير حول ان كان بالإمكان من كود لتغير الرسالة عند الرجوع بزر السابق إلى ما قبل السجل الأول أو الزر الأخير عند السجل بعد الاخير

من قاعدة البيانات ؟؟
"لا يوجد سجل" أو "لا يوجد بيانات"

وباستبدال عنوان رسالة آكسس microsoft access بعنوان " نحن ندخل "

مع احترامي وتقديري للجميع

Untitled.jpg

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

حياك الله اخي رضا الله

هذا الكود للسجل الأخير 

On Error Resume Next
Me.Refresh
With Recordset
If .AbsolutePosition = .RecordCount - 1 Then
MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"
Else
DoCmd.GoToRecord , , acNext
End If
End With

هذا الكود للسجل الأول 

On Error Resume Next
Me.Refresh
With Recordset
If .AbsolutePosition = 0 Then
MsgBox "هذا هو السجل الأول ", vbInformation + vbOKOnly, "تنبيه"
Else
DoCmd.GoToRecord , , acPrevious
End If
End With

 

بالتوفيق ان شاء الله 

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

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

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



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

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

Important Information