VBAユーザーフォームが

Question

は私がそれを更新してSQLクエリの結果を追跡するためにリーダーボードとして使用しています単語VBAユーザーフォームを持ってリフレッシュ。 10分ごとにフォームを自動更新する方法はありますか？私はこれを試しました：

Private Sub UserForm_Initialize() 
Dim cnn As New ADODB.Connection 
Dim rst As New ADODB.Recordset 
Dim AgingSQL As String 

cnn.ConnectionString = "DATABASE INFO" 
cnn.Open 

AgingSQL = "SQL QUERY" 
rst.Open AgingSQL, cnn 
rst.MoveFirst 
With UserForm1.AgingLeaderboard -- List Box I am using to display info 
    .Clear 
    Do 
     .AddItem 
     .List(i, 0) = rst![StatusBy] 
     .List(i, 1) = rst![Count] 
     i = i + 1 
     rst.MoveNext 
    Loop Until rst.EOF 
End With 
rst.Close 
**Call Refresh** 
End Sub 

Sub Refresh() 
    Application.OnTime Now + TimeValue("00:00:10"), "UserForm_Initialize" 
End Sub 

しかし、それは何もしていないようです。どんな助けもありがとう！標準、手続き型モジュールによって公開され、公開、パラメータなしの方法 -

Answer 1

あなたはマクロ以外のものを実行するためにApplication.OnTimeを使用することはできません。

UserForm_Initializeはマクロではありません - それは、オブジェクトが、まあ、はを初期化するだけで、これまで一度インスタンスごとに呼び出されUserFormオブジェクト...のInitializeイベントを処理するイベントハンドラ、です。あなたは決してべきではない、これまで明示的にイベントハンドラを呼び出す必要があります。あなた自身がそれをやって見つけた場合、警報ベルが消灯し、大きな巨大な赤い旗が飛ぶ必要があり、何かががひどく間違っ行われています。

UserForm_Initializeにあなたが持っているすべてのものを取り、公共RefreshLeaderboard方法に移動 - あなたはInitializeを処理する必要はありません。

Option Explicit 

Public Sub RefreshLeaderboard() 
    Dim cnn As New ADODB.Connection 
    Dim rst As New ADODB.Recordset 
    Dim AgingSQL As String 

    cnn.ConnectionString = "DATABASE INFO" 
    cnn.Open 

    AgingSQL = "SQL QUERY" 
    rst.Open AgingSQL, cnn 
    rst.MoveFirst 
    With AgingLeaderboard '-- note: was With UserForm1.AgingLeaderBoard 

     .Clear 
     Do 
      .AddItem 
      .List(i, 0) = rst![StatusBy] 
      .List(i, 1) = rst![Count] 
      i = i + 1 
      rst.MoveNext 
     Loop Until rst.EOF 
    End With 
    rst.Close  
End Sub 

今あなたがフォームにアクセスすることができますが、スケジュールすることができますマクロを、必要としますインスタンス。

Option Explicit 
Private leaderboardForm As MyAwesomeForm ' whatever the UserForm class name is 

Public Sub ShowLeaderboard() 
    Set leaderboardForm = New MyAwesomeForm 
    ScheduleNextRefresh 
    leaderboardForm.Show 'vbModal? 
    'Set leaderBoardForm = Nothing '' only if the form was modal and not X'd-out 
End Sub 

Public Sub ScheduleNextRefresh() 
    If Not leaderboardForm Is Nothing Then 
     leaderboardForm.RefreshLeaderboard 
     Application.OnTime Now + TimeValue("00:00:10"), "ScheduleNextRefresh" 
    End If 
End Sub 

あなたは、おそらくそれは、[X]ボタンをクリックしたユーザーによって閉じられ、および/または破壊される処理するために、フォームのコードビハインドでQueryCloseイベントを処理することをお勧めします。