Microsoft access记录结束错误“2105”

尝试以下操作:

以前的记录:

If CurrentRecord <> 1 Then DoCmd.GoToRecord , , acPrevious

下一条记录:

If CurrentRecord <> Recordset.RecordCount Then DoCmd.GoToRecord , , acNext

考虑相应地调整错误处理程序:

Private Sub Back_Click()
On Error GoTo ErrHandle
     '...

ExitHandle:
  ' UNINITIALIZE SET OBJECTS
  Exit Sub

ErrHandle:
  If Err.Number = 2105 Then
     DoCmd.GoToRecord , , acFirst
  Else
     MsgBox Err.Number & Err.Description, vbCritical, "RUNTIME ERROR"
  End if
  Resume ExitHandle
End Sub