كود الذهاب الى آخر صفحة بالنموذج

[Ahmed_J]

السلام عليكم

لدي ملف لاحد الاخوة الاعزاء بالموقع

يظهر بالنموذج كل 10 سجلات معا 

المطلوب : كود للذهاب الى آخر صفحة بالنموذج  وكود للرجوع لاول صفحة بالنموذج (تم وضع الزرين بالنموذج فارغين من الاكواد)

وشكرا لكم

 

عدد السجلات في النموذج =10.mdb

[ابوخليل]

عليكم السلام

Private Sub endpage_Click()
strSql = "SELECT * FROM tblData WHERE tblData.ID > ( (select COUNT(*) from tblData) - 10)"
 Me.RecordSource = strSql
End Sub

Private Sub firstpage_Click()
strSql = "SELECT TOP 10 tblData.ID, tblData.[NO], tblData.Locatin, tblData.SecName, tblData.DepName, tblData.RegDate FROM tblData WHERE (((tblData.ID)>=1))"
 Me.RecordSource = strSql
End Sub

 

السجلات في النموذج .mdb

[Ahmed_J]

السلام عليكم استاذنا الكبير @ابوخليل

بارك الله فيك وشكرا جزيلا