返回列表 上一主題 發帖

(發問)WEB查詢，如何取消跳出的警告視窗

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2011-10-31 23:18 | 顯示全部帖子
回復 1# jewayy
你可以於錯誤發生時將程式導向錯誤處理程序,
於 錯誤處理程序 開頭事先先加上中斷,
再於其中顯示出錯誤代碼,
最後將該代碼的處理程序加入即可.
  Sub Test()  
  On Error GoTo ErrorFix
  exit Sub

ErrorFix:
  MsgBox Err.Number
  MsgBox Err.Description
If Err.Number = 11 Then
.
.
    Err.Clear
  End If
  Resume
End Sub

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題