Help to make Mdb code work on accdb database

[Obakeng1168]

Option Compare Database
 
Private Sub Form_Load()
    For i = 0 To CurrentDb.TableDefs.Count - 1
        If InStr(CurrentDb.TableDefs(i).Name, "MSys") = 0 Then
            cmbTable.AddItem (CurrentDb.TableDefs(i).Name)
        End If
     Next
End Sub
 
Private Sub xmlBtn_Click()
On Error GoTo Err_xmlBtn_Click
    Create_XML (cmbTable.Column(0))
 
Exit_xmlBtn_Click:
    Exit Sub
 
Err_xmlBtn_Click:
    MsgBox Err.Description
    Resume Exit_xmlBtn_Click
 
End Sub
Private Sub Create_XML(tableName)
 
    Dim Rs As Recordset
 
    Set Rs = CurrentDb.OpenRecordset("SELECT * FROM " & tableName, dbOpenSnapshot)
    If Rs.RecordCount > 0 Then
        Rs.MoveFirst
 
    Dim objDom As MSXML2.DOMDocument60
    Dim objRootElem As IXMLDOMElement
    Dim objMemberElem As IXMLDOMElement
    Dim objMemberName As IXMLDOMElement
 
 
 
 
 
    Set objDom = New MSXML2.DOMDocument60
 
    Set objRootElem = objDom.createElement(tableName)
    objDom.appendChild objRootElem
 
    Do While Not Rs.EOF
        Set objMemberElem = objDom.createElement("Claim")
        objRootElem.appendChild objMemberElem
 
 
        For i = 0 To Rs.Fields.Count - 1
            Set objMemberName = objDom.createElement(Rs.Fields(i).Name)
            objMemberElem.appendChild objMemberName
            objMemberName.Text = Rs.Fields(i).Value
            objMemberElem.appendChild objDom.createTextNode(vbCrLf)
        Next
    Rs.MoveNext
    Loop
 
    Rs.Close
   ' Saves XML data to disk.
   objDom.Save (CurrentProject.Path & "\" & tableName & ".xml")
   MsgBox "Table exported sucessfully."
   End If
End Sub
 

Please assist me to make this code work in access 2013 its giving me error user- defined type not defined. its from mdb, and also to be able to add related tables as child to main table.

Regards

[twinnyfo]

O bake get,

Your code should work in newer versions of 2013. However, if you are receiving a User-defined error, it is mostl likely that you have not declared a reference in your VBA: Tools | References.

I can’t tell you which reference you need because you haven’t told us which line of your code produces the error (hint: that’s just a good practice on this forum, to tell us which line produces an error). It’s difficult for us to move beyond without that information.

As a side note, the second line of all of your Modules should be Option Explicit, which forces you to declare all your variables. If this line was present, and you tried compiling/debugging your code, the error-producing line would be highlighted for you.

[Obakeng1168]

Thank you for your prompt reply, This is the line that is highlighted as error

Dim objDom As MSXML2.DOMDocument60

Regards

[twinnyfo]

Yes - this just confirms my suspicion that you are missing a reference. I can't tell you which reference you need because I don't use XML. But, that same reference will be in your old DB, based upon my description in the previous post. Just make sure you have the same references in both DBs.