Thuộc tính AbsolutePosition

Chia sẻ: Nguyễn Phương Hà Linh Linh | Ngày: | Loại File: PDF | Số trang:2

Thêm vào BST

Báo xấu

47
lượt xem 4
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Thuộc tính AbsolutePosition

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