[5分]这样的错误处理语句有什么用，谢谢

我明白错误语句意思，但我觉得写与不写，没区别，请教

罗斯文，供应商窗体里代码

Private Sub 回顾产品_Click()
' 这段代码一部分由“命令按钮向导”生成
On Error GoTo Err_ReviewProducts_Click

    Dim strMsg As String, strTitle As String
    Dim intStyle As Integer
    Dim strDocName As String, strLinkCriteria As String

    ' 如果“公司名称”控件为空，显示一条消息。
    If IsNull(Me![公司名称]) Then
        strMsg = "移到您想看的产品的供应商记录，然后再按""回顾产品""按钮。"
        intStyle = vbOKOnly
        strTitle = "选择供应商"
        MsgBox strMsg, intStyle, strTitle
        Me![公司名称].SetFocus
    Else
    ' 否则，打开“产品列表”窗体，显示当前供应商的产品。
        strDocName = "产品列表"
        strLinkCriteria = "[供应商ID] = Forms![供应商]![供应商ID]"
        DoCmd.OpenForm strDocName, , , strLinkCriteria
        DoCmd.MoveSize (1440 * 1.8), (1440 * 1.8), 8000, 6000
    End If
   
Exit_ReviewProducts_Click:
    Exit Sub
   
Err_ReviewProducts_Click:
    MsgBox Err.Description
    Resume Exit_ReviewProducts_Click
   
End Sub