ラジオボタンの数値で画像を表示する

質問

アクセス２０００を使用しています。

フォームにグループ化した３つのボタンを作りました

○３０％　－－＞　１
○５０％　－－＞　２
●７０％　－－＞　３

テーブルには１（、２、３）という数値が記録されます。

レポートでは
３ならにこちゃんマークの画像を、
２ならふつうのマークの画像を、
１ならがっかりマークの画像を、
という具合にレポートで画像を表示する場合
どうやればよいでしょうか？

ＶＢＡはやったことありますが、ラジオボタン
のＶＢＡは利用したことがありません。

詳しく教えて頂けると大変助かります。

回答No.4

ja7awu · ベストアンサー

> .Picture のところは別のものになることはないでしょうか？

そんなことは、ありません。
ヘルプで、Picture プロパティを調べてみてください。

それでは、新しい mdb で下記の手順でテストしてください。
Access2000をデフォルトでインストールしたときの画像を使ってのサンプルコードです。

・ フォームの新規作成で、デザインビューを指定して「オプショングルーブ」コントロールを
　１個 配置します。　名前を「フレーム0」とします。

・ その中に「オプションボタン」コントロールを ３個 配置します。
　　(名前は不問ですが、一応、オブション2、オプション4、オブション6 とします。)

・ 「イメージ」コントロールを１個 配置し、最初に表示したい画像ファイルを指定します。
　　ここは仮に　C:\Program Files\Microsoft Office\Office\Samples\CAJLOGO.GIF　を
　　指定します。　コントロールの名前を「イメージ8」とします。

・ 「フレーム0」を右クリックして「イベントのビルド」を指定して「コードビルダ」を
　 選択します。

・　表示されたコードウィンドウに下記コードを上書きします。

Private Sub フレーム0_BeforeUpdate(Cancel As Integer)
Const Pic_Path = "C:\Program Files\Microsoft Office\Office\Samples\"
Select Case Me.フレーム0.Value
　　Case 1
　　　　Me.イメージ8.Picture = Pic_Path & "CAJLOGO.GIF"
　　Case 2
　　　　Me.イメージ8.Picture = Pic_Path & "FORLOGO.GIF"
　　Case 3
　　　　Me.イメージ8.Picture = Pic_Path & "NWLOGO.GIF"
End Select
End Sub

・ このフームに名前をつけて保存します。

・ このフォームを実行し、各オプションボタンを押して、画像が変わることを確認します。

・ フォームを開いたときに最初(オプション2)が押された状態に設定するのであれば、
　先と同じコードウィンドウに下記コードを追記します。

Private Sub Form_Open(Cancel As Integer)
　　Me.フレーム0.Value = 1
End Sub