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

[ابو عبدلله]

بسم الله

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

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

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

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

[ابو عبدلله]

للرفع

[ابو عبدلله]

للرفع

[سعيد صواب]

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

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

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

 

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

تم تعديل يناير 4, 2016 بواسطه سعيد صواب

[ابو عبدلله]

بسم الله

والشكر الجزيل أخي سعيد لتجاوبك

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

رضا الله