Accessレポートでテキストボックス内の文字幅の変更

質問

ACCESS2000です。よろしくお願いいたします。
レポートで、金額が表示されているテキストボックスがあります。
その金額の数字を大きくすることはできたのですが、
文字の幅を広げたいのです。一文字一文字間隔を広げたいのです。
できないのでしょうか？その部分だけ倍率をあげたりとか何でもかまいません。

回答No.4

bonaron · ベストアンサー

あなたのやりたいことは、テキストボックスの幅を
変えることでも、文字幅を変えることでもなくて
こういうことではありませんか？

http://www.accessclub.jp/bbs3/0017/superbeg7352.html

参考URL：

http://www.accessclub.jp/bbs3/0017/superbeg7352.html

お礼

これです！ビンゴです！（涙）
これで、ACCESSを知らない人でも使える、システムが完成しました。
自分で作ったので、自分だけが使っている分にはよかったのです。ところが最近、他の方も使うようになりました。イレギュラーな金額などは私がやるという感じで。しかし私は今のところを去ることになり、皆さんには本当に良くしていただいたので、恩返しのつもりでマルチに対応するものに作り変えたかったのです。完成しました。ありがとうございました。

回答No.3

noname#60992

私は、そのような場合には数字の頭にスペースをくっつけて、固定長のテキストに変換してから均等割付で印刷しています。　いかがでしょうか？

回答No.2

Dxak

どこのセッションに配置してあるテキストボックスなのでしょうか？
フォーマット時のイベントで、テキストポックスの
Left
Width
に、計算した結果を代入すれば、可能です。

例で、

Dim usChars As Long

usChars = Len(Format(Me.レコードソースの数値を持つフィールド, "#,##0."))
Me!テキストボックス名.Left = 右隅の座標 - usChars * １文字当り広げる幅
Me!テキストボックス名.Width = usChars * １文字当り広げる幅

ってな感じでしょうか？
先に、左端の座標を代入しているのは意図的に実施してます。
エラーだったか、幅が広がらなかったか、過去に記憶があるのですが・・・。

お礼

お礼が遅くなり申し訳ありません。なんとか完成しました。

補足

非常に単純なもので、メニューコマンドのボタンを押すと、IDを聞いてきます。クエリー条件をいれてそうしてます。で、該当するIDの顧客の入金額がレポートで表示されるのですが、その金額の位置が決められていて困ってます。１の位はここ、１０の位はここ、１００の位は・・・という具合に。純粋にレポートでの文字の幅のみ広がれば解決なのですが・・・。ダメでしょうかね。

回答No.1

noname#60992

フォントの種類で対応できなければ、均等割付とテキストボックスの幅を毎回調整すればできるかな？　ＶＢＡで書かなくてはいけませんがいかがでしょうか？

お礼

お礼が遅くなり申し訳ありません。
なんとか完成しました。

補足

現在は均等割り付けで対応しています。桁数によって、レポート
を数種類作っています。重くて重くて・・・・。さらに、全桁分のレポートを作るのはさらに重くなってしまいます。なので幅の調整も行っていますが、効率悪くて困ってます。
テキストの右端の位置は固定で、左側が変動しますので、
それにに対応できればと思っています。
VBAで可能でしょうか？