xmlnode代码不工作-访问vba

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

但是，当我单击命令按钮时，列表框中只填充了单词“False”。如果我粘贴

http://maps.googleapis.com/maps/api/geocode/xml?latlng=XX.XX，-X.XX&sensor=false

进入浏览器，我确实会得到合法的结果

---

我缺少什么？

此代码计算名为Item的变量是否等于字符串“foo”，并将该表达式的值指定为新的列表框项

Me.lstNew.AddItem=“foo”

如果表单的代码模块在其声明部分中包含了

Option Explicit

，Access会提醒您变量项未定义。这将是问题所在的早期线索。始终在所有代码模块中包含

选项Explicit

要将项目识别为选项名称，请使用

：=

而不是

=

Me.lstNew.AddItem:=“foo”

打字错误

.AddItem=XMLNode….

这是一个相等性测试，然后是一个赋值，删除

项

您要求Access在该段的列值中包含冒号<代码>&“&为什么会出现问题？

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