ms2001

帖子: 26
主題: 15
精華: 0
積分: 41
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-7-20
最後登錄: 2019-6-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-8-10 20:56 | 只看該作者

dde斷線問題?

連結dde時，有時連結端當掉了，可是dde還在跑，資料都沒有更新。
想請問如何自動判斷資料沒有在更新，並發出提示，例如三秒內，資料沒有更動，自動提醒。或者有更好的方法?
謝謝~

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-8-11 11:05 | 只看該作者

回復 1# ms2001
使用 QueryTable 物件的AfterRefresh 事件試試看

Dim MyDee As New Class1
Sub SetfDee()
Set MyDee.QTable = QueryTables(1)
'QueryTable 一個由外部資料來源所傳回之資料構成的工作表。
End Sub
Sub MyDeeRefresh()
On Error Resume Next
MyDee.QTable.Refresh 0
'Me.QueryTables(1).Refresh 0 '也可以
End Sub

複製代碼

Option Explicit
Public WithEvents QTable As QueryTable
Private Sub QTable_AfterRefresh(ByVal Success As Boolean)
MsgBox Success '判別是否更新成功
End Sub
Private Sub QTable_BeforeRefresh(Cancel As Boolean)
'MsgBox QTable.Name
End Sub

複製代碼

TOP

ms2001

小學生 Rank: 1

帖子: 26
主題: 15
精華: 0
積分: 41
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-7-20
最後登錄: 2019-6-26

3^#

發表於 2010-8-14 09:15 | 只看該作者

感謝版主的指導，第二段小弟有點看不懂耶，可以幫我注解一下嗎，還有除了dde外，如果是用rtd連結的話也有用嗎?謝謝~

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-8-14 10:35 | 只看該作者

回復 3# ms2001
Option Explicit  '在模組層次中強迫每個在模組裏的變數都必須明確的宣告。
Public WithEvents QTable As QueryTable 'WithEvents 宣告一個含有事件的 Application 類型物件。
Private Sub QTable_AfterRefresh(ByVal Success As Boolean)  'Success Success As Boolean 如果查詢成功完成則為 True
MsgBox Success '判別是否更新成功
End Sub

Private Sub QTable_BeforeRefresh(Cancel As Boolean)
'  Cancel   當事件發生時為 False。如果該事件程序將此引數( Cancel )設定為 True，則該程序結束後將不更新。
'MsgBox QTable.Name
End Sub

TOP

blue2263

中學生 Rank: 2

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

5^#

發表於 2019-3-23 07:50 | 只看該作者

G大您好
我執行Set MyDee.QTable = QueryTables(1) 此段程式碼會出現錯誤,請教如何解決

TOP