منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشكلة في زر التالي و السابق
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
أرجو المساعدة في البرنامج
عند الضغط علي زر التالي يعمل بشكل طبيعي و عند الضغط علي زر السابق و الوصول لاخر مستند يعطيني رسالة Bug و End
و أنا بصراحة نسيت الكود اللي يخليه ميطلعش الرسالة دي
بسيطه ان شاء الله
شوف الكود
كود :
On Error Resume Next
DoCmd.GoToRecord , , acPrevious
If Err.Number = 2105 Then
   MsgBox "لا يمكن الانتقال إلى السجل السابق، أنت في البداية"
End If
On Error GoTo 0

او

كود :
If Not Me.Recordset.BOF Then
   DoCmd.GoToRecord , , acPrevious
Else
   MsgBox "أنت بالفعل في السجل الأول"
End If