ACCESS　リストボックスに通貨型をAdditemしたい。

ACCESSのフォーム上に、その日に収入のあった銀行口座の名義、収入、残高を表示させたい。

名義と残高はテキストボックスで
収入は一日に複数回あるためリストボックスにしている。
取得する収入、残高フィールドは通貨型

vbaでADOを使用して、収入日のレコードセットを取得し、収入金額をリストボックスにAddItemすると、
金額が桁区切りまでしか表示されない。
例
￥58, 420→￥58
￥1,442,140→￥1
￥290,000,000→￥290
正しく表示させるにはどうしたら良いでしょうか。

リストボックス.AddItem format(収入レコード,"Currency")

###試したこと
収入レコード→Val(収入レコード)としてみた。
Currency→¥¥#,##0としてみた。
リストボックスの幅を20cmにした。

###補足
format(金額レコード,"Currency")後のステップでdebug. Printすると正しく表示される。

別のACCESSファイルで
書式を通貨型に設定したテキストボックスと、リストボックスを置き、ボタンでテキストボックスに入力された数値をリストボックスにAddItemしても同じ現象が起きる。

行動規範の内容に同意します

回答1件

ベストアンサー

値リストの場合、カンマは行区切りと解釈されます。
引用符で囲むようにすればテキストとなりますので、書式設定通りに表示されます。

js
1    Dim 収入レコード
2    収入レコード = 58420
3
4    Me.リストボックス.AddItem """" & Format(収入レコード, "Currency") & """"

投稿2023/07/20 05:07

総合スコア34352

2023/07/20 05:11

解決いたしました。カンマ区切りの影響を気づけなかったことを反省します。本当にありがとうございました。

行動規範の内容に同意します

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.31%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問をすることでしか得られない、回答やアドバイスがある。