アクセスフォーム上のグラフ

Question

現時点では、アクセスフォーム上の一連のテキストボックスの値に基づいてグラフを描画するコードがあります。

私はコードとその動作に満足していますが、これが最も効率的な方法であるとは確信していません。グラフは毎回再描画するのに約1.2秒かかります。フォームはバインドされていないため、テキストボックスから値を取得するだけです。確認するために、ループしてテキストボックスの値をdebug.printにダンプしましたが、すぐに実行されたので、それはできません。

各値が追加された後にグラフを再描画しようとしていると思われます。 VBAでこれを行う簡単な方法はありますか？それとも私はそれで立ち往生していますか？

'**************************
        '** Draw the Call Deviation graph **
        '**************************
        .cells(1, 1) = "Start Time"
        .cells(1, 2) = "Deviation"
        lRT_actual = 0
        lRT_forecast = 0
        For i = 1 To 48
            lRT_actual = lRT_actual + Me.Controls("txtActual_" & i)
            lRT_forecast = lRT_forecast + Me.Controls("txtForecast_" & i)
            .cells(i + 1, 1) = Format(DateAdd("n", (i - 1) * 15, "08:00:00"), "HHMM")

            .cells(i + 1, 2) = lRT_actual - lRT_forecast

            If Me.acxProgress_bar.Value + 2 < 100 Then
                Me.acxProgress_bar.Value = Me.acxProgress_bar.Value + 2
            Else
                Me.acxProgress_bar.Value = 90
            End If
        Next i

ご協力ありがとうございます

Answer 1

値をテーブルとグラフに追加することは可能ですか？