テキスト型 書式を「#,##0」にするには？

質問

あくせすです

テキスト型の金額フィールドがあります。

なぜテキスト型かと言うと、数値も入るけど
「なし」「未確認」などの文字も入れたいからです。
その金額フィールドをコントロールソースとして
フォームのテキストボックスにリンクさせてるのですが
数字の時は書式を「#,##0」に、文字の時は、そのまま文字列を表示させるには
どうすればいいでしょうか？

プロパティで書式を「#,##0」にしたけど、
数値でもカンマ区切りになりません。

なのでコントロールソースを
「=IIf(IsNumeric([金額])=True,Format([金額],"#,##0"))」
にしてみたのですが
エラーにもならないけど、何も表示されません。
「=IIf(IsNumeric([金額])=True,Format([金額],"#,##0"), [金額] )」
にすると、#エラーになってます。

デザインビューで見ると
「無効なコントロールソースです」になってしまってます。
対策を教えてください。

回答No.2

tsubuyuki · ベストアンサー

まず・・関数の使い方から見てみましょうね。

Ｆｏｒｍａｔ関数は
「第１引数の“数値”を受けて、第２引数で指定したによる文字列」
に変換する関数です。
「第１引数に“文字列”を与えてしまうと、空白で返す」関数ですので、
> エラーにもならないけど、何も表示されません。
と言う状態に陥ります。
つまり、このやり方を採用するなら、Ｖａｌ関数（文字列⇒数値に変換）を併用して
　　 =IIf(IsNumeric([金額])=True,Format(Val([金額]),"#,##0"),[金額])
としてやる必要があります。

ですが、このやり方だと「フォームによる修正」が出来ません。
これを実現しようと思った時に簡単なやり方として、
ＶＢＡを併用して
「更新されたら、数値化文字列か判断し、数値なら書式を付ける」
という方法が一つ挙げられます。

つまり、コントロースソースを[金額]にしたテキストボックスを準備し、
これの「更新後処理」に
Private Sub テキスト0_AfterUpdate()　　　　' テキストボックスの名前は任意
　　　　If IsNumeric([金額]) = True Then
　　　　　　　　[金額] = Format(Val([金額]), "#,##0")
　　　　End If
End Sub
こんな感じのコードを書いてやるとある程度上手くいくのではないかと思います。

お試しくださいませ。

お礼

回答ありがとうございました。

回答No.1

yaasan

フィールドを数値型もしくは通貨型にしてみては？

テキストのセルは必ずテキストになるのですから、計算がない限り、大丈夫と思われます。
手元にアクセスがないので、検証できてませんが参考まで。

お礼

回答ありがとうございました。