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

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

コンボボックス

GUIの要素のひとつです。Listboxと同様にいくつかのうちひとつを選択する機能だが、Comboboxの場合は選択されたもののみがデフォルトとして表示される。

Q&A

解決済

2回答

8768閲覧

ACCESSのコンボボックスと連動したテキストボックスの書式設定

yume

総合スコア10

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

コンボボックス

GUIの要素のひとつです。Listboxと同様にいくつかのうちひとつを選択する機能だが、Comboboxの場合は選択されたもののみがデフォルトとして表示される。

0グッド

0クリップ

投稿2019/06/28 05:07

前提・実現したいこと

現在、ACCESSでフォームを作っています。

その中でコンボボックスを見積(別テーブル)にある見積番号を参照して、その中にある見積金額を連動させたテキストボックスに表示させています。
(コンボボックスでは見積番号を表示)

テキストボックスに表示されている金額を¥#,##0のように三桁ごとにカンマを入れたいのですが、¥20000のように表示されてしまいます。

そのテキストボックスのコントロールソースは
="¥" & 見積番号.Column(1)
としてあります。

ちなみに、見積テーブルの見積金額のデータ型は通貨型になっており、
テーブルを直接見ると¥#,##0の形式で表示されています。
が、コンボボックスで表示されているのは数字のみになっています。

また、見積金額を表示させているテキストボックスは非連結テキストボックスです。

試したこと

該当テキストボックスのプロパティ内の書式に#,##0と入力してみたり、標準や通貨に切り替えてみたりはしました。

また、見積金額のデータ型を数値に変更しVBAで
FormatCurrency (Me.見積金額)
としてみましたが、何も変わりませんでした。

よろしくお願いします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

テキストボックスのコントロールソースを、
=最終見積番号.Column(1)
として、書式プロパティを、
通貨 または \#,##0
と設定しましょう。

="¥" & 見積番号.Column(1)
と設定すると、数値ではなく文字列になってしまいますので、通貨に対する書式を設定しても無視されます。

=Format(最終見積番号.Column(1),"\#,##0")
でも表示はご希望のものになりますが、やはり文字列になりますので、それを使って計算はできなくなります。
例えば、消費税を付加しようとして、
=[見積金額]*1.08
としてもエラーになります。

投稿2019/06/28 11:34

hatena19

総合スコア33620

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

yume

2019/07/01 02:18 編集

回答ありがとうございます。 今回の、このテキストボックス内の値は特にテーブルに格納せずに、フォーム上でUIの向上目的で見られるようにしようとしているだけなので、テキスト型になっても、見積テーブル上が通貨型のままであれば支障はないと考えています。 また、バージョンを2003で開発している関係なのか、該当テキストボックスの書式プロパティを変更しても、表示が一切変わらず、半ば、あきらめもあります。 今後、ようやく最新バージョンに変えようかという話が出てきたので、そのときに再度、書式プロパティで設定しようと思います。
hatena19

2019/07/01 02:13

=Value(最終見積番号.Column(1)) として数値型に強制変換したらどうでしょうか。
yume

2019/07/01 02:15

補足させていただきます。 テキストボックスのコントロールソースを"=最終見積番号.Column(1)"とし、 書式を変更しても、表示は数字のみになっていました。 データ型のことまで教えていただき非常に参考になりました。
yume

2019/07/01 02:25

=Value(最終見積番号.Column(1))にしたところ #Name?のエラーが表示されてしまいました。
hatena19

2019/07/01 02:44

関数間違えてました(;^ω^) =Val(最終見積番号.Column(1)) としてください。
yume

2019/07/01 04:06

できました。 ありがとうございました。 sazi様、hatena19様、どちらも参考になりました。 悩みましたが、今回はいろいろ丁寧に対応してくださったこちらをベストアンサーにさせていただきます。 本当にありがとうございました。
guest

0

\はエスケープ記号ですので、書式指定時に指定する場合は\#,##0のように指定する必要があります。
コントロールソースで行う場合はformat()で同じように書式を指定します。

投稿2019/06/28 05:29

sazi

総合スコア25138

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

yume

2019/06/28 05:42

早速の回答ありがとうございます。 書式のほうではやはりできませんでしたが、コントロールソースに =Format(最終見積番号.Column(1),"\#,##0") と入れたらできました。 ちなみにですが、コンボボックス内のほうの書式を変えることは可能でしょうか? 数字だけだと少し見難いので・・・
sazi

2019/06/28 06:04

新たに表示用の列をコンボボックスの値集合ソース追加し、現状のColumn(1)は幅0cmにして非表示にすれば良いと思います。
yume

2019/07/01 02:34

参考にしている見積テーブルの見積金額のデータ型を何度か数値と通貨などで行ったり来たりしているうちに、コンボボックス内の書式が希望の表示になりました。(最終的に見積もり金額のデータ型は通貨) コンボボックスのリスト幅もいじったりしていたので、もしかしたら、リスト幅や列幅が悪さをしていたのかもしれません。 ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

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

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

質問する

関連した質問