继续得到错误2467，对象（子窗体）不存在或不存在。从dao转到ado之后 [英] keep getting error 2467 that the object(subform) doesn't exist or not created. After copnverting from dao to ado

问题描述

我正在将一段代码从访问2007转换为2016年。 它使用ado而不是dao并连接到sql数据库

I am converting a piece of code from access 2007 to 2016.  It is using ado instead of dao and connecting to a sql database

我一直收到运行时错误2467，找不到sub。 随附的是代码。 请帮忙。 

I keep getting a runtime error that is 2467 that the sub for is not found.  Attached is the code.  Please help. 

mysql =" SELECT Distinctrow Orders。* from Orders left join Master on（Orders.Suffix = Master.Suffix）AND（Orders.Order = Master.Order）AND（Orders.Year = Master.Year）WHERE Orders.Order<> 0和"

    mycriteria =""

mysql = "SELECT Distinctrow Orders.* from Orders left join Master on (Orders.Suffix = Master.Suffix) AND (Orders.Order = Master.Order) AND (Orders.Year = Master.Year) WHERE Orders.Order <> 0 and "
    mycriteria = ""

 如果mycriteria =""然后

        mycriteria ="真实的"

   结束如果

  If mycriteria = "" Then
        mycriteria = " True"
    End If

    "&NBSP;创建SELECT语句。

    MyRecordSource = mysql + mycriteria +"按订单排序。[年份]" &安培; SORT_ORDER& "，Orders。[Order]" &安培; SORT_ORDER& "，Orders。[Suffix]" &安培; SORT_ORDER

    "&NBSP;设置查找子表单的RecordSource属性。

   我！[查找订单子表单] .Form.RecordSource = MyRecordSource

    '  Create SELECT statement.
    MyRecordSource = mysql + mycriteria + " order by Orders.[Year] " & SORT_ORDER & ", Orders.[Order] " & SORT_ORDER & ", Orders.[Suffix] " & SORT_ORDER
    '  Set RecordSource property of Find Subform.
    Me![Find Orders Subform].Form.RecordSource = MyRecordSource

    "&NBSP;如果没有符合条件的记录，请显示消息。

    "&NBSP;将焦点移至"清除"按钮。

   如果我！[查找订单子表单] .Form.RecordsetClone.RecordCount = 0然后

       如果我！[寻找客户]<> "〜"然后MsgBox"没有记录符合您输入的条件。"，48，"未找到记录"和"
       我！Clear.Visible = True

       我！Clear.SetFocus

   否则

       

        "&NBSP;将插入点移至"查找地址子表单"。

       我！[查找订单子表单] .Visible = True

       我！[查找订单子表单] .SetFocus

   结束如果

    '  If no records match criteria, display message.
    '  Move focus to Clear button.
    If Me![Find Orders Subform].Form.RecordsetClone.RecordCount = 0 Then
        If Me![Look for Customer] <> "~" Then MsgBox "No records match the criteria you entered.", 48, "No Records Found"
        Me!Clear.Visible = True
        Me!Clear.SetFocus
    Else
       
        '  Move insertion point to Find Address Subform.
        Me![Find Orders Subform].Visible = True
        Me![Find Orders Subform].SetFocus
    End If

推荐答案

哪一行突出显示？我在代码中看不到任何对ADO的引用。

Which line is getting highlighted? I don't see any reference to ADO in the code.

这篇关于继续得到错误2467，对象（子窗体）不存在或不存在。从dao转到ado之后的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！