Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 11 Pro : Access 2019)
googlemapが開けない
投稿日時: 23/10/19 15:33:53
投稿者: yamasho

お世話になります。
 
フォームの地図というコマンドボタンを押すと、
該当する住所のgooglemapが開くようになっていました。
 
久しぶりにこのコマンドボタンを押したところ、
「クラスが登録され地ません」
というエラーになってしまいます。
 
コードは下の通りです。
 
-------------------------------------------------------------------------------------
'MAP表示関数
 
Public Function ShowMap(Address)
     
    If Address <> "" Then
        FollowHyperlink "http://maps.google.co.jp/maps?f=q&hl=ja&q=" & EncodeURL(Address)
    End If
     
End Function
 
Private Function EncodeURL(ByVal sWord As String) As String
 
    With CreateObject("ScriptControl")  ここでエラー
        .Language = "JScript"
        EncodeURL = .CodeObject.encodeURIComponent(sWord)
    End With
   
End Function
-------------------------------------------------------------------------------------
 
仕様が変わって使えなくなってしまったのでしょうか?
 
  

回答
投稿日時: 23/10/19 16:08:58
投稿者: gombohori

こちらが参考になりそうです
 
初心者備忘録 64ビット環境でのScriptControlの代わり
https://www.ka-net.org/office/of32.html

投稿日時: 23/10/20 16:22:26
投稿者: yamasho

お世話になります。
 
教えていただいた方法で無事解決しました。
ありがとうございました。