GBKEE

¦^´_ 1# ms2001
  ¨Ï¥Î QueryTable ª«¥ó ªºAfterRefresh ¨Æ¥ó ¸Õ¸Õ¬Ý

1. Dim MyDee As New Class1
   
2. Sub SetfDee()
   
3.     Set MyDee.QTable = QueryTables(1)
   
4.     'QueryTable ¤@­Ó¥Ñ¥~³¡¸ê®Æ¨Ó·½©Ò¶Ç¦^¤§¸ê®Æºc¦¨ªº¤u§@ªí¡C
   
5. End Sub
   
6. Sub MyDeeRefresh()
   
7.     On Error Resume Next
   
8.     MyDee.QTable.Refresh 0
   
9.     'Me.QueryTables(1).Refresh 0 '¤]¥i¥H
   
10. End Sub

½Æ»s¥N½X

¤U¸ü (52.61 KB)

2010-8-11 11:02

1. Option Explicit
   
2. Public WithEvents QTable As QueryTable
   
3. Private Sub QTable_AfterRefresh(ByVal Success As Boolean)
   
4. MsgBox Success '§P§O ¬O§_ §ó·s¦¨¥\
   
5. End Sub
   
6. Private Sub QTable_BeforeRefresh(Cancel As Boolean)
   
7. 'MsgBox QTable.Name
   
8. End Sub

½Æ»s¥N½X

¤U¸ü (24.41 KB)

2010-8-11 11:05

GBKEE

¦^´_ 3# ms2001
Option Explicit  '¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
Public WithEvents QTable As QueryTable    'WithEvents «Å§i¤@­Ó§t¦³¨Æ¥óªº Application Ãþ«¬ª«¥ó¡C
Private Sub QTable_AfterRefresh(ByVal Success As Boolean)  'Success Success As Boolean   ¦pªG¬d¸ß¦¨¥\§¹¦¨«h¬° True
MsgBox Success '§P§O ¬O§_ §ó·s¦¨¥\   
End Sub

Private Sub QTable_BeforeRefresh(Cancel As Boolean)
'  Cancel   ·í¨Æ¥óµo¥Í®É¬° False¡C¦pªG¸Ó¨Æ¥óµ{§Ç±N¦¹¤Þ¼Æ( Cancel )³]©w¬° True¡A«h¸Óµ{§Çµ²§ô«á±N¤£§ó·s¡C
   'MsgBox QTable.Name
End Sub