Ｐａｇｅ 706 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼DoCmdコマンドでHTMLファイルのWeb表示 しん 04/7/20(火) 14:26 ┗Re:DoCmdコマンドでHTMLファイルのWeb表示 クロ 04/7/20(火) 14:58 ┗Re:DoCmdコマンドでHTMLファイルのWeb表示 しん 04/7/20(火) 15:33 ┗Re:追伸 クロ 04/7/20(火) 15:49 ┗Re:追伸 しん 04/7/20(火) 22:15 ┗Re:追伸 クロ 04/7/21(水) 22:21 ┗Re:追伸 しん 04/7/22(木) 14:54 ┗Re:追伸 クロ 04/7/22(木) 15:48 ┗Re:追伸 しん 04/7/22(木) 19:11 ─────────────────────────────────────── ■題名 ： DoCmdコマンドでHTMLファイルのWeb表示 ■名前 ： しん <edo@fureai.or.jp> ■日付 ： 04/7/20(火) 14:26 -------------------------------------------------------------------------
| 通常Accessで特定のHTMLファイル（web.html）をWeb表示したい場合にはコマンドボタン（Web表示）のマウスクリックイベントに下記のようなVBAコード Private Sub Web表示_Click() Web表示.HyperlinkAddress = DirectoryName & "web.html" End Sub をビルドすれば、マウスクリック時にweb.htmlのコンテンツがWeb表示できるのですが、このモジュールをラジオボタンに貼り付けてもラジオボタンにハイパーリンクアドレスのプロパティがないのでうまくWeb表示ができません。 それで、ラジオボタン（名前はWeb表示と仮定します）をマウスで選択したときに、DoCmdコマンドでHTMLファイルのWeb表示を可能にするようなVBAコードはありませんでしょうか？ |
| FollowHyperlink メソッドではどうでしょうか？ ラジオボタンとは？ オプション/トグルでしたらオンオフはTure/Falseで分岐できます。 更新後処理イベントあたりで試されては如何でしょうか？ |
| ▼クロ さん： お忙しい中をさっそくご回答頂きありがとうございました。 >ラジオボタンとは >オプション ボタンのことです。 ご提案の >FollowHyperlink メソッド を >更新後処理イベントで試 してみたところ、下記のようなVBAコード Sub Web表示_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Application.FollowHyperlink DirectoryName & "web.html" End Sub でディレクトリDirectoryName下にあるweb.htmlのコンテンツをうまくWeb表示できました。 行き詰まっていた処理ができるようになり、本当に助かりました。どうもありがとうございます。またよろしくご指導お願いします。 |
| マウスボタンクリック時のイベントに書かれたようですが この場合オプションボタンがオンであろうがオフであろうが このコントロールでマウスボタンがクリックされればWebブラウザを 開いてしまいます。 ※実際はオプションボタンのオン/オフには関係なく開きます。 オン/オフはスペースキーで切替が可能なので更新後処理イベントに If Me.Web表示 = True Then Application.FollowHyperlink DirectoryName & "web.html" End If のようにした方がいいと思います。 こうすればマウスでクリックしてオンにしたときとスペースキーで オンにしたとき共にWebブラウザを開くことができます。 ※Web表示(オプションボタン)の既定値に「0」を入れておくと開いた ときはオフになります。「-1」でオン |
| ▼クロ さん： こんばんは、しんです。 追伸ありがとうございます。 実は私のmenuフォームにはオプショングループ（フレーム）が貼り付けられており、このフレームにはオプションボタン（コントロール）が３つあります。これらのコントロールの名前はWeb表示1、Web表示2、Web表示3です。これら３つのボタンコントロールに対して、下記のようなVBAコード Sub Web表示1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Application.FollowHyperlink DirectoryName & "web1.html" End Sub Sub Web表示2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Application.FollowHyperlink DirectoryName & "web2.html" End Sub Sub Web表示3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Application.FollowHyperlink DirectoryName & "web3.html" End Sub を配することにより、それぞれのオプションボタンをマウスクリックすると、所望のHTMLファイルのコンテンツがWeb表示できるようにしました。 したがって、クロさんのおっしゃられるように >マウスボタンクリック時のイベントに書かれたようですが >この場合オプションボタンがオンであろうがオフであろうが >このコントロールでマウスボタンがクリックされればWebブラウザを >開いてしまいます。 しかしながら、私はこのフレームについて実際どのようにプロパティを設定し、上述の３つのオプションボタンをスペースキーで移動させたとき > >オン/オフはスペースキーで切替が可能なので更新後処理イベントに > >If Me.Web表示 = True Then > Application.FollowHyperlink DirectoryName & "web.html" >End If > >のように するには具体的にどのようなコードを書けばいいのかよくわかりません。ご面倒でなければ詳しくご説明頂ければ幸いです。 ほんとうは、クロさんのおっしゃられるように >こうすればマウスでクリックしてオンにしたときとスペースキーで >オンにしたとき共にWebブラウザを開くことができ たらいいんですが・・・。 |
| >実は私のmenuフォームにはオプショングループ（フレーム）が貼り付けられており、 オプショングルーブの場合のコードはフレームの更新後処理に書きます。 それぞれのオプションボタンには値が割り振られていると思います。 Web表示1…1 Web表示2…2 Web表示3…3 のように コードは Select Case Me.フレーム名 Case 1 Application.FollowHyperlink DirectoryName & "web1.html" Case 2 Application.FollowHyperlink DirectoryName & "web2.html" Case 3 Application.FollowHyperlink DirectoryName & "web3.html" End Select こんな感じで... |
| ▼クロ さん： こんにちは >>実は私のmenuフォームにはオプショングループ（フレーム）が貼り付けられており、 > >オプショングルーブの場合のコードはフレームの更新後処理に書きます。 >それぞれのオプションボタンには値が割り振られていると思います。 >Web表示1…1 >Web表示2…2 >Web表示3…3 >のように >コードは >Select Case Me.フレーム名 > Case 1 > Application.FollowHyperlink DirectoryName & "web1.html" > Case 2 > Application.FollowHyperlink DirectoryName & "web2.html" > Case 3 > Application.FollowHyperlink DirectoryName & "web3.html" >End Select > のようにしましたら、うまく動作することが確認できました。どうもありがとうございます。 ただ、スペースキーによるラジオボタンの変更はうまく行くときと行かないときがあるようです。これはAccessのバグでしょうか？？？ |
| スペースキーオン/オフは単体のオプションボタンの時によく使用します。 If Me.オプションボタン名 = True Then 処理 Else 別の処理 End If 今回の場合みたいにオプショングループ時には使用する意味がないと 思います。 ※フレーム内のオプションボタンをオン/オフする意味がないということ |
| ▼クロ さん： こんばんは。 >スペースキーオン/オフは単体のオプションボタンの時によく使用します。 > >今回の場合みたいにオプショングループ時には使用する意味がないと ということなのですね。よくわかりました。どうもありがとうございます。 |