我先回答第二個問題:
1.設定公用物件
public dbs as database
public rst as recordset
public sumcount as long
public abscount as long
2.在窗體開啟事件中設定發下代碼:
set dbs=currentdb
set rst=dbs.openrecordset("某表或某查詢")
sumcount=rst.recordcount
3.在form的current事件中,輸入:
select case rst.absoluteposition
case 1
me.text0="top"
case sumcount
me.text0="last"
case else
me.text0=rst.absoluteposition & "of" & sumcount
end select