Access2016のトグルボタンにテーマの使用をONにすると印刷されません

Question

アクセスで成績管理をしようと思っています。

マークシート用解答用紙の作成に楕円のトグルボタンを使いたいのですがスタイルONでは印刷されないので解答用紙に使えません。

Toggle.Button.Shapeで９を選べば楕円になるようなのですが例文がなくVBAの知識も少ないのでお手上げになりました。

ご教授お願いいたします。

Answer 1

恐れおおいいのですが上記AfterUpdate　サブルーチンを　短くする方法を教えていただけませんか

自分で試した構文作成能力では全く歯が立ちません。

Ctl1.Value と画像のファイル名が対応してますので、下記の1行にできますね。

Private Sub Ctl1_AfterUpdate()

    Me.img1.Picture = [CurrentProject].[Path] & "/4ans" & Me.Ctl1.Value & ".png"

End Sub

あるいは、VBAは使わずに img1 のコントロールソースに、下記の式を設定してもいいですね。

=[CurrentProject].[Path] & "/4ans" & [Ctl1] & ".png"

Answer 2

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

帳票フォームになります。テストの解答用紙用なので　4択185問　740個　3択15問　45個　

合わせて785個のコマンドボタンが必要になることがわかっています。　

おそらくこれもコントロール数の上限を超える画面設計のようになるかと思われます。

以前　200問の設問下にテキストボックスを2～3個ぶら下げて

条件付き書式で正解時のボックスを黒塗りしようとしたのですが100問を超えるあたりで

コントロール数過多のようでフォーム自体が壊れてしまいました。

今回トグルボタンを配置してエラーにならなかったので　これはいけると

踏んだのですが　テーマの使用をやめると印刷されない。という経緯をたどっています。

本来なら　ToggleButton.Shapeが動けばよいのですが　なんとも仕方ありません。　

フィールドの値　[解答]　をもとに　画像(マークシート正解A~D)を切り替える仕様で

コントロールを無駄に多く増やさずに作る方向で頑張ってみます。

ありがとうございます。

Answer 3

「テーマの使用」を「はい」にすると、プレビューでは表示されないみたいですね。

代案として下記はどうでしょうか。

楕円の画像を、選択時と非選択時の２種類作成して、それをイメージコントロールに表示させる。

２つを重ねて配置する。

さらにこの画像の上にコマンドボタンを配置して「透明」プロパティを「はい」にする。

コマンドボタンのクリック時のイベントプロシージャで、２種類の画像の「可視」を切り替える。

コード例

'クリック時

Private Sub コマンド1_Click()

    If Me.フィールド1 = True Then

        Me.選択画像.Visible = True

        Me.非選択画像.Visible = False

        Me.フィールド1 = False

    Else

        Me.選択画像.Visible = False

        Me.非選択画像.Visible = True

        Me.フィールド1 = True    

    End If

End Sub

単票フォームが前提です。帳票フォームだともう少し工夫が必要です。

Answer 4

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

説明しなおします。

フォームを用いてマークシート式解答用紙を作成　マークの楕円をトグルボタンであらわして印刷したい。

採点用にも使って正解チェックフォームとしても転用したい。

マークをクリックして黒になれば直観的なインターフェイスができるかなと思っております。

テーマを使用すると　印刷時にトグルボタンは印刷されなくなり

テーマを未使用にするとトグルボタン□の枠と中に入れたテキスト文字は印刷されます

テーマ未使用のまま　ToggleButton.Shapeプロパティに９を入れるとよいのか？

Yahoo知恵袋で聞いてみました。

フォームを開くときに

Me.トグル1.Shape = 7

を入れるとよい。９は間違いだそうです。

やってみたのですが　残念ながらShapeは起動せず形は楕円になりませんでした。ご協力お願いいたします。

Answer 5

QPman さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

Access 2016 で、トグル ボタンが印刷されないのですね。

確認なのですが、フォームにトグル ボタンを配置して、そのフォームを印刷しようとしているのでしょうか?

上記のことを手元の Access 2016 でも試してみましたが、形に関係なく、トグル ボタンは印刷されませんでした。。

何か良い情報をお持ちの方がいらっしゃれば、ぜひ書き込みをお願いします。