用戶自定義類型未定義錯誤

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。