【vba】ダブルクリックでGoogle検索

アクセスVBAで作った棚卸一覧表

棚卸データに未登録JANが含まれる場合、商品名が空白になってしまう。

そんな時、JANコード欄をダブルクリックで商品情報をGoogle検索する棚卸フォームを作ってみました。

このVBAで、JANコード欄をダブルクリックするとJANコードをGoogle検索し、下部のWEBブラウザーコンポーネントに表示します。

Private Sub JAN_DblClick(Cancel As Integer)

Call seekGoogle(Me![JAN])

End Sub

Private Sub seekGoogle(myKEY As String)

Dim myURL As String
myURL = "http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&rlz=1T4GGIC_jaJP309JP309&q=" & myKEY

Me![MyWebBrowser].Navigate myURL

End Sub

ページを１つ戻るVBA

Me![MyWebBrowser].GoBack