زر التالي

[محمدعوض]

 اريد عند الضغظ على زر التالي  ينتقل الى السجل الاخر .

اذا وصل الى اخر سجل  اريد ان لا يفتح سجل جديد .

يعني  اريد ان ينتقل الى اخر سجل  يوجد معلومات اذا كان السجل الاخير غير موجود رقم id

لا يتم الانتقال الى السجل جديد  صوره توضيحيه عن الموضع 

الرجاء المساعدت في حل المشكلة .......

 

[.Azhar]

تضع هذا الكود في زر حدث عند النقر / التالي Next

 With Me.Recordset
      If .AbsolutePosition < .RecordCount - 1 Then
         .MoveNext
      End If
End With

وتضع هذا الكود في حدث عند النقر /  السابق Previous

 With Me.Recordset
      If .AbsolutePosition <> 0 Then
         .MovePrevious
      End If
   End With

واعطيني النتائج

تم تعديل سبتمبر 28, 2014 بواسطه .Azhar

[alzahrani2014]

السلام عليكم 

 

بعد اذنك azhar  

 

م رايك في التالي

 

نضع في حدث قبل الادخال للنموذج الكود التالي ليظهر رسالة بعدم امكانية اضافة سجل سادس

Private Sub Form_BeforeInsert(Cancel As Integer)

If Me.Recordset.RecordCount >= 5 Then
MsgBox "لا يمكنك اضافة اكثر من  5  سجلات ", , "تنبيه بعد الزيادة"
Cancel = True
Me.Undo
End If

End Sub

[محمدعوض]

شكرا اخي  وجزاك الله خيرا اخي شكرا كتير على المجهود

[محمدعوض]

اخي اذا  بدي اعمل زر  الغاء الايضافة  كيف يتم تنفيذ الكود 

يعني اذا الواحد عمل اضافة ورجع  ضغط على زر تراجع لايضيف سجل جديد

[.Azhar]

تابع هذا الموضوع 

http://www.officena.net/ib/index.php?showtopic=55821