AccessのWebBrowser機能を使って、Google地図をAccessの画像に
表示する中で発生したエラーです。
VBAプログラムで、社員の自宅地図を表示しています。
Windows７の32bitタイプについては、IE Ver.10を採用し、そのレジストリ
登録により、問題なく表示できました。
しかし、Windows７の64bitタイプについては、下記のエラーメッセージ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
が表示されます。
￣￣￣￣￣￣￣
URLエンコードを調べたところ、32bitタイプ、64bitタイプ共に同一で
何故か？、64bitタイプのみエラーが発生します。
このURLエンコードを、直接、IE Ver.10に与えたところ、正しくGoogle地図を
表示します。
AccessのWebBrowser機能で表示したときのみ、且つWindows７の64bitタイプ
に限定して、エラーが発生します。
また、IE Ver.9以下の場合は、32bitタイプ、64bitタイプ共にエラーは発生
しません。
ソフトの使用者は、国内にコンピュータソフトを全国販売する大手業者である
ため、社内規定で最新のIE Ver.11の使用が決められています。
ついては、当エラーを何とか解決して、信頼を取り戻したいところです。
解決方法をご存じの方に、是非教えて頂きたく。
よろしくお願いします。
■Google地図 スクリプト エラー■
**************************************************************
このページのスクリプトでエラーが発生しました。
ライン : 7
文字 : 65
エラー : 未定義又はNULL参照のプロパティ'zoom'は設定できません
コード : 0
U R L :http://maps.google.co.jp/maps?f=q&hl=ja&q=%E6%9D%
B1%E4%BA%AC%E9%83%BD%E6%96%B0%E5%AE%BF%E5%8C%BA%
E8%A5%BF%E6%96%B0%E5%AE%BF%BC%92%E4%B8%81%E7%9B%
AE%EF%BC%98%E7%95%AA%EF%BC%91%E5%8F%B7
このページのスクリプトを実行し続けますか?
**************************************************************
'**************************************************************
' Google地図表示 VBAプログラム
'**************************************************************
Private Sub Ctl5()
Dim strURL As String, strURL2 As String
'テキストボックスから住所を取得してリンク先アドレスを組み立て
If IsNull(Me![住所]) Or Me![住所] = "" Then Exit Sub
strURL2 = URL_Decode(Me![住所])
strURL =http://maps.google.co.jp/maps?f=q&hl=ja&q= & strURL2
'Webブラウザコントロールにアドレスを設定
Me!WebBrowser9.Navigate strURL
End Sub
'文字コードをJScriptに統一変換する関数
Private Function URL_Decode(ByVal strOrg As String) As String
With CreateObject("ScriptControl")
.Language = "JScript"
URL_Decode = .CodeObject.decodeURI(strOrg)
End With
End Function
'**************************************************************
