access2010 Webブラウザーコントロール

ActiveXではなく、標準コントロールになったWebブラウザコントロール。配置すると、参照が追加されます。

できあがり










  

Const BaseUrl = "http://maps.google.co.jp/maps?hl=ja&dirflg=d&q="

Private Sub cmdGoogleMap_Click()
 Dim str As String
 str = Chr(61) & Chr(34) & BaseUrl & UrlEncodeUtf8(Nz(Me.txtQuery, "")) & Chr(34)
 Me.Webブラウザー0.ControlSource = str
End Sub