MS ACCESS Название диаграммы - PullRequest
Новая
       18

MS ACCESS Название диаграммы

0 голосов
/ 01 апреля 2020

У меня проблема с манипулированием графиком в форме MS ACCESS. Мой код разрывается на строку .ChartTitle.text = "TASK: " & TASK с

Ошибка времени выполнения '1004': невозможно установить свойство ChartTitle.

Однако эта ошибка возникает только в случае закрытия и затем снова откройте форму. Иногда это работает, иногда возникает ошибка. 

If Not IsNull(Me.fldTASK.Column(0)) Then
    With Me.ChartMPD
        .RowSourceType = "Table/Query"
        .RowSource = MaskSQL
        .SetFocus
        .ChartTitle.text = "TASK: " & TASK
        .Axes(xlCategory).HasTitle = True
        .Axes(2).HasTitle = True
        .Axes(xlCategory).AxisTitle.text = x2
        'select Y axis which is not empty
        If Y2 = " " Then
            .Axes(2).AxisTitle.text = Y1
        Else
            .Axes(2).AxisTitle.text = Y2
        End If
    End With

Форма открывается из другой формы, например: 

DoCmd.OpenForm "FormChart"
If CurrentProject.AllForms("TestForm2Graf").IsLoaded = True Then
    If Not IsNull(Me.TASKlist.Column(0)) Then
        Call Form_TestForm2Graf.letTASK(Me.TASKlist.Column(0))
    Else
        Call Form_TestForm2Graf.letTASK("*")
    End If
End If

И Rowsource - это запрос, который выглядит следующим образом: 

SELECT QF2.[Length] ,Format(QF2.[StartPercentage]/100,'percent') AS [StartPercentage] ,Format(QF2.[EndPercentage]/100,'percent') AS [EndPercentage] FROM QF2 WHERE ((QF2.TASK)= '*')  ORDER BY QF2.[Length] ASC;
...