谁能帮我简化一下代码

Private Sub 确定_Click()

Dim strMsg As String

On Error GoTo Err_xxx_Click
Select Case STR1

Case 1

 If IsNull(Me.账套号) Then MsgBox "请填写账套号": Exit Sub
    strMsg= "建账失败!"
    FileCopy CurrentProject.Path & "\原", Me.路径 & Me.账套号 & ".mdb"

    MsgBox "建账成功!"

Case 2

Dim Stra As String
Dim Strb As String
Stra = DLookup("路径", "账套", "账套号 ='" & Me.选择账套 & "'")
Strb = DLookup("文件名", "账套", "账套号 ='" & Me.选择账套 & "'")

    strMsg= "备份失败!"

 If IsNull(Me.选择账套) Then MsgBox "请选择账套": Exit Sub
 
    FileCopy Stra & Strb, Me.路径 & Me.选择账套 & ".mdb"
  
    MsgBox "备份成功!"
   

Case 3
 If IsNull(Me.账套号) Then MsgBox "请填写账套号": Exit Sub
    strMsg= "导入失败!"
    
    FileCopy Me.路径2, Me.路径 & Me.账套号 & ".mdb"
    MsgBox "导入成功!"
    
 

Case 4

    strMsg= "删除失败!"

Kill "D:\temp\aaa.accdb"
    MsgBox "删除成功"

Case Else
End Select

Exit_xxx_Click:
    Exit Sub
Err_xxx_Click:
    MsgBox strMsg
    Resume Exit_xxx_Click
End Sub

这样做是把出错处理语句放到select语句外面去了，那当然要在操作语句前加一句出错原因（赋值），否则就要根据Err对象的返回值进行判断了。

在出错处理语句中，冒号前面的是标号，也就是转向语句Goto和Resume要转到哪里而已，本身是不影响代码的执行和顺序的。

Resume与Goto的区别是除了转向，还顺便重置了一下Err对象，恢复程序的执行而已。

举例说明一下：

Case 4

'如果有语句执行不了，就转到Err_bbb_Click：后面的语句机型执行，并在Err对象中写入出错及出错原因

On Error GoTo Err_bbb_Click

Kill "D:\temp\aaa.accdb"
    MsgBox "删除成功"
Exit_bbb_Click:

    Exit Sub
'如果没有语句出错，执行到这里，程序就退出结束了，后面的语句就不行执行了。

Err_bbb_Click:
    MsgBox "删除不成功"

'上面是对出错进行提示或处理，后面一句是对出错对象进行重置并转向继续执行（这里是转到程序结束处）

'如果重来不对出错对象进行检查，后面的语句是可以省略的
    Resume Exit_bbb_Click

当然如果要忽略出错，不出提示的话，可以在第一句代码前加一句，其他就不用管了：

On Error Resume Next