我有一个名为" ForecastMacro"在Access数据库中需要选择运行的日期。我希望2017年全年都可以运行。在Access中,我创建了一个包含日期[FormDates]的表单。然后在宏的查询中使用指定的表单日期[FDate]来创建预测模型。宏内部有多个查询的标准" ForecastMacro"其中date = [FormDates]![FDate]
我找到了这段代码,但我不确定如何以一种迭代[FormDates]的方式实现它,然后运行" ForecastingMacro"?
Publice Sub LoopOverDateRange()
Const startdate As Date = #1/1/2017#
Const enddate As Date = #12/31/17#
Dim d As Date
Dim i As Integer
i = 1
For d = startdate To enddate
d
i=i++
Next
End Sub
任何帮助都非常感谢!!!!! :)