Office中国论坛/Access中国论坛

标题: [求助]动态更改报表数据源的问题 [打印本页]

作者: 阿丰 时间: 2003-11-27 02:30
标题: [求助]动态更改报表数据源的问题
我用以下程序来更改报表的数据源，可系统却报出错，出错提示：“您在表达式中输入的报表名称“分班教学计划”拼错，或者引用的报表尚未打开，或并不存在”。其实报表名称没错，请高手帮忙应怎样才能更改数据源。
附程序：
Private Sub 报表_Click()
On Error GoTo Err_报表_Click

Reports!分班教学计划.RecordSource = "教学计划查询无参数"
Reports!分班教学计划.Filter = "学期 like '*" & [学年度] & "*' And 班级 Like '*" & [班级号] & "*' "
Reports!分班教学计划.FilterOn = True
DoCmd.OpenReport "分班教学计划", acViewPreview
Exit_报表_Click:
Exit Sub

Err_报表_Click:
MsgBox Err.Description
Resume Exit_报表_Click
End Sub

[此贴子已经被作者于2003-11-26 18:32:24编辑过]

作者: eio 时间: 2003-11-27 02:31
在报表打开时识别窗体标记做判断即可更改。

作者: 阿丰 时间: 2003-11-27 02:35
谢了，但仍不解，能否给出代码。

作者: 阿丰 时间: 2003-11-27 03:45
我知道了，程序如下：
Private Sub 报表_Click()
On Error GoTo Err_报表_Click
  DoCmd.Echo False
DoCmd.OpenReport "分班教学计划", acViewDesign
With Reports("分班教学计划")
      .Visible = False
      .RecordSource = "教学计划查询无参数"
      .Filter = "学期 like '*" & [学年度] & "*'  And 班级 Like '*" & [班级号] & "*' "
      .FilterOn = True
End With
  DoCmd.Close acReport, "分班教学计划", acSaveYes
  DoCmd.Echo True
  DoCmd.OpenReport "分班教学计划", acViewPreview

Exit_报表_Click:
Exit Sub

Err_报表_Click:
MsgBox Err.Description
Resume Exit_报表_Click
End Sub

但是生成MDE文件后便不能用了，谁有办法在MDE文件中动态更改报表的数据源？

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