![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
アクセスのレポートの金額に、桁区切りのカンマを付けたいと思っています。
プロパティの書式を通貨にすると¥マークがついてしまいます。
合計は付いてもいいのですが、内訳には¥マークを付かないように桁区切りだけにしたいのです。
そのため、書式に『###,##0』としました。
できましたが、小数点以下が表示されません。
小数点を表示したいので『###,##0.###』としたら、『59,180.000』となってしまいます。
小数点の指定を自動から3桁表示に変えましたが、うまくいきません。
教えていただきたい内容としては、
・金額の表示に桁区切りのカンマを付けたい。
・でも¥マークは付けたくない。
・小数点以下該当があるもののみ3桁まで表示させたいが(5,500.365)、
小数点以下がないものは小数点以下は表示させたくない(5,400)。
ぜひともアクセスを使いこなしている方、お教えください。
No.2ベストアンサー
- 回答日時:
この内容からですと、[金額]フィールドを「レコードの内容により、書式を変えたい」と
いうことですので、テキストで処理する方法よりないかと思います。(Access2000)
VBAによる「ユーザー定義関数」を使う方法ですが、それで良かったら手順を
詳しく書きますので、テストしてみてください。
・テーブルのデザインで[金額]フィールドを「数値型」の「単精度浮動小数点型」か
「倍精度浮動小数点型」にします。
・「モジュール」の新規作成で開いたコードウィンドウに下記コードをコピーして
貼り付けます。
・フォームのレコードソースにするためのクエリを作成します。
必要なフィールドをQBEグリッド(画面の下側)にドラッグした後、
新規フィールドに 例えば、 金額Txt:Valtxt([金額]) と入力します。
・レポートの[金額]のコントロールソースに、この[金額T]を指定します。
この書式で「配置」を右に設定します。
これで、少数部がない数値は、整数部だけを表示し、位取りの , が付きます。
小数部がある場合は、4位を四捨五入します。(通常と同じ)
その結果、右側に 0 が付いた場合は、表示しません。
ご承知の上とは思いますが、表形式の場合、少数点位置が揃わなくなりますので
見ずらくなってしまいます。
このようなもので如何でしょうか。
Function Valtxt(V As Double) As String
Dim T As String
Dim N As Integer
T = Format(V, "#,##0.000")
For N = Len(T) To InStr(T, ".") Step -1
If Mid(T, N, 1) = "0" Then
T = Left(T, N - 1)
Else
Exit For
End If
Next N
If Right(T, 1) = "." Then T = Left(T, Len(T) - 1)
Valtxt = T
End Function
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_04.png?e8efa67)
No.5
- 回答日時:
ごーめーんーなーさーい!!!No1です。
できませんでした。。。間違っていましたぁぁぁ。
罪滅ぼしに、ちゃんと調べてみました↓
[書式]に「#,###.###」と入力。
[小数点]に「自動」を設定。
これで、桁数に応じて小数点が変わるようになります。
けど・・・小数点がないときも「.」が出る、というデメリットが。
なので、他回答者さんのようにVBAを加えた処理がいいのかも知れません。
ちなみに、これもまた罪滅ぼしに「どっかで設定がないか?」と探しましたが、
Accessのメニューやプロパティには該当するものはありませんでした。
失礼しました。。。
この回答への補足
いえいえ。
でも、やっぱりできませんでした。
そーなんですよ、『.』が表示されちゃうのは困るんですよねぇ。
いろいろありがとうございました。
No.4
- 回答日時:
> 残念ながら私には高度すぎてちょっとできそうにありません。
クエリーなど作ったことがあれば、説明のとおりやっていただければ
できると思いますよ。
VBAの中身は、深く考えないで、そのままコピーすると
Valtxt関数が使えるようになります。
一般の関数のように Valtxt(1234.5678) とすると
1,234.568 と返ってきます。
この回答への補足
何度も回答ありがとうございます。
とりあえず回答を印刷して会社に持っていってみようと思います。
小数点位置がそろわないのがちょっと見にくそうなので、今回は勉強として試すだけやってみようと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
アクセスのフォームにカンマ区切りで数値を入力し、そのまま反映させデータ
Access(アクセス)
-
Access ¥マークを表示しない
Excel(エクセル)
-
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
-
4
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
5
accessのレポートであとから他のテーブルのフィールドを追加する方法
Access(アクセス)
-
6
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
9
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
10
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
11
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
12
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
13
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
14
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
15
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
16
アクセス集計クエリでの書式設定
Access(アクセス)
-
17
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
18
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
19
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
20
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access テキスト型を日付/時刻...
-
Accessの桁区切りについ...
-
「年」と「月」だけの日付の表...
-
アクセス データエクスポート...
-
ACCESS 日付型でEXCEL出力
-
ワードで入力できる文字数を制...
-
Accessでの入力規則について
-
Access条件付き書式について
-
アクセスのフォームで、桁数を...
-
アクセス集計クエリでの書式設定
-
和暦で入力してそのままテーブ...
-
アクセスのクエリで秒→時間、時...
-
日付型のフィールドに空白を入...
-
差込印刷での全角表示について...
-
SQL文で パラメータが少なすぎ...
-
Accessのテーブルのフィールド...
-
Access テーブルを分割してエク...
-
アクセスのエラー「クエリには...
-
ACCESSでテーブルをコピーしよ...
-
アクセスで追加した項目に全て...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessの桁区切りについ...
-
「年」と「月」だけの日付の表...
-
アクセスのクエリで秒→時間、時...
-
アクセス データエクスポート...
-
Word2010の差込印刷で金額にコ...
-
アクセス集計クエリでの書式設定
-
フォーム データシートビューで...
-
Access2013にてハイパーリンク...
-
Access テキスト型を日付/時刻...
-
ワードで入力できる文字数を制...
-
Access2016 フォームで特定の文...
-
AccessVBAでフィールドのデータ...
-
アクセス クエリ 時間の合計
-
ACCESSで、コンマを付けてCSVを...
-
ユニオンクエリの書式について
-
access2007 日付 全角
-
ACCESS 日付型でEXCEL出力
-
アクセスのフォームで、桁数を...
-
Accessでの入力規則について
-
Access条件付き書式について
おすすめ情報