解決済みの質問
Accessのフォーム上からGoogle検索を行いたいです。 例：フォームaにテキストボッ...
Accessのフォーム上からGoogle検索を行いたいです。
例：フォームaにテキストボックスbがあるとき、テキストボックス0に入力した文字列をGoogleやYahooで検索したいです。
ご教示お願い致します。
現在、ネットを色々と確認し、フォームにコマンドボタンを作成し、クリック時にイベントプロージャーを設定し、
下記式を入力しました。
下記設定にて、Googleが立ち上がるところまではできましたが、
なんとか、アクセスのコンボボックスに入力した文字が、コマンドボタンをクリックすることで、自動でネットで検索できるようにしたいです。
ご教示お願い致します。
Private Sub コマンド0_Click()
Const nu As String = vbNull
Dim ret As Long
Dim url As String
url = "http://www.google.com/search?q=" & 検索文字列 & "&num=50&hl=ja&filter=0&lr=lang_ja&ie=Shift_JIS"
ret = ShellExecute(0, "open", url, nu, nu, 0)
End Sub
先程、下記の修正のご連絡を頂き、試してみましたが、以前と同様で、ネットは開きますが、ネットに検索文字が入りませんでした。ご確認頂けないでしょうか？
url = "http://www.google.com/search?q=" & Me!テキストボックス0 & "&num=50&hl=ja&filter=0&lr=lang_ja&ie=Shift_JIS"
- 補足
- tkyk_halさん
再度確認させて頂きました。できました。どうもありがとうございます。
今回の式で、英数字はアクセスからネットの検索へ自動入力されますが、
日本語を入力した場合、文字化けしてしまいます。
度重なり申し訳ございませんが、日本語検索が出来る方法をご教示頂けないでしょうか。
-
- 質問日時：
- 2009/6/7 23:34:57
-
- 解決日時：
- 2009/6/8 22:41:49
-
- 回答数：
- 2
-
- お礼：
- 知恵コイン
- 50枚
-
- 閲覧数：
- 415
-
- ソーシャルブックマークへ投稿：
- Yahoo!ブックマークへ投稿
- はてなブックマークへ投稿
- （ソーシャルブックマークとは）
ベストアンサーに選ばれた回答
tkyk_halさん
こちらでテストする限りは問題なく表示されます。コードの最後に
MsgBox url
もしくは
Debug.Print url
などと追加して、urlの内容がお望みのものになっているか確認して下さい。
Me!の後に付くのは、テキストボックス名です。
追記
う～ん、こちらでは日本語も問題ないんですが・・・
試しに、
url = "http://www.google.com/search?q=" & Me!テキストボックス0 & "&num=50&hl=ja&filter=0&lr=lang_ja&ie=UTF-8"
としたらどうなります？
- 違反報告
- 編集日時：2009/6/8 22:20:49
- 回答日時：2009/6/8 19:19:14
- この質問・回答は役に立ちましたか？
- 役に立った！
お役立ち度：
1人が役に立つと評価しています。
ベストアンサー以外の回答
（1件中1〜1件）
ntttusinさん
2000のイベントプロージャーの画面には
下記のように書かれています。
貴方のお書きのようにしてみたかったのですが
当方初心者でどこをいじるのか解りません。
以下はサンプルのノースウィンドの得意先フォームに
ボタンを追加してダイアログに従い作ってみました。
Option Compare Database
Option Explicit
Private Sub bgoogle_Click()
On Error GoTo Err_bgoogle_Click
Const nu As String = vbNull
Dim stAppName As String
Dim staddress As String
Dim stURL As String
stAppName = "C:\Program Files\Internet Explorer\iexplore.exe"
stURL = stAppName & " maps.google.co.jp/maps?f=q&hl=ja&q=" & Me![都道府県] & Me![住所1]
staddress = "http://maps.google.co.jp/maps?f=q&hl=ja&q=" & Me![都道府県] & Me![住所1]
Call Shell(stURL, 1)
Exit_bgoogle_Click:
Exit Sub
Err_bgoogle_Click:
MsgBox Err.Description
Resume Exit_bgoogle_Click
End Sub
- 違反報告
- 回答日時：2009/6/8 10:54:32
質問した人からのコメント
たびたびご指導頂きありがとうございました。
url = "http://www.google.com/search?q=" & Me!テキストボックス0 & "&num=50&hl=ja&filter=0&lr=lang_ja&ie=Shift_JIS"
のＪISをＪＳにすることで、日本語も可能となりました。