アクセスVBAで作った棚卸一覧表
棚卸データに未登録JANが含まれる場合、商品名が空白になってしまう。
そんな時、JANコード欄をダブルクリックで商品情報をGoogle検索する棚卸フォームを作ってみました。
このVBAで、JANコード欄をダブルクリックするとJANコードをGoogle検索し、下部のWEBブラウザーコンポーネントに表示します。
[vb]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
[/vb]
ページを１つ戻るVBA
[vb]Me![MyWebBrowser].GoBack
[/vb]