用户自定义类型未定义错误

Question

我收到了以下VBA代码的User Defined Type not Defined错误。

我没有写它，也不知道如何修复它，但我需要使用该文件。这是一个需要用户登录的访问数据库。我甚至无法登录（这是我尝试获得的错误），更不用说导入文件了。

任何人都可以帮忙吗？

Public Sub RefreshPrograms(pXML As MSXML2.DOMDocument) 
    Dim sql As String 

    Dim iNode As MSXML2.IXMLDOMNode 
    Dim tnode As MSXML2.IXMLDOMNode 
    Set iNode = pXML.selectSingleNode("//ProgramUrl") 
    Set tnode = pXML.selectSingleNode("//" & mProgramNameTag) 
    If iNode Is Nothing Then 
     MsgBox "The file you attempted to import is not a valid program list file. You must download the program list file from the ASN RDA Information Server and then import it into the database. If you are trying to import a PoPS assessment XML file, return to the Program Selection window and click 'Import Assessment from XML'.", vbExclamation, "Invalid Program List File" 
    ElseIf tnode Is Nothing Then 
     MsgBox "The file you attempted to import is not a valid " & mName & " program list file. You must download the program list file from the ASN RDA Information Server and then import it into the database. If you are trying to import a PoPS assessment XML file, return to the Program Selection window and click 'Import Assessment from XML'.", vbExclamation, "Invalid Program List File" 
    Else 
     mURL = iNode.Text 
     For Each iNode In pXML.selectNodes("//" & mProgramNameTag) 
      sql = "INSERT INTO TempRemotePrograms (SourceID,RemoteID,Name,ACAT,Organization,PM,PEO) " & _ 
        "Values(" & JoinStrings(True, mID, ReadLongElement(iNode, ID_COLUMN_XML_NAME), ReadStringElement(iNode, "ProgramName"), fACAT.FindByName(ReadStringElement(iNode, "ACAT")).ID, ReadStringElement(iNode, "OrganizationCode"), ReadStringElement(iNode, "PMName"), ReadStringElement(iNode, "PEOName")) & ")" 
      CurrentDb.Execute sql, dbFailOnError 
     Next 
     If DCount("RemoteID", "TempRemotePrograms") > 0 Then 
      ClearDeletedPrograms 
      UpdateProgramInfo 
      InsertNewProgramInfo 
      mLastUpdated = Now() 
      Save 
     End If 
    End If 
    Set iNode = Nothing 
End Sub 

Answer 1

在VBA编辑器，菜单工具 - >参考，激活微软XML，V6.0

的丢失的引用生成编译错误。

如果您需要编辑代码，请查看msxml tag info。