Access (VBA)

Access VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Pro : Access 2013)
見積書に商品名を表示したい
投稿日時: 21/02/26 13:46:00
投稿者: raika

お世話になります。
 
Accessにて見積書を作成するシステムの変更試みていますが
上手く行かず困っております。
 
現在の仕様は見積書へ商品名は表示されず品目だけを表示するような形式になっております。
例えば、白菜、人参=野菜、さくらんぼ、りんご=果物の様な形式で表示され合計額等が算出されます。
これを品名一つ一つをきちんと見積り書へ表示したいのですが上手くいきません。
 
見積書の作成手順として、まず品目を選択して、その下のフォームにて選択した品目で登録されてある商品を選び数等を入力します。
その後、登録ボタンを押すことで選んだ商品が品目として一まとめになって見積書一覧に登録され、見積書のボタンを押すと見積書が表示されます。
 
大まかな説明で申し訳ありませんが、少しずつ解決して行きたいです。
アドバイスをお願い致します。

回答
投稿日時: 21/02/26 14:33:41
投稿者: sk

以下のようなテーブルが定義されているのであれば、まずは
それぞれのテーブルの定義内容(テーブルの名前、各フィールドの
名前/データ型、どのフィールドが主キーであるかなど)を
具体的に明記されることをお奨めします。
 
・見積書テーブル
 
・見積書明細テーブル
 
・商品テーブル
 
・品目テーブル
 

引用:
現在の仕様は見積書へ商品名は表示されず品目だけを表示するような形式になっております。
例えば、白菜、人参=野菜、さくらんぼ、りんご=果物の様な形式で表示され合計額等が算出されます。
これを品名一つ一つをきちんと見積り書へ表示したいのですが上手くいきません。

1. [見積書テーブル]をレコードソースとする単票フォームがある。
 
2. [見積書明細テーブル]をレコードソースとする帳票フォームがある。
 
3. 1 の単票フォームの詳細セクション上に、2 の帳票フォームをソースオブジェクトとする
   サブフォームコントロールが配置されており、両者のレコードはフィールド[見積書ID]同士で
   リンクしている。
 
以上のようなデザインになっているのであれば、
まず「個々の商品を識別するための値( ID または名称)」を
格納するためのフィールドが(品目のそれとは別に)
[見積書明細テーブル]に定義されているのか否かを示して下さい。

投稿日時: 21/02/28 04:07:10
投稿者: raika

遅くなってすみません。
ご指摘を確認しながら調べてみました。
後半の質問が分からなかったので分かった部分をご返信させて頂きます
 
◯テーブル◯
 
---------------見積書テーブル(sv_Quotation)--------------------
フィールド名 🔑ID
データ型 数値型
QuotationID
 短いテキスト
QuotationADate
日付/時刻型
QuotationCd
数値型
ReferenceNumber //照会番号
 短いテキスト
Deadline //納期
短いテキスト
DeliveryPlace //受渡場所
短いテキスト
Subject //件名
短いテキスト
PaymentTerm //支払条件
短いテキスト
expiration //見積期限
短いテキスト
discount //割引
通貨型
remarks1,2,3,4,5
短いテキスト
 
-------------見積書明細テーブル(sv_QuotationDetail)-------------
フィールド名🔑 ID
データ型 数値型
🔑ParentItemCd
数値型
🔑DetalNo
数値型
ItemCode
数値型
ItemName
短いテキスト
Quantity
数値型
UnitName
短いテキスト
UnitPrice
通貨型
Amount
通貨型
ParentItemName
短いテキスト
  
----------lc_QuotationDetail-------
🔑DetailNo
数値型
ItemCd
数値型
ItemName
短いテキスト
Quantity
数値型
UnitName
短いテキスト
UnitPrice
通貨型
Amount
通貨型
 
-----------------------商品テーブル(svm_Item)------------------------
フィールド名 🔑ItemCode
データ型 数値型
ParentItemCode
数値型
ItemName
短いテキスト
Model1
短いテキスト
Model2
短いテキスト
StandardUnitPrice
通貨型
UnitPrice1,2,3,4,5
通貨型
Cost
通貨型
UnitName
データ型
 
-----------------------品目テーブル(svm_ParetItem)------------------------
フィールド名 🔑ParentItemCode
データ型 数値型
ParentItemName
短いテキスト型
 
 
 
◯SQL◯
 
--------sql_Quotation-------
🔑ID
🔑ParentItemCd
🔑DetailNo
ItemCd
ItemName
Quantity
UnitName
UnitPrice
Amount
ParentItemName
Amount
ParentItemName
 
表示項目
ID
ParentItemCd
Amount:Amount
ParentItemName
 
 
--------lc_QuotationDetail--------
(ナビゲーションウィンドウには載っていない。)
 
🔑DetailNo
ItemCd
ItemName
Quantity
UnitName
UnitPrice
Amount
 
表示項目
DetailNo
 
 
◯サブフォーム◯
 
-----------FS_QuotationDetail-----------
表示項目
ID
品名
数量
単位
売上単価
売上金額
 
レコードソース
SELECT lc_QuotationDetail.* FROM lc_QuotationDetail ORDER BY lc_QuotationDetail.DetailNo;
 
------------FS_QuotationParentItem---------
表示項目
 
集計品名
金額
合計
 
レコードソース
SELECT sql_Quotation.* FROM sql_Quotation WHERE sql_Quotation.ID = 0 ORDER BY sql_Quotation.ParentItemCd;
と表示されています。
 
 
宜しくお願い致します。

投稿日時: 21/02/28 04:19:35
投稿者: raika

すみません、コメントの種類がお礼となっておりましたのでもう一度送信させて頂きます。
  
◯テーブル◯
  
---------------見積書テーブル(sv_Quotation)--------------------
フィールド名 🔑ID
データ型 数値型
QuotationID
 短いテキスト
QuotationADate
日付/時刻型
QuotationCd
数値型
ReferenceNumber //照会番号
 短いテキスト
Deadline //納期
短いテキスト
DeliveryPlace //受渡場所
短いテキスト
Subject //件名
短いテキスト
PaymentTerm //支払条件
短いテキスト
expiration //見積期限
短いテキスト
discount //割引
通貨型
remarks1,2,3,4,5
短いテキスト
  
-------------見積書明細テーブル(sv_QuotationDetail)-------------
フィールド名🔑 ID
データ型 数値型
🔑ParentItemCd
数値型
🔑DetalNo
数値型
ItemCode
数値型
ItemName
短いテキスト
Quantity
数値型
UnitName
短いテキスト
UnitPrice
通貨型
Amount
通貨型
ParentItemName
短いテキスト
   
----------lc_QuotationDetail-------
🔑DetailNo
数値型
ItemCd
数値型
ItemName
短いテキスト
Quantity
数値型
UnitName
短いテキスト
UnitPrice
通貨型
Amount
通貨型
  
-----------------------商品テーブル(svm_Item)------------------------
フィールド名 🔑ItemCode
データ型 数値型
ParentItemCode
数値型
ItemName
短いテキスト
Model1
短いテキスト
Model2
短いテキスト
StandardUnitPrice
通貨型
UnitPrice1,2,3,4,5
通貨型
Cost
通貨型
UnitName
データ型
  
-----------------------品目テーブル(svm_ParetItem)------------------------
フィールド名 🔑ParentItemCode
データ型 数値型
ParentItemName
短いテキスト型
  
  
  
◯SQL◯
  
--------sql_Quotation-------
🔑ID
🔑ParentItemCd
🔑DetailNo
ItemCd
ItemName
Quantity
UnitName
UnitPrice
Amount
ParentItemName
Amount
ParentItemName
  
表示項目
ID
ParentItemCd
Amount:Amount
ParentItemName
  
  
--------lc_QuotationDetail--------
(ナビゲーションウィンドウには載っていない。)
  
🔑DetailNo
ItemCd
ItemName
Quantity
UnitName
UnitPrice
Amount
  
表示項目
DetailNo
  
  
◯サブフォーム◯
  
-----------FS_QuotationDetail-----------
表示項目
ID
品名
数量
単位
売上単価
売上金額
  
レコードソース
SELECT lc_QuotationDetail.* FROM lc_QuotationDetail ORDER BY lc_QuotationDetail.DetailNo;
  
------------FS_QuotationParentItem---------
表示項目
  
集計品名
金額
合計
  
レコードソース
SELECT sql_Quotation.* FROM sql_Quotation WHERE sql_Quotation.ID = 0 ORDER BY sql_Quotation.ParentItemCd;
と表示されています。
  
  
宜しくお願い致します。

回答
投稿日時: 21/03/01 09:59:03
投稿者: Suzu

引用:
これを品名一つ一つをきちんと見積り書へ表示したいのですが上手くいきません。

 
この表示を行いたい 「見積り書」のサブフォーム が
 
引用:
-FS_QuotationDetail-----------
表示項目
ID
品名
 :

なのでしょうか?
 
拝見するかぎり、「品名」がありますよね?
 
表示したい 「見積り書」は、上記の FS_QuotationDetail とは別なのですか?
 
 
その表示を行いたい オブジェクトのレコードソースに
品名(フィールド名で言うところの ItemName になるのでしょうか?) が含まれているのか?
それを確認しましょう。

トピックに返信