Question

我有一个Microsoft访问表单，允许用户通过两个按钮浏览记录＆＃34;返回＆＃34;和＆＃34;下一个＆＃34;。问题是，如果用户在第一条记录上并点击了＆＃34;返回＆＃34;出现一个非常俗气的错误消息。我怎样才能防止这种情况发生？

非常好，如果选择的记录是= 1并按下后退按钮则不执行任何操作。

Answer 1

试试这个：

以前的记录：

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

下一条记录：

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

Answer 2

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

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

Microsoft访问记录结束错误＆＃39; 2105＆＃39;

2 个答案: