访问表单上的图表

时间:2009-11-26 12:11:46

标签: ms-access vba graph

我现在有一些代码可以根据访问表单上一系列文本框的值绘制图表。

我对代码及其工作方式感到满意,但我不相信这是最有效的方法。每次重绘时,图表大约需要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

感谢您的帮助

1 个答案:

答案 0 :(得分:2)

您是否可以将值添加到表格和图表中?