質問: access97で、文字数によってフォントのサイズを変えたい。 はじめまして。仕事でdbを作成しているのですが、行き詰まってしまいました。 レポートで、ある1つのフィールドを表示しているのですが、 データによっては、文字数が少なかったり多かったりします。 それによってフォントを大きくしたり小さくしたりできますでしょうか? (文字数が多いとフォントは小さく、文字数が少ないとフォントは大きく) ぜひ教えて下さい。お願いします。
回答: とりあえず、「印刷時拡張」プロパティを「はい」にすると、印刷時に、行数に応じてテキストボックスが縦方向に広がります。これが使えるんであればこっちを使った方が綺麗な仕上がりになりますね。 用紙幅がきっちりと決まってる場合など上記の方法が使えない場合には、仰るように文字数に応じてフォントサイズを変えるvbaを用意します。 1:レポートをデザインビューで開き、 2:詳細を右クリック、プロパティを表示し、 3:イベントのフォーマット時を[イベント プロシージャ]にする。更にその右の[...]をクリック 4:出てくる画面で以下のようにコーディングする private sub 詳細_format(cancel as integer, formatcount as integer) if len(nz(me![フィールド名], "")) >=20 then '20字以上なら me.テキストボックスの名前.fontsize = 7 'フォントを7ポイントに else me.テキストボックスの名前.fontsize = 9 'それ以外(=19字以下)なら9ポイント end if end sub ちなみに、上例では半角も全角も同じく1文字としてカウントします。 半角=1文字、全角=2文字としてカウントする場合は、コードをこんな感じに書き換えてください。 if lenb(strconv(nz(me![フィールド名], ""),vbfromunicode)) >=40 then '20字以上なら 質問等ありましたら、補足欄にお書きください。