Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
793 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10047】レポート／条件付書式／小数点以下桁数 miya×2 07/12/3(月) 12:01 質問[未読]
【10048】Re:レポート／条件付書式／小数点以下桁数 Gin_II 07/12/3(月) 12:56 回答[未読]
【10050】Re:レポート／条件付書式／小数点以下桁数 VBWASURETA 07/12/3(月) 14:16 発言[未読]
【10100】Re:レポート／条件付書式／小数点以下桁数 miya×2 07/12/13(木) 16:00 お礼[未読]
【10047】レポート／条件付書式／小数点以下桁数
質問  miya×2  - 07/12/3(月) 12:01 -
引用なし
パスワード
   いつもお世話になっております<m(__)m>。

Access2000にてレポートを作成しているのですが、フィールド(ここでは「金額」とします)の書式を、

小数点以下あり⇒小数点以下２桁
小数点以下なし⇒小数点以下０桁

と変化させたいのです。
普通の条件付書式には対応するものがないのですが、コードで可能でしょうか？

1で割った余りによって振り分けることができるかな？
というところは思いついたのですが、
書式欄にどのようにコードを書いたらよいのか判りません。

何か方法をご存知でしたらご教授いただきたく、よろしくお願いいたします。
【10048】Re:レポート／条件付書式／小数点以下桁数
回答  Gin_II  - 07/12/3(月) 12:56 -
引用なし
パスワード
   >書式欄にどのようにコードを書いたらよいのか判りません。

書式プロパティでは対応できないと思います。
テキストボックスのコントロールソースプロパティに、

=IIf([金額]=Int([金額])
　 , Format([金額], "#,##0")
　 , Format([金額], "#,##0.00")

のように記述してみてください。
【10050】Re:レポート／条件付書式／小数点以下桁数
発言  VBWASURETA  - 07/12/3(月) 14:16 -
引用なし
パスワード
   ▼Gin_II さん：

こんにちは。

ちょっと気になったのですが、
>=IIf([金額]=Int([金額])

Int関数は最大サイズとか大丈夫でしょうか？

それほど大きい桁の金額でなければ大丈夫と思いますが＾＾；
【10100】Re:レポート／条件付書式／小数点以下桁数
お礼  miya×2  - 07/12/13(木) 16:00 -
引用なし
パスワード
   お礼が遅くなり、大変失礼を致しました<m(__)m>。

ご教授いただいた方法で無事、解決いたしました。
ちなみにINT関数で桁数的にも問題なかったので、よかったです。

本当にありがとうございました<m(__)m>
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
793 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free