将Access VBA中的参数从表单传递到报表

时间:2017-01-19 08:15:30

标签: forms vba parameters report access

我有一个访问数据库,我正在尝试将3个参数从表单传递给报表。 参数是从组合框中获取的整数和从具有DatePicker

的2个文本框中选择的2个日期

表格代码

Private Sub Create_Report_Button_Click()
Dim intFld3 As Variant
intFld3 = (Me.ClientName) & ";" & CDate(Me.StartDate) & ";" & CDate(Me.EndDate)
DoCmd.OpenReport "Client Patrol Period Report", acViewReport, , , acWindowNormal, intFld3
End Sub

报告代码

Private Sub Form_Load()
Dim Args As Variant

If Not IsNull(Me.OpenArgs) Then
Args = Split(Me.OpenArgs, ";")
Me.ClientID = CInt(Args(0))
Me.StartDate.Value = CDate(Args(1))
Me.EndDate.Value = CDate(Args(2))

End Sub

所以我有一个客户ID以及开始和结束日期

当报告打开时(没有表格),它会询问客户ID,然后是开始日期,然后是结束日期

这里的任何建议都会很棒 干杯

0 个答案:

没有答案