ACCESS FEED: Re: [MS_AccessPros] VBA error in Form button

Senin, 19 Maret 2018

Re: [MS_AccessPros] VBA error in Form button

adding on to Duane's comment:

The library is labeled "Microsoft XML, v6.0"

have an awesome day,
crystal

On 3/19/18 1:19 PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] wrote:

Hi,

Did you set a reference toï¿½ï¿½"REFERENCE MS XML, v6.0"? This is done in the VBA window by select Tools->References and checking the appropriate file.

Regards,

Duane

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of lrheimpel@gmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, March 19, 2018 1:04 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] VBA error in Form button
ï¿½

Hi,

I get an error while running VBA code.ï¿½ I am not a programmer, sort of understand what the code is doing but I am NOT familiar with proper syntax, structure.ï¿½ ï¿½So I am stuck...

I need to import into Access, appending to existing 2 tables, multiple XML's files using an XLS transform file.

I can correctly import XML's one at a time, with XLS file, using Access External Data/New Data Source/From File/XML file, so I do know that part is correct.

XML files are located in one directory, XLS file is located in another directory.

I found some code in a forum that reads XLS, then all XML's and imports them.ï¿½ I copied that code into a click event, for a button on a form.

It gives me an error and I have not figured out how to correct it.ï¿½ ï¿½Appreciate your help in this!

Below are a link to an image showing the error (Compile Error: User Defined Type Not Defined), below that the VBA code I used.

https://drive.google.com/open?id=1f1pzYSxUNMXhXgF3-tP2mtKYkWuAF21A

Dim strFile As String, strPath As String

ï¿½ ï¿½ ' REFERENCE MS XML, v6.0

ï¿½ ï¿½ Dim xslDoc As New MSXML2.DOMDocument60

ï¿½ ï¿½ Dim newDoc As New MSXML2.DOMDocument60

ï¿½ ï¿½ strPath = "C:\users\lrheimpel\Documents\Business Operations Hacienda SAT\XML\"

ï¿½ ï¿½ strFile = Dir(strPath & "*.xml")

ï¿½ ï¿½ ' LOAD XSL ONLY ONCE

ï¿½ ï¿½ xslDoc.Load "C:\users\lrheimpel\Documents\Business Operations Hacienda SAT\XLS\CFDItoAccessV33.xsl"

ï¿½ ï¿½ While strFile <> ""

ï¿½ ï¿½ ï¿½ ï¿½ ' REINITIALIZE DOM OBJECTS

ï¿½ ï¿½ ï¿½ ï¿½ Set xmlDoc = New MSXML2.DOMDocument60

ï¿½ ï¿½ ï¿½ ï¿½ Set newDoc = New MSXML2.DOMDocument60

ï¿½ ï¿½ ï¿½ ï¿½ ' LOAD XML SOURCE

ï¿½ ï¿½ ï¿½ ï¿½ xmlDoc.Load strPath & strFile

ï¿½ ï¿½ ï¿½ ï¿½ ' TRANSFORM SOURCE

ï¿½ ï¿½ ï¿½ ï¿½ xmlDoc.transformNodeToObject xslDoc, newDoc

ï¿½ ï¿½ ï¿½ ï¿½ newDoc.Save "C:\users\lrheimpel\Documents\Business Operations\Hacienda SAT\XML\temp.xml"

ï¿½ ï¿½ ï¿½ ï¿½ ' APPEND TO TABLES

ï¿½ ï¿½ ï¿½ ï¿½ Application.ImportXML "C:\users\lrheimpel\Documents\Business Operations\Hacienda SAT\XML\temp.xml", acAppendData

ï¿½ ï¿½ ï¿½ ï¿½ strFile = Dir()

ï¿½ ï¿½ Wend

ï¿½ ï¿½' RELEASE DOM OBJECTS

ï¿½ ï¿½ Set xmlDoc = Nothing: Set xslDoc = Nothing: Set newDoc = Nothing

ï¿½ ï¿½ï¿½

__._,_.___

Posted by: crystal 8 <strive4peace2008@yahoo.com>

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (3)

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

__,_._,___

ACCESS FEED

Senin, 19 Maret 2018

Re: [MS_AccessPros] VBA error in Form button

Tidak ada komentar:

Posting Komentar