Code:
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
its giving me error user- defined type not defined, then highlight
Code:
objDom As MSXML2.DOMDocument60