Изменить масштаб графика по месяцам в Access

Question

Я использую Access и хочу автоматически менять масштаб графика по месяцам. Шкала должна go от первого до последнего месяца. Например, в январе масштаб равен 1.Jan-31.Jan. Так как в феврале масштаб должен быть автоматически изменен на 1.Feb-28.Feb.

Мой код основан на решении Excel, так что это может быть проблема. В этой строке есть ошибка: ctlAuf.Chart.Axes (xlValue) .MinimumScale = MinChartNumber

Это мой код:

Sub AdjustVerticalAxis() 

Dim ctlAuf As Chart
Dim MinChartNumber As Date
Dim MaxChartNumber As Date

MinChartNumber = DateSerial(Year(Date), Month(Date), 1)
MaxChartNumber = DateSerial(Year(Date), Month(Date), 0)

Set ctlAuf = Me!ctlAuf.Object
    ctlAuf.Chart.Axes(xlValue).MinimumScale = MinChartNumber
    ctlAuf.Chart.Axes(xlValue).MaximumScale = MaxChartNumber
End Sub

Спасибо за любую помощь