• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：Access2002 でWebサイトを表示したい）

Access2002でWebサイトを表示する方法

このQ&Aのポイント
  • (1)Accessのコマンドボタンを押して、URLを読み込んでWebサイトに移動します。
  • (2)Webサイトを閉じると、Accessの画面に戻り、結果が良かったかどうかをメッセージボックスで表示します。
  • (3)結果をAccessに記録します。しかし、現在の流れでは順序が正しくないため、解決方法を教えてください。
回答 全件
ベストアンサー
ハイパーリンクでなく、IEを制御する代替案はいかがでしょうか。 Ex…

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

  • ベストアンサー
  • mitarashi
  • ベストアンサー率59% (574/965)
回答No.1

ハイパーリンクでなく、IEを制御する代替案はいかがでしょうか。 ExcelVBAでテストしているので、試される場合は、ご自分で載せ替えて下さい。メッセージボックスはIEのウィンドウの後ろに隠れてしまいますので、悪しからず（Excelの場合） '参考：http://www.ken3.org/cgi-bin/group/vba_ie.asp Sub ie_test() Const READYSTATE_COMPLETE = 4 Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate Range("a1").Value 'ここでURLの文字列を与える While objIE.ReadyState <> READYSTATE_COMPLETE Or objIE.Busy = True DoEvents Wend If MsgBox("OKですか?", vbYesNo) = vbYes Then Range("A2").Value = True Else Range("A2").Value = False End If objIE.Quit Set objIE = Nothing End Sub

Star-X
質問者

お礼

ありがとうございました。 Accessに置き換えて、うまくいきました。 助かりました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • 表示プログラムについて

    テキストの中の”あいうえお”のような文章を表示させるプログラムを作りたいんですが Private Sub Command1_Click() Open "c:\mydata\test.txt" For Input As #1 End Sub Private Sub Command2_Click() Close #1 End Sub では表示されませんでした。何がおかしいかとかどうすればいいか教えてください。お願いします。

  • Picture1.Printとしてもpicture1には何も表示されません

    Private Sub Form_Load() Call kansu End sub --------------------------- Private Sub kansu() a="文字" Picture1.Print a End sub --------------------------- のように、pictureコントロールに 文字を入れる処理をする関数を呼んでいるのですが、 Formが表示されてもpicture1には何も表示されません。 Msgboxを入れておくとメッセージボックスが出るので 呼び出されてはいるようなのです。 この関数をCommand1_Click()などから呼ぶとpicture1コントロールに ちゃんと表示されます。 どうすればよいのでしょうか？

  • Access　１つのイベントに複数のVBA

    こんにちは！ Accessについて、質問です!! あるフォームの『修正』というボタンのクリック時プロパティに、以下のVBAが組み込まれています。 Private Sub 修正_Click() CopyRec End Sub ここに新たに、 『メッセージボックス』『ウインドウを閉じる』VBAを加えたいのです。 現状として…… (1)Private Sub 修正_Click() CopyRec MsgBox "修正が完了しました" End Sub (2)Option Compare Database （下線） Private Sub 修正_Click() CopyRec End Sub Option Compare Database （下線） MsgBox "修正が完了しました" End Sub 上記(1)(2)は、失敗しています。 質問は２つあります。 (1)１つのプロパティに、複数のVBAを設定するのは可能ですか？可能なら、どのようにVBAを入力すれば正常作動するのでしょうか？ (2)『ウインドウを閉じる』VBAの書き方が調べても分かりませんでした……。どのように入力するのですか？ どちらか１つが分かる方でもかまいません。 回答よろしくお願いします！

  • 標準モジュールとイベントの質問

    初めて質問します。 ビジュアルベーシックで標準モジュールで ボタンのクリックイベントを実行したいのですが どうやってプログラムすればいいんでしょうか？ 今の会社に入っていきなりＶＢの仕事させられて とっても困っています。 Private Sub Frm1Command1_Click() Call Module1.Frm1Command1_Click End Sub こんな書き方じゃなくて、標準モジュール内で Public Sub Command1_Click() MsgBox "sine" End Sub って書いて実行できるようにしなくてはダメなんです。 どうすればいいんでしょうか？ もしかして無理なんでしょうか？ これ、上司の嫌がらせだったらイヤですね・・・。

  • 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

  • アクセス2010でコンパイルエラーが出てしまいます

    アクセス2010でコンパイルエラーが出てしまいます。 Private Sub ＜_条件入力画面を開く_Click() Private Sub JJJ・メディカル評価対比表_Click() Private Sub エクセルに出力（指摘あり）_Click() office2003からoffice2010に変更したところ、上記の箇所がエラーになってしまいました。 これだけでは、わからないという事でしたらおっしゃってください。 お手数掛けますが、よろしくお願いいたします。 (初心者なのでわかりやすい回答ですと助かります...）

  • アクセスからアクセスを立ち上げたいのですが

    オフィス２００７です。 アクセスからアクセスを立ち上げたいのですが、うまくいきません。 test1.accdbにフォームとコマンドボタンを設置して、 Private Sub コマンド1_Click() Dim acApp As Object Set acApp = CreateObject("Access.Application") acApp.OpenCurrentDatabase C:\test2.accdb" acApp.Visible = True End Sub を実行したのですが、アクセスのアプリケーションが一瞬だけ開いて、閉じてしまいます。 「 acApp.Visible = True」の部分に、ブレークポイントを設定して、ステップインしてみたところ、 acApp.Visible = Trueでアクセスのアプリケーションが立ち上がり、test2.accdbが表示されますが 「End Sub」で閉じてしまいます。 ずっと開き続けるにはどうすればいいでしょうか？

  • PickFolder　アウトルックとアクセス連携

    アクセスのフォームに テキストボックスとコマンドボタンを置きました。 ＶＢＡでoutlookに参照設定をして、 Private Sub コマンド2_Click() Dim myNaSp As NameSpace Set myNaSp = GetNamespace("MAPI") Me.テキスト0.Value = myNaSp.PickFolder Set myNaSp = Nothing End Sub としました。 テキストボックスには、 Private Sub テキスト0_AfterUpdate() MsgBox Me.テキスト0.Value End Sub としました。 しかしoutlookのフォルダ名をPickFolderでテキストボックスに入れても テキストボックスの更新後処理のイベントは発動しません。 しかしテキストボックスにはちゃんとフォルダ名が入っています。 Private Sub テキスト0_Change() MsgBox Me.テキスト0.Value End Sub にしても同じです。 Private Sub コマンド2_Click() Me.テキスト0.Value = "aaa" End Sub にしてコマンドボタンをクリックすると、 Private Sub テキスト0_Change() MsgBox Me.テキスト0.Value End Sub は、発動します。 PickFolderでフォルダ名を選択して値をテキストボックスに入れても イベントを発動させる方法を教えてください。

  • アクセスのイベント記述について。

    アクセスで登録ボタンをコントロールウィザードで作ったのですが、登録と同時にそのフォームを閉じるにはどうしたらよいでしょうか。現在の登録ボタンのイベント記述は下記のとおりです。よろしくお願いいたします。 Private Sub 登録_Click() On Error GoTo Err_登録_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_登録_Click: Exit Sub Err_登録_Click: MsgBox Err.Description Resume Exit_登録_Click End Sub

  • ファイルの読み込み

    ＣＳＶファイルを読み込んでAccessへ格納したいのですがどうしたら良いのでしょうか？ ここまではできたのですが・・・・。 Private Sub Command1_Click() CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly CommonDialog1.ShowOpen End Sub

Epson Viewのデータ履歴が見えない？
このQ&Aのポイント
  • PCを新しくした際、Epson Viewにログインしても以前のデータが表示されない問題に遭遇しました。
  • ログインは正常に行われていますが、データが表示されない原因は何でしょうか？
  • 設定の変更が必要なのか、原因を探しています。
回答を見る

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する