Access2010 伝票入力フォームで処理日入力で税率を参照させたい

##質問内容
いつもお世話になっております。
Access2010で伝票管理システムを作成している者です。

伝票を入力するフォームを作り、そこに処理日のテキストボックスと税率のテキストボックスを設置しました。

処理日は伝票テーブル(入力用)の処理日(F_ProcessDate)のフィールドを参照しており、税率は今のところ非連結です。

処理日を入力すると税率を表示できるようにしたいです。

下記にそれぞれのテーブルを載せときます。

＜入力用伝票テーブル(T_WSlip)＞

フィールド名	データ型	備考
F_SlipCode	テキスト型	伝票コード
F_StaffCode	テキスト型	担当者コード
F_CustomerCode	テキスト型	顧客コード
F_ApplyCode	テキスト型	適用コード
F_ProcessDate	日付/時刻型	処理日
F_Apply	長整数型	割引した値

＜税率テーブル(T_Tax)＞

フィールド名	データ型	備考
F_TaxRateCode	テキスト型	税率コード
F_TaxRate	長整数型	税率
F_ChangeDate	日付/時刻型	税率の変更日
F_AddDate	日付/時刻型	追加日
F_UpdateDate	日付/時刻型	更新日

以上、回答よろしくお願いいたします。
なお、不明な点があればコメントください。

sazi

2019/06/06 01:57 編集

T_Taxの一意キーは(F_TaxRateCode, F_ChangeDate)ですか？税率コードとは具体的にどういった内容のものですか？

退会済みユーザー

2019/06/06 02:07

saziさんありがとうございます。一意キーとは何でしょうか？主キーならF_TaxRateCodeです。税率コードは、税率マスタで登録するときの番号です。いままでの顧客コードなどと同じです。

sazi

2019/06/06 02:17

F_TaxRateCodeは単なる連番で意味を持たないという事ですね。一意キーは( F_ChangeDate)で、税率に対してF_ChangeDateで履歴状態となり、処理日によってデータを選択するという事でしょうか。

退会済みユーザー

2019/06/06 02:24

はい、その解釈で大丈夫です。例えばF_ChangeDateを2019/4/1として税率を8％とします。すると、伝票入力の方で処理日を2019/4/5と入力すると、税理のテキストボックスに8と表示されるようにしたいのです。という説明で大丈夫でしょうか。

Orlofsky

2019/06/06 02:43 編集

10月1日から通常の消費税率 10% と軽減税率 8% に別れますから、対応が必要では？ https://www.intage.co.jp/gallery/keigenzeiritsu/

行動規範の内容に同意します

回答2件

非連結テキストボックスに表示させるだけなら、コントロールソースを下記のように設定すればいいでしょう。

=DLookup("F_TaxRate","T_Tax","[F_ChangeDate]=DMax('F_ChangeDate','T_Tax','[F_ChangeDate]<=#" & [処理日のテキストボックス] & "#)'")

ただし、これをどう利用するかは、フォームやテーブルの詳細が不明なので、回答不能。

投稿2019/06/06 02:29

hatena19

総合スコア33715

ベストアンサー

処理日の更新後処理イベントで以下の処理を行うようにしてみて下さい。
※処理日のコントロールは日付型を前提

VBA
1Dim wChangeDate As Date
2wChangeDate = DMax("F_ChangeDate", "T_Tax", "F_ChangeDate <=#" & [処理日のコントロール] & "#")
3[税率のコントロール] = DLookUp("F_TaxRate", "T_Tax", "F_ChangeDate=#" & wChangeDate & "#")