学生信息系统优化——查询记录循环

        在优化学生信息系统时大家都会遇到这样一个问题，在查新记录的时候点击上一条（或下一条）时当记录移到最前（或最后）后再次点击就会移动到最后（或最前），这样的话设置上一条、下一条两个控件也就没多大意义了，所以为了更好的用户体验，将控件设置成移动记录到首、尾后不再移动会更好。

通过我几种方法的探索，找到了一个非常简单的方法：

源代码：

Private Sub nextCommand_Click()
    mrc.MoveNext
    If mrc.EOF Then
        mrc.MoveFirst        '待修改位置
    End If
    Call viewData
End Sub

优化后：

Private Sub cmdnext_Click()
    mrc.MoveNext
    If mrc.EOF Then  
  
        'cmdnext.Enabled = False 
       
        mrc.MovePrevious               ’优化位置
        MsgBox "????????????????????????", vbOKOnly + vbExclamation, "???"

        'cmdnext.Enabled = True
        'cmdprevious.Enabled = True
        
    End If
    Call viewdata
end sub

让 记录到最后 后不移到第一条，而是向上移。经过测试没有遇到漏掉一条记录的问题，运行也很正常，现在忘了前移和移至第一条的代码逻辑关系，希望大家指点不足之处。