Vba Access:无法移动到下一条代码为的记录

找到了答案。我根据表单中显示的当前记录编写了查询，然后不需要循环，每次单击“下一步”，它都会从数据库中获取下一个值，并将其发布到文本框中。

您到底需要什么？发布代码不足以猜测您的问题所在。我有一个表作者->我创建了一个表单作者->在这个表单中我有导航按钮，其中一个按钮是Next-导航到下一条记录。我编写这段代码是为了将它移动到下一条记录，但它直接移动到上一条记录之前的一条记录，然后停止，不再继续。您的代码加载记录集，然后立即遍历到最后一条记录。您没有根据用户操作在活动记录中移动。那么应该如何移动？？

Private Sub btn_Next_Click()
'Creating Connection to database
Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "SELECT * FROM Tbl_Author"
Set rs = CurrentDb.OpenRecordset(strSQL)

    If Not rs.BOF And Not rs.EOF Then
        While (Not rs.EOF)
            Me.txtID = rs.Fields("Author_id")
            Me.txtFName = rs.Fields("AFirst_Name")
            Me.txtLName = rs.Fields("ALast_Name")
            Me.txtAddress = rs.Fields("Address")
            Me.txtEAddress = rs.Fields("Email_Address")
            Me.txtMNum = rs.Fields("Mobile_Number")
            Me.txtPNum = rs.Fields("Phone_Number")
            Me.cmbStatus = rs.Fields("Status")
            rs.MoveNext
        Wend
    End If
    rs.Close
End Sub