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

大熊

如题：

wangxin1978

为什么？有编译错误？

大熊

没有其它任何提示!

大熊

用的2002格式，兼容ANSI92语法

WTM1

我经常遇见！

可能是代码有问题！！

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

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

大熊

u got it. tks

大熊

晕，有些指令不能在MDE中执行.

大熊

就是下面这一段，怎么办？
    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

这句肯定不能执行，MDE不能设计DoCmd.OpenReport "rptUrge", acViewDesign

大熊

可是我又动态设定recordsource,怎么办呢？