一个简单的问题

liyi8977

下面是"下一个"按钮的代码,想实现不添加新记录,所以加了一个if语句,当记录移出最后一个时,返回最后一条记录.但是EOF属性始终是false,不知为什么?

Private Sub next_Click()
On Error GoTo Err_next_Click


    DoCmd.GoToRecord , , acNext
If Me.Recordset.EOF = True Then
    DoCmd.GoToRecord , , acLast
End If

Exit_next_Click:
    Exit Sub

Err_next_Click:
    MsgBox Err.Description
    Resume Exit_next_Click
End Sub

rjacky

试试：

Private Sub next_Click()
On Error GoTo Err_next_Click


If Me.Recordset.EOF = True Then
    DoCmd.GoToRecord , , acFirst

    DoCmd.GoToRecord , , acLast
else

DoCmd.GoToRecord , , acNext
End If

刚才受到sgrshh29兄台帮助解决了问题，现在正在研究Recordset的使用方法，一知半解，不行别见怪，这里是我刚查到的关于BOF和EOF的资料




BOF 指示当前记录位置位于 Recordset 对象的第一个记录之前。

EOF 指示当前记录位置位于 Recordset 对象的最后一个记录之后。
返回值

BOF 和 EOF 属性返回布尔型值。

说明

使用 BOF 和 EOF 属性可确定 Recordset 对象是否包含记录，或者从一个记录移动到另一个记录时是否超出 Recordset 对象的限制。

如果当前记录位于第一个记录之前，BOF 属性将返回 True (-1)，如果当前记录为第一个记录或位于其后则将返回 False (0)。

如果当前记录位于 Recordset 对象的最后一个记录之后 EOF 属性将返回 True，而当前记录为 Recordset 对象的最后一个记录或位于其前，则将返回 False。

如果 BOF 或 EOF 属性为 True，则没有当前记录。

如果打开没有记录的 Recordset 对象，BOF 和 EOF 属性将设置为 True，而 Recordset 对象的 RecordCount 属性设置为零。打开至少包含一条记录的 Recordset 对象时，第一条记录为当前记录，而 BOF 和 EOF 属性为 False。

如果删除 Recordset 对象中保留的最后记录，BOF 和 EOF 属性将保持 False，直到重新安排当前记录。

[此贴子已经被作者于2007-1-5 18:07:23编辑过]

liyi8977

不行啊,关键是me.recordset.eof总是为false,进不到if语句里去.是不是跟记录集的类型有关系呢

一点通

请上传示例