1) Thuộc tính AbsolutePosition Thuộc tính này trả về một số nguyên nói lên vị trí của mẫu tin hiện tại, bắt đầu từ 0 đến N-1 với N là tổng số mẫu tin có trong bộ mẫu tin. Trong trường hợp khi bộ mẫu tin không có mẫu tin nào thì thuộc tính này sẽ trả về -1. Thí dụ : In ra thứ tự các mẫu tin trong bảng sinh viên trên tổng số các mẫu tin. Sub FindPosition() Dim db as database Dim rstsv as Recordset Dim cMsg as string Set db = Currentdb() Set rstsv = db.OpenRecordset(“sinhvien”,dbOpenDynaset) Rstsv.movelast Rstsv.movefirst Do while Not rstsv.EOF Cmsg = rstsv.AbsolutePosition+1_ &”record:”&rstsv.RecordCount &chr(13) & “tiep tuc nua hay khong?” If MsgBox(cmsg, vbyesno+vbquestion) = vbNo Then Exit Do Rstsv.MoveNext Loop End Sub . 1) Thuộc tính AbsolutePosition Thuộc tính này trả về một số nguyên nói lên vị trí của mẫu tin hiện tại, bắt đầu từ. tổng số mẫu tin có trong bộ mẫu tin. Trong trường hợp khi bộ mẫu tin không có mẫu tin nào thì thuộc tính này sẽ trả về -1. Thí dụ : In ra thứ tự các mẫu tin trong bảng sinh viên trên tổng số. db.OpenRecordset(“sinhvien”,dbOpenDynaset) Rstsv.movelast Rstsv.movefirst Do while Not rstsv.EOF Cmsg = rstsv .AbsolutePosition+ 1_ &”record:”&rstsv.RecordCount &chr(13) & “tiep tuc nua hay