[iFayfoy]

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

كود :

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

   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

---

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

كذا يصير احط البوتون داخل جملة الشرط ؟

وبالنسبة للسؤال الاول هو :

الاكسس تكون مرتبطة بقواعد البيانات..
اذا حذفنا واحد من السجلات بواسطة البوتن اللي بالفيجوال..
على طول يطلع بالليبل -1 من -1..

فماالحل ؟!

شوفي ادرجت الاكواد اللي تبغانا نسوي عليها..