-1

我正在尝试将 Google 地图合并到我的访问表单中，以便为每条记录显示其地址的地图。使用此视频：

http://www.youtube.com/watch?v=GHoy6hsAltc

为了获得指导，我尝试了这个，但我使用了 Bing Maps。我完全按照视频的方式进行操作，但是在视频显示地图的地方，我的窗口本质上是 Bing 搜索菜单，其中输入了地址，但地图所在的位置只有一个白屏。

尝试将 Google 地图添加到我的表单时，我得到了类似的结果。昨天当我尝试它时，通常的谷歌地图窗口出现了，但地图框却是一个灰色的盒子，里面什么都没有。我今天一直在尝试它，而不是灰色填充的框，地图框现在是白色的，通常的消息“正在加载”出现在黄色框中。然而，这个“加载”框会无限期地保留在屏幕上，而白框永远不会加载。

我在网上寻找答案，我发现最接近的是几篇在尝试实施谷歌地图时提到灰框的帖子，但我一直无法找到解决方案。如果有人可以帮助我指出发生此问题的原因，我将不胜感激。

编辑：这是我用于 Bing 地图的 URL：

="bing.com/maps/default.aspx?setmkt=en-CA&where1=" & [sAddress]

其中 sAddress 是地址来源表单上的文本框

编辑2：如果有帮助，这是我屏幕上发生的事情的屏幕截图：

http://i.imgur.com/bDHCm.jpg

4

2 回答 2

2

新的 Web 浏览器控件与任何其他绑定控件一样工作。文本框，或组合框或其他。（因此，文本框的有效表达式是 ="abc"，但不是 abc 或 "abc"。）

我认为您的表达需要“www”部分。以下表达式对我有用：

="http://www.bing.com/maps/default.aspx?setmkt=en-CA&where1=" & [Address]

于 2012-06-27T15:46:57.137 回答
0

尝试这个：

函数 OpenMap（地址、城市、州、邮编、国家）

Dim strAddress As String
strAddress = Nz(Address)
strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(City)
strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(State)
strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(Zip)
strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(Country)
'Debug.Print strAddress

If strAddress = "" Then
    MsgBox "There is no address to map."
Else
    'Application.FollowHyperlink "http://www.bing.com/maps/default.aspx?q=" & strAddress
    Application.FollowHyperlink ("http://maps.google.com/maps?f=q&hl=en&q=" & strAddress)
End If

结束功能

我从一个名为“cmdOpenMap”的按钮中的表单调用这个函数顺便说一句，我最近切换到谷歌地图而不是 Bing，因为我发现结果更好。

Private Sub cmdOpenMap_Click() OpenMap [A​​ddress], [City], [Prov], [PostalCode], "Canada" End Sub

于 2013-09-10T02:25:40.800 回答