如何判断当前记录是首记录？

haixing

Private Sub 上一记录_Click()
On Error GoTo Err_上一记录_Click

    DoCmd.GoToRecord , , acPrevious

Exit_上一记录_Click:
    Exit Sub

Err_上一记录_Click:
    MsgBox Err.Description
    Resume Exit_上一记录_Click
   
End Sub
[B]如果当前记录是首记录，上述代码会出错[/B]
能否将他改成:

if 当前记录=首记录 then    [B] '这一句如何写？[/B]
    上一记录.Enabled = False
end if

[B]请问，如何判断当前记录是首记录呢？[/B]

zhengjialon

首先设记录集RS=当前窗体的记录集。
用RS.EOF
尾记录是rs.bof

ysf

me.Recordset.AbsolutePosition = 0  '第一条记录
me.Recordset.AbsolutePosition = me.Recordset.RecordCount -1    '最后一条记录
me.Recordset.AbsolutePosition=-1  '第一条记录前 me.Recordset.bof=true
me.Recordset.AbsolutePosition=me.Recordset.RecordCount    '最后一条记录后 me.Recordset.eof=true
me.Recordset.AbsolutePosition=n    '第n+1条记录

竹笛

去掉这一句就可以了：
MsgBox Err.Description

haixing

谢谢各位的指导！