Nice work Chrome!!

__________________
Stix
.......Giddy Up..... !!

I will post my current sheet in a short a time with instructions.

l'll be looking at that site some time tonight...just hope its easy to understand...for this old greyhair..took me months to get the excel talking but boy ..am pleased with the it..next challenge to make it talk to the form guide...

Hi Chrome Prince.....well l went o.k with the example writing every thing in it ...then took me a long while to do that button..which l found in the Devloper....manage to put the button on and then it all went pear shape....could you please email me a copy..for l spent hours trying to make it go pass the button stage no luck.....e-mail is blkscoutm606768@yahoo.com.au be much appreciate if you could..Thanking you M60

I'm getting a system error

System error -216697210

is the data still viable

Sub LoadRaceField()
Dim xmldoc As MSXML2.DOMDocument
Set xmldoc = New MSXML2.DOMDocument
xmldoc.async = False
xmldoc.Load ("http://tatts.com/pagedata/racing/2010/6/28/VR6.xml")
If (xmldoc.parseError.ErrorCode <> 0) Then
MsgBox ("An error has occurred: " & xmldoc.parseError.reason)
Else
Set runnerList = xmldoc.SelectNodes("//Runner")
Sheet1.Cells.Clear
For i = 0 To (runnerList.Length - 1)
Set runner = runnerList.Item(i)
Set runnerNumber = runner.Attributes.getNamedItem("RunnerNo")
Set runnerName = runner.Attributes.getNamedItem("RunnerName")
Set runnerWeight = runner.Attributes.getNamedItem("Weight")
Set riderName = runner.Attributes.getNamedItem("Rider")
If Not runnerNumber Is Nothing Then
Sheet1.Cells(i + 1, 1) = runnerNumber.Text
End If
If Not runnerName Is Nothing Then
Sheet1.Cells(i + 1, 2) = runnerName.Text
End If
If Not runnerWeight Is Nothing Then
Sheet1.Cells(i + 1, 3) = runnerWeight.Text
End If
If Not riderName Is Nothing Then
Sheet1.Cells(i + 1, 4) = riderName.Text
End If
Next
End If
End Sub

__________________
Stix
.......Giddy Up..... !!

thanks for quick reply but need something in the KISS principle ...M60 hope Shaun see it...

G'day Brosco

That's a kind offer of yours.

Just as a matter of interest, what db are you using, and what language are you writing in?

Cheers

I will take a look at that stuff on Unitab as i would say it is similar to what i have on my sheet, easy to put together.

Hi Shaun,

I'm trying to get your sheet to work but it keeps coming up 'Invalid Meeting'. I've changed the macros as you said to do, reading your instructions I can't see any dropdown boxes you refer to, maybe I am doing something wrong.

Cheers,

Mat.

Hmm... same problem here