Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2070 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4024】ﾌｫｰﾑやﾚﾎﾟｰﾄのﾃｷｽﾄﾎﾞｯｸｽの数字の表示方法で masa 04/12/14(火) 11:01 質問[未読]
【4025】Re:ﾌｫｰﾑやﾚﾎﾟｰﾄのﾃｷｽﾄﾎﾞｯｸｽの数字の表示方法... MJ 04/12/14(火) 11:59 回答[未読]
【4026】Re:ﾌｫｰﾑやﾚﾎﾟｰﾄのﾃｷｽﾄﾎﾞｯｸｽの数字の表示方法... Hanahana 04/12/14(火) 16:48 回答[未読]
【4033】Re:ﾌｫｰﾑやﾚﾎﾟｰﾄのﾃｷｽﾄﾎﾞｯｸｽの数字の表示方... masa 04/12/15(水) 10:32 お礼[未読]
【4024】ﾌｫｰﾑやﾚﾎﾟｰﾄのﾃｷｽﾄﾎﾞｯｸｽの数字の表示方法で
質問  masa  - 04/12/14(火) 11:01 -
引用なし
パスワード
   ﾌｫｰﾑやﾚﾎﾟｰﾄのﾃｷｽﾄﾎﾞｯｸｽの数字の表示方法で

1　 　→1.0　 ○　←少数点以下の数字がゼロの時だけゼロを一つ表示させたい。
1　 　→1.00　×

1.27　→1.27　○ ←少数点以下の数字がある時はそのまま表示させたい。
1.27　→1.270 ×

との用に少数点以下が無いときだけ　".0"　の用にゼロを一つ表示させたいのですが
可能でしょうか？
よろしくお願いします。
【4025】Re:ﾌｫｰﾑやﾚﾎﾟｰﾄのﾃｷｽﾄﾎﾞｯｸｽの数字の表示方...
回答  MJ  - 04/12/14(火) 11:59 -
引用なし
パスワード
   こんにちは。

以下のような感じにされては如何でしょう。
フォームの場合は、更新後処理イベント、
レポートの場合は、フォーマット時イベントになりますでしょうか。

Dim intDigit As Integer

If InStr([コントロール名], ".") = 0 Then
　　intDigit = 0
Else
　　intDigit = Len([コントロール名]) - InStr([コントロール名], ".")
End If
　　
If intDigit < 2 Then
　　[コントロール名] = Format([コントロール名], "0.0")
Else
　　[コントロール名] = Format([コントロール名], "0." & String(intDigit, "0"))
End If
【4026】Re:ﾌｫｰﾑやﾚﾎﾟｰﾄのﾃｷｽﾄﾎﾞｯｸｽの数字の表示方...
回答  Hanahana  - 04/12/14(火) 16:48 -
引用なし
パスワード
   テキストボックスの書式に 0.0##### とします。

1　　　　→ 1.0
1.2　　　→ 1.2
1.23　　 → 1.23
1.234　　→ 1.234
1.2345　 → 1.2345
1.23456　→ 1.23456
【4033】Re:ﾌｫｰﾑやﾚﾎﾟｰﾄのﾃｷｽﾄﾎﾞｯｸｽの数字の表示方...
お礼  masa  - 04/12/15(水) 10:32 -
引用なし
パスワード
   できました！

こんな簡単な設定で出来るとは････
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2070 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080772
(SS)C-BOARD v3.8 is Free