xmlnode代码不起作用-访问vba

Question

我正在使用Access 2010，并试图反转地理代码。我想指定一个横向位置，然后将结果显示在列表框中。我有一个表单，有一个列表框和一个命令按钮。命令按钮有以下onclick事件：（我有X出我的lat\long地址：-）

Dim XMLDoc As New DOMDocument
Dim XMLNode As IXMLDOMNode
Dim i As Long
Dim lat As Double, lng As Double

XMLDoc.Load "http://maps.googleapis.com/maps/api/geocode/xml?latlng=XX.XX,-X.XX&sensor=false"

Do Until XMLDoc.ReadyState = 4
DoEvents
Loop
If Len(XMLDoc.Text) = 0 Then
    Call MsgBox("No data!")
    Exit Sub
End If
Set XMLNode = XMLDoc.selectSingleNode("/GeocodeResponse/result/formatted_address")
For i = 0 To XMLNode.childNodes.length - 1
Me.List1.AddItem Item = XMLNode.childNodes(i).baseName & ": " & XMLNode.childNodes(i).Text
Next i

但是，当我单击命令按钮时，列表框中只填充了单词"False"。如果我将http://maps.googleapis.com/maps/api/geocode/xml?latlng=XX.XX,-X.XX&sensor=false粘贴到浏览器中，我确实会得到合法的结果。

我错过了什么？

Answer 1

此代码评估名为Item的变量是否等于字符串"foo"，并将该表达式的值指定为新的列表框项。

Me.lstNew.AddItem Item = "foo"

如果表单的代码模块在其Declarations部分中包含Option Explicit，Access会提醒您变量Item未定义。这将是问题所在的早期线索。始终在所有代码模块中包含Option Explicit。

要将项目识别为选项名称，请使用:=而不是=。

Me.lstNew.AddItem Item:="foo"