-1

Google マップを Access フォームに組み込んで、レコードごとに住所の地図を表示できるようにしようとしています。このビデオの使用:

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

ガイダンスとして、Bing Maps を使用した以外はこれを試みました。私はビデオとまったく同じようにしましたが、ビデオがマップを表示している場所では、私のウィンドウは基本的にアドレスが入力されたBing検索メニューですが、マップがある場所には白い画面しかありません.

Google マップをフォームに追加しようとすると、同様の結果が得られました。昨日試してみたところ、通常のGoogleマップウィンドウが表示されましたが、マップボックスは灰色で塗りつぶされたボックスで、何もありませんでした. 今日試してみましたが、灰色のボックスではなく、マップ ボックスが白くなり、通常のメッセージ「読み込み中」が黄色のボックスに表示されます。ただし、この「読み込み中」ボックスは無期限に画面に表示されたままになり、白いボックスは読み込まれません。

答えを見つけるためにオンラインで調べました.最も近いのは、Googleマップを実装しようとしたときに灰色のボックスに言及している投稿でしたが、解決策を見つけることができませんでした. この問題が発生している理由を教えていただけると助かります。

編集: Bing マップに使用している URL は次のとおりです。

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

ここで、sAddress は、アドレスの送信元であるフォーム上のテキスト ボックスです。

EDIT 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の代わりにGoogleマップに切り替えました。

Private Sub cmdOpenMap_Click() OpenMap [住所]、[都市]、[州]、[郵便番号]、「カナダ」 End Sub

于 2013-09-10T02:25:40.800 に答える