ACCESSのコンボボックスと連動したテキストボックスの書式設定

Question

前提・実現したいこと

現在、ACCESSでフォームを作っています。

その中でコンボボックスを見積(別テーブル)にある見積番号を参照して、その中にある見積金額を連動させたテキストボックスに表示させています。
(コンボボックスでは見積番号を表示)

テキストボックスに表示されている金額を￥#,##0のように三桁ごとにカンマを入れたいのですが、￥20000のように表示されてしまいます。

そのテキストボックスのコントロールソースは
="￥" & 見積番号.Column(1)
としてあります。

ちなみに、見積テーブルの見積金額のデータ型は通貨型になっており、
テーブルを直接見ると￥#,##0の形式で表示されています。
が、コンボボックスで表示されているのは数字のみになっています。

また、見積金額を表示させているテキストボックスは非連結テキストボックスです。

試したこと

該当テキストボックスのプロパティ内の書式に#,##0と入力してみたり、標準や通貨に切り替えてみたりはしました。

また、見積金額のデータ型を数値に変更しVBAで
FormatCurrency (Me.見積金額)
としてみましたが、何も変わりませんでした。

よろしくお願いします。

Answer 1

テキストボックスのコントロールソースを、
=最終見積番号.Column(1)
として、書式プロパティを、
通貨 または \#,##0
と設定しましょう。

="￥" & 見積番号.Column(1)
と設定すると、数値ではなく文字列になってしまいますので、通貨に対する書式を設定しても無視されます。

=Format(最終見積番号.Column(1),"\#,##0")
でも表示はご希望のものになりますが、やはり文字列になりますので、それを使って計算はできなくなります。
例えば、消費税を付加しようとして、
=[見積金額]*1.08
としてもエラーになります。

Comments

[yume]

回答ありがとうございます。
今回の、このテキストボックス内の値は特にテーブルに格納せずに、フォーム上でUIの向上目的で見られるようにしようとしているだけなので、テキスト型になっても、見積テーブル上が通貨型のままであれば支障はないと考えています。

また、バージョンを2003で開発している関係なのか、該当テキストボックスの書式プロパティを変更しても、表示が一切変わらず、半ば、あきらめもあります。

今後、ようやく最新バージョンに変えようかという話が出てきたので、そのときに再度、書式プロパティで設定しようと思います。

[hatena19]

=Value(最終見積番号.Column(1))
として数値型に強制変換したらどうでしょうか。

[yume]

補足させていただきます。
テキストボックスのコントロールソースを"=最終見積番号.Column(1)"とし、
書式を変更しても、表示は数字のみになっていました。

データ型のことまで教えていただき非常に参考になりました。

[yume]

=Value(最終見積番号.Column(1))にしたところ
#Name?のエラーが表示されてしまいました。

[hatena19]

関数間違えてました(;^ω^)

=Val(最終見積番号.Column(1))

としてください。

[yume]

できました。
ありがとうございました。

sazi様、hatena19様、どちらも参考になりました。

悩みましたが、今回はいろいろ丁寧に対応してくださったこちらをベストアンサーにさせていただきます。

本当にありがとうございました。

Answer 2

\はエスケープ記号ですので、書式指定時に指定する場合は\#,##0のように指定する必要があります。
コントロールソースで行う場合はformat()で同じように書式を指定します。

Comments

[yume]

早速の回答ありがとうございます。
書式のほうではやはりできませんでしたが、コントロールソースに
=Format(最終見積番号.Column(1),"\#,##0")
と入れたらできました。

ちなみにですが、コンボボックス内のほうの書式を変えることは可能でしょうか?
数字だけだと少し見難いので･･･

[sazi]

新たに表示用の列をコンボボックスの値集合ソース追加し、現状のColumn(1)は幅0ｃｍにして非表示にすれば良いと思います。

[yume]

参考にしている見積テーブルの見積金額のデータ型を何度か数値と通貨などで行ったり来たりしているうちに、コンボボックス内の書式が希望の表示になりました。(最終的に見積もり金額のデータ型は通貨)
コンボボックスのリスト幅もいじったりしていたので、もしかしたら、リスト幅や列幅が悪さをしていたのかもしれません。
ありがとうございました。