返回列表下一主題上一主題發帖

請問大大要如何將此訊息不要出現呢?或是其他方法

ookook520

小學生 Rank: 1

帖子: 16
主題: 6
精華: 0
積分: 23
點名: 0
作業系統: XP
軟體版本: 20
閱讀權限: 10
性別: 女
註冊時間: 2011-5-27
最後登錄: 2012-6-27

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-12-12 11:35 | 顯示全部帖子

請問大大要如何將此訊息不要出現呢?或是其他方法

本帖最後由 GBKEE 於 2011-12-12 14:46 編輯

請問要如何增寫VB將此訊息不要出現呢?或是其他方法

之前有跟您在舊討論區中詢問擷取網路料問題

因有時網路會特定時間連線.EXCEL得一直開啟要如何將此畫面取消呢?
無法開啟http://......................。無法找到網際網路伺服器或 proxy 伺服器。
然後有個確定紐

不知是否能將此視窗不要出現且能不斷嘗試連線或間隔連線

感謝大大

樓主熱帖

ookook520

小學生 Rank: 1

帖子: 16
主題: 6
精華: 0
積分: 23
點名: 0
作業系統: XP
軟體版本: 20
閱讀權限: 10
性別: 女
註冊時間: 2011-5-27
最後登錄: 2012-6-27

2^#

發表於 2011-12-12 16:21 | 顯示全部帖子

本帖最後由 ookook520 於 2011-12-12 16:36 編輯

感謝大大
還是會出現
錯誤連結的視窗
在下只要將網路斷線後就會跳出此視窗

因該是說一直不斷的嘗試連線縱使那個網站斷線或是我們網路斷線
都在背景一直不斷的嘗試更新資料到恢復正常
然後又一直重複

不曉得是要寫在哪裡
請大大費心

之前您所寫
Private Sub Query_AfterRefresh(ByVal Success As Boolean)
Dim Msg As Boolean, R%, C%
If Not Success Then
      UserForm1.Label1.Caption = "更新失敗 !!"
      GoTo L
End If
For R = 2 To 3
      For C = 2 To AR.Columns.Count
         If Rng(R, C) <> AR(R, C) Then
            Msg = True
            GoTo L
         End If
      Next
Next
L:
Rng = ""
UserForm1.Label1.Caption = "更新成功 !!"
If Not Msg Then UserForm1.Label1.Caption = "更新失敗 !!"
UserForm1.Show 0
'Test
End Sub

TOP

ookook520