[求助]动态更改报表数据源的问题

阿丰

我用以下程序来更改报表的数据源，可系统却报出错，出错提示：“您在表达式中输入的报表名称“分班教学计划”拼错，或者引用的报表尚未打开，或并不存在”。其实报表名称没错，请高手帮忙应怎样才能更改数据源。
附程序：
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编辑过]

阿丰

我知道了，程序如下：
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文件中动态更改报表的数据源？

阿丰

谢了，但仍不解，能否给出代码。

eio

在报表打开时识别窗体标记做判断即可更改。