こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ACCESSでWEBページを別ウインドウで表示

また、質問させてください。
過去ログも見たのですがうまくいかないのでお訊ねします。

ACCESS(2002)のメインフォーム(営業F)上にテキストボックス(ホームページ)とコマンドボタンQをおいてQをクリックすることによりテキストボックス(ホームページ)に記述されたURLにアクセスしてそのWEBページを別ウインドウ(webF)で表示させたいのですがうまくいきません。
ACTIVEXコントロールからWebBrowser0をwebFに追加するところまでは出来て、別ウインドウ(webF)も立ち上がるのですがサイトが表示されず「オブジェクトが必要です」というエラーメッセージが出てしまいます。この場合の「オブジェクト」ってなんですか?どうしたら回避できるのでしょうか?

下記にコマンドボタンQのクリック時イベントの内容を記します。どこが間違っているかわかりません。また、立ち上げるwebFの方にも何か記載することがあるのでしょうか。

因みに、当方全くの素人でVBAもほとんど解りません。先輩諸兄の過去ログの中からあいそうなものをコピペしている状態です。ですから、必要の無い物までコピペしているかも知れません。どなたか教えてください。よろしくお願い致します。

Private Sub コマンドQ_Click()
On Error GoTo Err_コマンドQ_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "webF"

DoCmd.OpenForm stDocName, , , stLinkCriteria

WebBrowser0.Navigate Me!ホームページ


Exit_コマンドQ_Click:
Exit Sub

Err_コマンドQ_Click:
MsgBox Err.Description
Resume Exit_コマンドQ_Click

End Sub

投稿日時 - 2011-02-10 21:57:16

QNo.6513031

すぐに回答ほしいです

質問者が選んだベストアンサー

お仕着せの名前のままなら
Forms("webF").ActiveXコントロール0.Navigate Me!url
※他にもActiveXコントロールが存在すれば番号が違う場合もありえます。

フォームwebFで、Web Browserコントロールに対して、プロパティで格好良く「wb」という名前をつけた場合は
Forms("webF").wb.Navigate Me!url

でいけました。
urlのところは単なるフィールド名ですので、適宜置き換えてください。
ご参考まで。

投稿日時 - 2011-02-10 22:28:06

お礼

ご回答ありがとうございます。

>Forms("webF").wb.Navigate Me!url  で出来ました!

本当にありがとうございました。

投稿日時 - 2011-02-11 23:43:26

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

>当方全くの素人でVBAもほとんど解りません。
>必要の無い物までコピペしているかも知れません。
せめてどこがおかしいかを発見する手段くらいは身につけて実行、の心得が欲しい。

参考まで。
コードでどこか任意の行でF9、
実行したらそこで一旦止まります。
F8押すことで次の実行行、また押すと次の実行行、・・・
次のF9の行へ一気に行くにはF5、
【デバッグ】での手順を覚えておく。
止まっている状態で、イミディエイトにて
「Debug.Print stLinkCriteria」とすると内容を表示してくれる。

「オブジェクトが必要です」が出た直前に実行された行くらいは
わかるようになります。
その行が修正箇所かは別。
「・・必要」なんだから何かが不足とみるのが普通。

コンパイルしてますか?。

投稿日時 - 2011-02-10 23:19:28

お礼

ご回答ありがとうございました。
ホントに五里夢中の状態でおっしゃるとおりです。勉強になりました。有り難うございました。

投稿日時 - 2011-02-11 23:42:44

あなたにオススメの質問