If Forms("应收账款").Opened Then
dr("一年以内") = dt.Compute("Sum(应收账款)","[公司名称] = '" & dr("公司名称") & "'and [开piao日期] >= #" & Forms("应收账款").Controls("StartDate").Value & "# And [开piao日期] <= #" & Forms("应收账款").Controls("EndDate").Value & "#")
End If
窗口必须打开。