[مساعدة]

تفضلي الكود للسؤال الثاني

كود :

Public Sub changeposition()
   lable.Text = "السجل " & Me.bidingcontext(dataset1, "table1").Position + 1 & " من " & _
   Me.bidingcontext(dataset1, "table1").Count

   If Me.bidingcontext(dataset1, "table1").Position = Me.bidingcontext(dataset1, "table1").Count - 1 Then
       lable.Text = "لا يوجد سجل تالي"
   End If

   If Me.bidingcontext(dataset1, "table1").Position = 0 Then
       lable.Text = "لا يوجد سجل سابق"
   End If

   If Me.bidingcontext(dataset1, "table1").Count = 0 Then
       lable.Text = "لا يوجد سجلات"
   End If

End Sub

---

السؤال الاول لم يتم توضيح كود الحذف المستخدم.

---

تم تصحيح كود changeposition بخصوص ظهور -1