【发布时间】:2018-01-24 15:49:46
【问题描述】:
我有一个 Microsoft 访问表单,允许用户通过“返回”和“下一步”两个按钮浏览记录。问题是,如果用户在第一条记录上并单击“返回”,则会出现一个非常俗气的错误消息。我怎样才能防止这种情况发生?
差不多了,如果选择的记录是 =1 并且按下后退按钮,则什么也不做。
【问题讨论】:
标签: forms ms-access if-statement record
我有一个 Microsoft 访问表单,允许用户通过“返回”和“下一步”两个按钮浏览记录。问题是,如果用户在第一条记录上并单击“返回”,则会出现一个非常俗气的错误消息。我怎样才能防止这种情况发生?
差不多了,如果选择的记录是 =1 并且按下后退按钮,则什么也不做。
【问题讨论】:
标签: forms ms-access if-statement record
试试这个:
以前的记录:
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
【讨论】: