Office中国论坛/Access中国论坛

标题: access 报表VB不能正确读取 [打印本页]

作者: charliemailbox 时间: 2014-9-25 22:10
标题: access 报表VB不能正确读取
我做了报表，里面数据想自动查询，但不能用。
第一次用报表，以前都是用输出到excel，其实access的报表更加有弹性。
那位高手，帮助。

作者: admin 时间: 2014-9-25 22:18
不是很明白你的需求,
报表可以正常打开啊?

作者: charliemailbox 时间: 2014-9-25 22:26
Private Sub Report_Load()
On Error GoTo Err_Report
Debug.Print Me.[Busline1], Me.[Busline2], Me![Busline3], Me![Busline4], Me![Busline5]

Me!Busmonitor1 = DLookup("Busmonitor", "tbl_schoolbus", "tbl_schoolbus.busNo ='" & Me![Busline1] & "'") '"条件字段名 = '" & forms!窗体名!控件名 & "'"
Me.Busmonitor2 = DLookup("Busmonitor", "tbl_schoolbus", "tbl_schoolbus.busNo ='" & Me![Busline2] & "'")
Me.Busmonitor3 = DLookup("Busmonitor", "tbl_schoolbus", "tbl_schoolbus.busNo ='" & Me![Busline3] & "'")
Me.Busmonitor4 = DLookup("Busmonitor", "tbl_schoolbus", "tbl_schoolbus.busNo ='" & Me![Busline4] & "'")
Me.Busmonitor5 = DLookup("Busmonitor", "tbl_schoolbus", "tbl_schoolbus.busNo ='" & Me.[Busline5] & "'")
Exit_Report:
Exit Sub
Err_Report:
MsgBox Err.Description
Resume Exit_Report
End Sub

这个语句读出的是错误的

作者: 站到终点站 时间: 2014-9-26 09:04
我用的2010版的，运行代码也没有错误，朱老师是不是用的2003版？

作者: charliemailbox 时间: 2014-9-26 21:52
已经解决，查询的问题

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)