名称与存在的模块工程或对象冲突

yanwei82123300

请老师给看看附件中的例子,提示:名称与存在的模块工程或对象冲突
修改了引用还是不行,不知什么原因?
同时这个例子请帮助修改一下代码使用ADO，来设计，感谢
Dim rs As ADODB.记录集
rs = New ADODB。Recordset
代码如下

Private Sub GetPONo_Click()
Dim Criteria As String, mydb As Database, myset As Recordset
Dim Value As Long, Counterstr As String
If IsNull(Me.PO_No) Or Me.PO_No <= " " Then
    Criteria = "ID = 1"
    Set mydb = DBEngine.Workspaces(0).Databases(0)
    Set myset = mydb.OpenRecordset("POCounter_Remote", dbOpenDynaset)
    myset.FindFirst Criteria
    If Not myset.NoMatch Then
        Me.PO_No = myset![Last_Counter]
        Value = Val(myset![Last_Counter]) + 1
        Counterstr = Right$(Trim$("00000000" + Trim$(Str(Value))), 8)
        myset.Edit
        myset![Last_Counter] = Counterstr
        myset.Update
        Me.PO_Date = Date
    Else
        MsgBox "Your PO Counter Table was empty, please contact IMM"
    End If
    myset.Close
Else
    MsgBox "Sorry You must clear PO No before Continue"
    Exit Sub
End If
End Sub

roych

myset As Recordset

改为：myset As DAO.Recordset再试试。
有ADO和DAO时，recorset之类，应该注明是ADO还是DAO，如果不注明，请设置好引用的有限顺序。如果ADO优先于DAO，这一行显然就有问题了：
Set myset = mydb.OpenRecordset("POCounter_Remote", dbOpenDynaset)

yanwei82123300

roych老师我按照您提示的方法改了还是不行,您给看看改一下,这个代码还是2002年的一个老例子,谢谢了

yanwei82123300

roych 发表于 2023-4-1 15:09
改为：myset As DAO.Recordset再试试。
有ADO和DAO时，recorset之类，应该注明是ADO还是DAO，如果不注明 ...

老师我找到问题的原因了向您说的一样,DAO或者ADO一定要注明:
mydb As DAO.Database, myset As DAO.Recordset
还有您看看这个例子如何修改成ADO来使用呢?谢谢了

roych

多搜搜帖子，别太懒，搜下ADO应该能找到一些例子。
关于ADO的使用，我写过一个系列：
http://www.office-cn.net/thread-119066-1-1.html

yanwei82123300

roych谢谢老师的提示,我这个菜鸟真是苯呀

xxk8077

历害