none
Access⇒IE Ver.10~11(64bit)Google地図表示 Script Error RRS feed

  • 質問

  • AccessのWebBrowser機能を使って、Google地図をAccessの画像に
    表示する中で発生したエラーです。

    VBAプログラムで、社員の自宅地図を表示しています。

    Windows7の32bitタイプについては、IE Ver.10を採用し、そのレジストリ
    登録により、問題なく表示できました。

    しかし、Windows7の64bitタイプについては、下記のエラーメッセージ
     ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
    が表示されます。
     ̄ ̄ ̄ ̄ ̄ ̄ ̄
    URLエンコードを調べたところ、32bitタイプ、64bitタイプ共に同一で
    何故か?、64bitタイプのみエラーが発生します。

    このURLエンコードを、直接、IE Ver.10に与えたところ、正しくGoogle地図を
    表示します。

    AccessのWebBrowser機能で表示したときのみ、且つWindows7の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
    '**************************************************************

    2014年4月13日 13:03

すべての返信

  • 有り難うございました。

    Windows7の 64bitタイプとIE Ver.10~11の組み合わせについて
    AccessのWebBrowser機能を使って、Google地図をAccessの画像に
    表示する中で発生する、Script Errorの表示が無くなりました。

    Windows、Internet Explorer、Access、その何れかは不明ですが
    改善対応して頂けたわけです。

    感謝申し上げます。

    但し、Script Errorは無くなりましたが、「互換表示 有効」Error
    のメッセージが現れるようになりました。

    これは、単なるメッセージですが、必ずWebBrowser画面に現れます。
    Internet Explorerの画面には現れません。

    この点については、VBAのフォーラムに改めて、別途の質問として
    提示させて頂きます。

    2014年4月19日 4:29