ACCESSでＷＥＢページを別ウインドウで表示

質問

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

ＡＣＣＥＳＳ（２００２）のメインフォーム（営業Ｆ）上にテキストボックス（ホームページ）とコマンドボタンＱをおいてＱをクリックすることによりテキストボックス（ホームページ）に記述されたＵＲＬにアクセスしてそのＷＥＢページを別ウインドウ（webF)で表示させたいのですがうまくいきません。
ACTIVEXコントロールからWebBrowser0をwebＦに追加するところまでは出来て、別ウインドウ（webＦ）も立ち上がるのですがサイトが表示されず「オブジェクトが必要です」というエラーメッセージが出てしまいます。この場合の「オブジェクト」ってなんですか？どうしたら回避できるのでしょうか？

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

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

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

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "webF"

DoCmd.OpenForm stDocName, , , stLinkCriteria

WebBrowser0.Navigate Me!ホームページ

Exit_コマンドＱ_Click:
Exit Sub

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

End Sub

回答No.1

mitarashi · ベストアンサー

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

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

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

お礼

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

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

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

回答No.2

layy

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

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

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

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

お礼

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