VB錯誤捕獲

Question

我的代碼如下

conDB.Execute strSQL, recordsAffected 
     Sheet1.Cells(intStart, 5) = IIf(recordsAffected > 0, "Success", "Failure") 

印刷故障的Intread我想打印錯誤描述。我試過

Sheet1.Cells(intStart, 5) = IIf(recordsAffected > 0, "Success", Err.Des) 

但它不起作用。有任何想法嗎？

Answer 1

Err對象只有在發生錯誤後纔有值。所以試試這個

Sub MySub(strSQL as string) 
    On error goto CATCH 
    conDB.Execute strSQL, recordsAffected 
    Sheet1.Cells(intStart, 5) = IIf(recordsAffected > 0, "Success", "Hmm ?") 
exit sub 
CATCH: 
    Sheet1.Cells(intStart, 5) = Err.Description 
    on error goto 0 
end sub