系统提示不能创建MDE库，How can solve this problem?

zhengjialon

动态设定recordsource不需要以设计方式打开呀，MDE也可以的。

大熊

能否举个例子！

zhengjialon

文件下载

大熊

打不开你的报表，系统提示如下：
“在为该对象获取打印机信息时出现问题，该对象可能经以被发送到一个不可用的打印机”上。

zhengjialon

不会吧，我这边没问题，一切正常呀，（两个是同一个内容，MDB和MDE）

zhengjialon

可能是打印机设置问题。

大熊

你能否把最重要代码传上来看看。
我有一菜单，其中有三个选项，分别按客户，出版社，书名进行查询，它们是共用一个报表的，因此要求动态改变报表的数据源。不打开报表，进何进行更改？

zhengjialon

Private Sub Report_Open(Cancel As Integer)
    Me.RecordSource = "SELECT 表1.* FROM 表1;"
    Me.产品名称.ControlSource = "产品名称"
End Sub

大熊

不知你有没有看到我前面的一段代码，我需要用户为报表提供参数，再根据参数来设定Select语句。
如果用户选译菜单按客户查询，我会弹出一个对话框要求用户输入查询的客户名，那么这时，报表的数据源就是 Select * from tblPurchaseOrder where Client alike "%用户输户的客户名%"
以此类推，选按出版社查询，报表的数据源就是
Select * from tblPurchaseOrder where press alike "%用户输户的出版社%"
现在我在MDB中是没问题的，因为可直接打开报表的设计状态，可是MDE中就不行，so what I will do？

zhengjialon

那也不需要到设计状态下设置呀（以下MDE通过）：
Private Sub Report_Open(Cancel As Integer)
    KK = InputBox("请输入产品名称")
    Me.RecordSource = "SELECT 表1.* FROM 表1 WHERE 表1.产品名称 ALike '" & KK & "'"
    Me.产品名称.ControlSource = "产品名称"
End Sub