Office中国论坛/Access中国论坛

标题: 系统提示不能创建MDE库，How can solve this problem? [打印本页]

作者: 大熊 时间: 2002-12-6 19:32
标题: 系统提示不能创建MDE库，How can solve this problem?
如题：

作者: wangxin1978 时间: 2002-12-6 19:41
为什么？有编译错误？

作者: 大熊 时间: 2002-12-6 19:43
没有其它任何提示!

作者: 大熊 时间: 2002-12-6 19:47
用的2002格式，兼容ANSI92语法

作者: WTM1 时间: 2002-12-6 19:48
标题: 11
我经常遇见！

可能是代码有问题！！

编译代码後试验一下！或删除不必要的代码！

不然，就请重新编译主窗体！

作者: 大熊 时间: 2002-12-6 19:53
u got it. tks

作者: 大熊 时间: 2002-12-6 19:55
晕，有些指令不能在MDE中执行.

作者: 大熊 时间: 2002-12-6 19:57
就是下面这一段，怎么办？
Dim rpt As Report
Dim strPrm As String '放置输入的查询关键字

'禁止保存提示
DoCmd.SetWarnings False
DoCmd.OpenReport "rptUrge", acViewDesign
Set rpt = Reports!rptUrge
rpt.Visible = False

Select Case pstrKeyWord

Case Is = "Client"
      strPrm = InputBox("请输入客户ID：")
      If strPrm <> "" Then '判断用户是否输入了内容
         '判断是否有相关记录
         If DCount("*", "tblPurchaseOrder", "Client ='" & strPrm & "' And OrderStatus = 'Ordered'") <> 0 Then
            '修改报表数据源
            rpt.RecordSource = "SELECT * FROM tblPurchaseOrder " & _
                                 "WHERE Client ='" & strPrm & "' And OrderStatus = 'Ordered'"
         Else
            MsgBox conErrRecordUnfound, vbOKOnly + vbExclamation, conTitleSuggest
            DoCmd.Close acReport, "rptUrge"
            Exit Function
         End If
      End If
Case Is = "

ress"

作者: zhengjialon 时间: 2002-12-6 20:23
这句肯定不能执行，MDE不能设计DoCmd.OpenReport "rptUrge", acViewDesign

作者: 大熊 时间: 2002-12-6 20:36
可是我又动态设定recordsource,怎么办呢？

作者: zhengjialon 时间: 2002-12-6 20:59
动态设定recordsource不需要以设计方式打开呀，MDE也可以的。

作者: 大熊 时间: 2002-12-6 21:02
能否举个例子！

作者: zhengjialon 时间: 2002-12-6 21:11
标题: 看报表
文件下载

作者: 大熊 时间: 2002-12-6 21:24
打不开你的报表，系统提示如下：
“在为该对象获取打印机信息时出现问题，该对象可能经以被发送到一个不可用的打印机”上。

作者: zhengjialon 时间: 2002-12-6 21:31
不会吧，我这边没问题，一切正常呀，（两个是同一个内容，MDB和MDE）

作者: zhengjialon 时间: 2002-12-6 21:39
可能是打印机设置问题。

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

作者: zhengjialon 时间: 2002-12-6 21:58
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = "SELECT 表1.* FROM 表1;"
Me.产品名称.ControlSource = "产品名称"
End Sub

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

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

作者: 大熊 时间: 2002-12-6 23:48
看来只好这样了。tks,

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