使用vba转到下一个元素记录集Access 2010

我需要你的帮助。我用一个查询过滤了一个记录集，并在其中循环以填充一个列表框。 然后我想单击next，下一个具有特定值的项目应该与文本框一起显示，但我收到一条错误消息，绝对位置为-1

这是我的密码：

Private Sub btnNextRecord_Click()
    Debug.Print "Move Next: " & m_rst.AbsolutePosition
    Do While Not m_rst.EOF
        m_rst.MoveNext
        Me.txtfield = m_rst("Value")
    Loop
End Sub

但它不起作用

请提前致以问候和感谢

---

Matthias

您得到了哪种错误代码？哪一行突出显示？另外：代码中未定义变量m_rst。要么它是全局的（是吗？），要么你没有定义它。m_rst是全局的，它不会跳入循环。。我不知道为什么会出现运行时错误“-2147352567（80020009）”：您输入的值对此字段无效。哪一行代码导致该错误？还要添加打开记录集的代码。您会得到哪一个错误代码？哪一行突出显示？另外：代码中未定义变量m_rst。要么它是全局的（是吗？），要么你没有定义它。m_rst是全局的，它不会跳入循环。。我不知道为什么会出现运行时错误“-2147352567（80020009）”：您输入的值对此字段无效哪行代码导致该错误？还要添加打开记录集的代码。