Đang chuẩn bị liên kết để tải về tài liệu:
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. | 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 .