0

私はショッピング プログラム - msAccesss 2016 を作成しています。購入するアイテムの一部は、少なくとも 10 個購入した場合、0.06100 ドルのような価格の電気部品です。これを数量と単価をリストボックスに表示しようとしています。リスト ボックスでは、価格がセントに丸められます。$0.06100 全体をリスト ボックスに表示する方法を知っている人はいますか? テーブルのデータシート ビューと、リスト ボックスにバインドされているクエリのデータシート ビューに OK が表示されます。

詳細: この情報を含む Shopper の部分は、PriceLists というテーブルです。それは持っています：

  1. RecNo (主キーの自動採番)
  2. VendorNo - Vendor テーブルへの外部キー - 行はベンダーの価格を表します。
  3. PartNo - 部品テーブルへの外部キー - 行は部品のベンダーの価格を表します。
  4. 数量 - 価格を取得するために注文する必要がある部品の少なくとも数
  5. 価格 - 小数点第 5 位までのアイテムの価格 (米ドル)。
  6. LastChangedDate - この行に対する最終変更の実際のタイムスタンプ。

プログラムのパーツ カタログ機能は、すべてのパーツの検索画面を表示することから始まります。ユーザーは、必要な部品とベンダーを決定し、選択します。それは私に問題を引き起こしているフォームが表示されるときです。これは部品データにバインドされており、リスト ボックスに数量割引のある価格を表示するリスト ボックスがあります。ベンダーの Web サイトからデータを取得し、PriceLists テーブルに追加します。各行が追加されると、リスト ボックスに表示されます。価格は、PriceLists テーブルで小数点以下 5 桁の通貨として定義されます。

インターネット上でこの問題に関する議論はどこにも見つかりませんでした。だから私は唯一の人か、それは簡単で、単純なものが欠けています。私は vba を使用してフォームを駆動し、リスト ボックスやその他のコントロールを設定しているので、vba ソリューションはまさに私が探しているものです。

ありがとう

4

2 に答える 2

1

FormatCurrency([式], [桁数]) または FormatNumber([式], [桁数]) を使用します。どちらも [式] を文字列として [桁数] に丸めます

FormatCurrency([0.06100], 5) は「$0.06100」を返します

FormatNumber([0.06100], 5) は「$0.06100」を返します

MSDNから取得したメソッド シグネチャは次のとおりです。

フォーマット通貨

Function FormatCurrency(
   ByVal Expression As Object,
   Optional ByVal NumDigitsAfterDecimal As Integer = -1,
   Optional ByVal IncludeLeadingDigit As TriState = TriState.UseDefault,
   Optional ByVal UseParensForNegativeNumbers As TriState = TriState.UseDefault,
   Optional ByVal GroupDigits As TriState = TriState.UseDefault
) As String

フォーマット番号

Function FormatNumber(
   ByVal Expression As Object,
   Optional ByVal NumDigitsAfterDecimal As Integer = -1,
   Optional ByVal IncludeLeadingDigit As TriState = TriState.UseDefault,
   Optional ByVal UseParensForNegativeNumbers As TriState = TriState.UseDefault,
   Optional ByVal GroupDigits As TriState = TriState.UseDefault
) As String
于 2016-06-17T05:36:54.177 に答える