如何处理错误信息

蓝天8390

在导入Excel时，如果源表字段与导入表的字段名不一致时，系统会出现错误信息，请问如何修改为自己定义的信息，并终止程序．

todaynew

好像不久前版主写过一个比较E和A字段是否相同的代码，你查一下。

蓝天8390

谢谢了,我找找.

Henry D. Sy

1. Private Sub Command8_Click()
   
2.     On Error GoTo Command8_Click_Error
   
3. 
   
4.     If Not (IsNull(Me.路径)) Then
   
5.         DoCmd.TransferSpreadsheet acImport, , "导入表", Me.路径, True, ""
   
6.         MsgBox "已导入到导入表中"
   
7.     End If
   
8. 
   
9.     On Error GoTo 0
   
10.     Exit Sub
    
11. 
    
12. Command8_Click_Error:
    
13.     If Err.Number = 2391 Then
    
14.         MsgBox "蓝天8390,请注意了"
    
15.     Else
    
16.         MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
17.     End If
    
18. End Sub

复制代码

蓝天8390

谢谢版主!也谢谢您在程序中精彩的"提示",哈哈,在程序中出现幽默语句值得提倡。