عليكم السلام
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