Office中国论坛/Access中国论坛

标题: 在recordset对象被筛选的情况下，怎样正确使用movenext或move方法？请高手看看。 [打印本页]

作者: wuaza 时间: 2006-4-13 20:51
标题: 在recordset对象被筛选的情况下，怎样正确使用movenext或move方法？请高手看看。
我要用到movenext方法在子窗体记录集中移动记录到当前记录的下一条。可是当我在子窗体中应用了筛选操作以后，movenext失灵了，movenext移来移去还是在当前记录上。帮助中有这么一句，不知怎么理解？

“在 Recordset 已被过滤或排序且当前记录的数据已更改的情况下，位置可能也会改变。在这种情况下，MoveNext 方法运行正常，但应注意该位置已从新位置向前移动一个记录，而非原来的位置。”

这样的情况下难道要用me.recordset.move 2 吗？

作者: fan0217 时间: 2006-4-13 23:57
是使用什么方法建立的 Recordset?将你建立记录录集的代码贴出或上传例子.

作者: wuaza 时间: 2006-4-14 00:05
strsql = "SELECT * from y健康证 where 姓名+单位 like '%" & Me.Text0.text & "%'"
Me.合格.Form.RecordSource = strsql
For i = 0 To Forms!y健康证!合格.Form.SelHeight - 1
strwhere = strwhere & "," & Forms!y健康证!合格.Form.id
Forms!y健康证!合格.Form.Recordset.MoveNext
Next
当Me.合格.Form中的记录经过筛选后，上述语句就不正常了，主要是经过movenext以后，Forms!y健康证!合格.Form.id始终停留在一个固定的值上。

作者: fan0217 时间: 2006-4-14 02:18
用DAO的方法试试.

Dim rs As DAO.Recordset

Set rs = Me.Child1.Form.Recordset

If Not rs.EOF Then
rs.MoveNext
End If

作者: LucasLynn 时间: 2006-4-14 02:22

以下是引用wuaza在2006-4-13 16:05:00的发言：
strsql = "SELECT * from y健康证 where 姓名+单位 like '%" & Me.Text0.text & "%'"
Me.合格.Form.RecordSource = strsql
For i = 0 To Forms!y健康证!合格.Form.SelHeight - 1
strwhere = strwhere & "," & Forms!y健康证!合格.Form.id
Forms!y健康证!合格.Form.Recordset.MoveNext
Next
当Me.合格.Form中的记录经过筛选后，上述语句就不正常了，主要是经过movenext以后，Forms!y健康证!合格.Form.id始终停留在一个固定的值上。

方便的话，把整个程序发上来，帮你调试下看看。

作者: sgrshh29 时间: 2006-4-14 02:35
可以用:

me.forms!y健康证!合格.setfocus
docmd.gotorecord , , acnext
代替

Forms!y健康证!合格.Form.Recordset.MoveNext

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)