我有一个访问数据库,我正在尝试将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,然后是开始日期,然后是结束日期
这里的任何建议都会很棒 干杯