アクセス、伝票入力のデータ操作

Access実践入門　ＴＯＰへ

■ マイクロソフトアクセス、伝票入力－１（伝票入力のデータ操作）
	テーブル・データを２つに分ける伝票データは「ta請求」と「ta請求明細」の２つのデータを用意しています。「ta請求」は、伝票の合計金額を保存します。請求一覧表は、このデータだけで作成できます。「ta請求明細」は、伝票の明細を保存します。明細を必要とする、請求書、元帳等で、必要です。・実際の入力には、作業データを使う。伝票入力画面では、「ta請求」「ta請求明細」は直接使いません。作業テーブルを使って編集し、データのチェックをした後、登録することになります。明細データは何行入力されるか、わかりませんし、直接データを編集していて、データにトラブルが発生すると困りますので。「to請求」と「to請求明細」が作業用のテーブルです。
	伝票一覧画面マスター登録と同じような構成です。一覧表が、日付の降順に表示されて、新規登録ボタンで新規の伝票、編集ボタンで、入力済み伝票の編集画面へと移ります。納品書ボタンは、後述します。検索、初期画面は、伝票が多くなってきた時に、日付と得意先で抽出出来るようにしています。
	伝票入力画面「fo伝票入力」のデザインを見てください。単票入力になっています。下に、サブフォームが貼ってあります。日付とか、得意先の情報をメインのフォームで登録して、明細データを、下のサブフォームで入力します。サブフォームは大変便利な機能です。別のフォームですから、レコードソースも別になりますので、サブフォームを使えば、１つのフォームでいろんなテーブルのデータを編集する事ができます。・伝票入力の流れ「新規登録」の場合は、「to請求明細」に空白行を２０行作り、それをレコードソースにして、編集し、登録ボタンが押されたら、入力された行数だけ「ta請求」と「ta請求明細」にデータが追加されます。「編集」の場合は、「to請求明細」に明細データがコピーされて、２０行に足りない行数だけ空白行を作り、それをレコードソースにして、編集し、登録ボタンが押されたら、「ta請求」と「ta請求明細」に入力された行数だけ追加されます。その後、元の「ta請求」と「ta請求明細」が削除されます。
	新規登録の前処理伝票一覧表で、[新規登録]ボタンがクリックされると、マクロ「ma伝票」の「新規入力」が呼び出されます。「ma伝票」のデザインを見てください。まず、削除クエリー「quto削除請求」と「quto削除請求明細」で、作業テーブルを空にします。次にモジュール「den_1()」が呼び出されます。「to請求明細」に２０行の空データを作ります。モジュール「Module」の「den_1()」を説明します Public Function den_1() 　1　Dim dbs As Database 　2　Dim rst_1 As Recordset 　3　Dim i As Integer 　4　Set dbs = CurrentDb 　5　Set rst_1 = dbs.OpenRecordset("to請求明細", dbOpenTable) 　6　　i = 1 　7　　Do Until i = gmax + 1 　8　　　　rst_1.AddNew 　9　　　　rst_1!行番号 = i 10　　　　rst_1!商品番号 = "" 11　　　　rst_1!商品名 = "" 12　　　　rst_1!数量 = 0 13　　　　rst_1!単位 = "" 14　　　　rst_1!単価 = 0 15　　　　rst_1!金額 = 0 16　　　　rst_1!消費税 = 0 17　　　　rst_1!明細摘要 = "" 18　　　　rst_1.Update 19　　　　i = i + 1 20　　Loop 21　　rst_1.Close 22　　inpmode = 0 End Function １～３行目は、変数の宣言です。３行目のiには１～２０までの行番号が入ります。４，５行目はテーブルを空けるためのお決まりの形です６行目で、iの初期値を１にしています。７行目のgmaxは、モジュールの先頭でプログラム全体から参照できる変数として宣言しています。その値は、「fo伝票一覧」の「読み込み時」に２０を代入しています。 Do Until i = gmax + 1は iの値が２０＋１、すなわち２１になるまで、２０行目のLoopまでの処理を繰り返すという命令です。２０で通過して、１９行目で２１になった時に、２１行目に進みます。８～１８行目では、数値項目には、ゼロを文字列項目には、""（ダブルクォーテーション２つで空のデータ）を代入しています。１９行目で１レコード追加しています。２０行目で、iを１つ増やしています。９行目の行番号だけは、１～２０の数字が入ります。２２行目で入力モードを新規の０にしています。その後、「fo伝票入力」を開いて、コントロールを[請求日]に移動して、新規の伝票入力の状態になります。
	編集の前処理伝票一覧表で、[編集]ボタンがクリックされると、マクロ「ma伝票」の「編集」が呼び出されます。「ma伝票」のデザインを見てください。まず、削除クエリー「quto削除請求」と「quto削除請求明細」で、作業テーブルを空にします。次に、「quto追加請求」と「quto追加請求明細」で、一覧表で選ばれた、入力済みの「ta請求」と「ta請求明細」のデータを作業テーブルへコピーします。次にモジュール「den_4()」が呼び出されます。「to請求明細」が２０行のデータになるように、足りない行数の空データを追加します。モジュール「Module」の「den_4()」を説明します Public Function den_4() 　1　Dim dbs As Database 　2　Dim rst_1 As Recordset 　3　Dim lastgy As Integer 　4　Dim t As Integer 　5　Set dbs = CurrentDb 　6　Set rst_1 = dbs.OpenRecordset("to請求明細", dbOpenTable) 　7　　t = 0 　8　　rst_1.Index = "行番号" 　9　　rst_1.MoveLast 10　　lastgy = rst_1!行番号 11　　t = lastgy + 1 12　　　Do Until t = gmax + 1 13　　　　rst_1.AddNew 14　　　　rst_1!行番号 = t 15　　　　rst_1!商品番号 = "" 16　　　　rst_1!商品名 = "" 17　　　　rst_1!数量 = 0 18　　　　rst_1!単位 = "" 19　　　　rst_1!単価 = 0 20　　　　rst_1!金額 = 0 21　　　　rst_1!消費税 = 0 22　　　　rst_1!明細摘要 = "" 23　　　　rst_1.Update 24　　　　t = t + 1 25　　　Loop 26　　rst_1.Close 27　　inpmode = 1 End Function １～４行目は、変数の宣言です。３行目のlastgyは入力済みデータの行数です。４行目のtは空白行の行番号の数値が入ります。５，６行目はテーブルを空けるためのお決まりの形です７行目は、tの変数をゼロで初期化しています。８行目は、開くテーブルのインデックスを指定しています。「to請求明細」のデザインで、インデックスを表示してみてください、そこに登録されているインデックス名が、ここで使用できます。９行目で、行番号をインデックスとした最後のレコードに移動しています。１０行目で、最後の行番号をlastgyに代入します。１１行目からは、新規の時と同じようにして、残りの２０行の空データを追加しています。２７行目で入力モードを編集の１にしています。その後、「fo伝票入力」を開いて、編集入力の状態になります。
	伝票登録時の処理伝票入力で[登録]ボタンが押されると、作業テーブルから「ta請求」と「ta請求明細」にデータを登録する処理をします。「ma伝票」のデザインを見てください。「新規登録」と「編集登録」があります。違いは、編集登録の場合は、元のデータの削除処理が余分にあるだけです。 ①閉じる（伝票入力フォームを閉じます） ②クエリーを開く（「qu請求追加」） ③プロシージャの実行（den_2()の実行） ④プロシージャの実行（den_3()の実行） ⑤クエリーを開く（「qu請求明細追加」） ⑥クエリーを開く（「qu請求明細削除」）･･･編集登録のみ ⑦クエリーを開く（「qu請求削除」）･･･編集登録のみ ⑧プロシージャの実行（den_5()の実行） ⑨全レコードの表示順番に説明します。 ①でまず、「fo伝票入力」を閉じます。 ②で「to請求」から「ta請求」にデータを追加します。 ③のden_2の内容は、次のようになっています。 Public Function den_2() 　1　Dim dbs As Database 　2　Dim rst_1 As Recordset 　3　Dim rst_2 As Recordset 　4　Set dbs = CurrentDb 　5　Set rst_1 = dbs.OpenRecordset("qu請求最後", dbOpenDynaset) 　6　Set rst_2 = dbs.OpenRecordset("ta会社情報", dbOpenDynaset) 　7　　rst_1.MoveFirst 　8　　denid = rst_1!ID 　9　　denban = rst_1!伝票番号 10　　If inpmode = 0 Then 11　　rst_2.Edit 12　　rst_2!伝票番号 = denban + 1 13　　rst_2.Update 14　　End If 15　rst_1.Close 16　rst_2.Close End Function １～３行目は、変数の宣言です。４～６行目はお決まりの形です。クエリーの場合は、dbOpenDynasetです。 dbOpenDynasetの場合は、インデックスの指定はありません、クエリーで順番をつけておきます。「qu請求最後」はIDの降順に並べてあります「ta会社情報」はリンクテーブルなので, dbOpenTableで開くことはできません。７行目で一番最初のレコードに移動しています。ここの一番最初のデータは、IDの最大値ですから、先程「qu請求追加」で登録されたレコードのはずです。８行目でモジュールの先頭で宣言している、変数denidにID番号を代入します。９行目では、同じくdenbanに伝票番号を代入しています。１０～１４行目は、新規登録の場合には、伝票番号に１をプラスして、会社情報の次回の伝票番号として、「ta会社情報」のレコードを更新しています。「ts会社情報」はレコードが１つしかないので、編集（Edit）で上書き（Update）すれば、書き換えられます。 ④のden_3の内容は、次のようになっています。 Public Function den_3() 　1　Dim dbs As Database 　2　Dim rst_1 As Recordset, rst_2 As Recordset 　3　Dim gyou As Integer 　4　Dim i As Integer 　5　DoCmd.OpenQuery "quto削除請求明細登録" 　6　Set dbs = CurrentDb 　7　Set rst_1 = dbs.OpenRecordset("to請求明細", dbOpenTable) 　8　Set rst_2 = dbs.OpenRecordset("to請求明細登録", dbOpenTable) 　9　　rst_1.Index = "行番号" 10　　rst_1.MoveLast 11　　Do Until rst_1.BOF 12　　　If (IsNull(rst_1!商品番号) Or rst_1!商品番号 = "") And (IsNull(rst_1!商品名) Or rst_1!商品名 = "") And rst_1!数量 = 0 And rst_1!単価 = 0 And rst_1!金額 = 0 Then 13　　　　rst_1.MovePrevious 14　　　Else 15　　　　gyou = rst_1!行番号 16　　　　Exit Do 17　　　End If 18　　Loop 19　rst_1.MoveFirst 20　For i = 1 To gyou 21　rst_2.AddNew 22　rst_2!伝番ID = denid 23　rst_2!行番号 = rst_1!行番号 24　rst_2!商品番号 = rst_1!商品番号 25　rst_2!商品名 = rst_1!商品名 26　rst_2!数量 = rst_1!数量 27　rst_2!単位 = rst_1!単位 28　rst_2!単価 = rst_1!単価 29　rst_2!金額 = rst_1!金額 30　rst_2!消費税 = rst_1!消費税 31　rst_2!明細摘要 = rst_1!明細摘要 32　rst_2.Update 33　rst_1.MoveNext 34　Next i 35　rst_1.Close 36　rst_2.Close End Function １～４行目は、変数の宣言です。５行目では、登録するための作業テーブル「to請求明細登録」の全レコードを削除する削除クエリーを実行しています。「to請求明細登録」を通さないで、直接「ta請求明細」に書くこともできますが、ここでは作業テーブルをまず作って、追加クエリーで登録しています。６～８行目はお決まりの形です。９～１８行目は、何行伝票入力されたかを調べています。９行目で、インデックスを行番号にしています。１０行目で、行番号の最後のレコードに移動しています。１１行目は、レコードの先頭になるまで、１７行目までの処理を繰り返すということになります。実際は２０行目から下に下がって見ていくことになります。１２行目の条件式は、何も入力されていない場合は、１３行目に行って、１つ前のレコードに移動します。もしデータが入力されていれば、１５行目に行って、gyouに行番号を代入して、１６行目で、ループ（繰り返しの構文）から抜けます。 Exit Doは先頭の１行目まで移動しないで、ループから抜けるという命令です。１９行目からは、１行目から今見つけた最後の行までの、明細データを「to請求明細登録」に行数分だけコピー（追加）しています。 ⑤では、作業テーブル「to請求明細登録」を「ta請求明細」に追加クエリーで追加しています。 ⑥と⑦は編集登録の場合のみです。呼び出す前のデータを削除しています。明細から先に削除しないと、リレーションのエラーが出て、削除できません。 ⑧のden_5の内容は、次のようになっています。 Public Function den_5() Form_fo伝票一覧.RecordSource = "qu伝票一覧" End Function データに変更がありましたし、検索等でレコードソースが変わっているかもしれませんので、最初のレコードソースに戻しておきます。 ⑨で全レコードの表示で、全てのレコードを表示しておきます

■ マイクロソフトアクセス、伝票入力－１（伝票入力のデータ操作）
	テーブル・データを２つに分ける伝票データは「ta請求」と「ta請求明細」の２つのデータを用意しています。「ta請求」は、伝票の合計金額を保存します。請求一覧表は、このデータだけで作成できます。「ta請求明細」は、伝票の明細を保存します。明細を必要とする、請求書、元帳等で、必要です。・実際の入力には、作業データを使う。伝票入力画面では、「ta請求」「ta請求明細」は直接使いません。作業テーブルを使って編集し、データのチェックをした後、登録することになります。明細データは何行入力されるか、わかりませんし、直接データを編集していて、データにトラブルが発生すると困りますので。「to請求」と「to請求明細」が作業用のテーブルです。
	伝票一覧画面マスター登録と同じような構成です。一覧表が、日付の降順に表示されて、新規登録ボタンで新規の伝票、編集ボタンで、入力済み伝票の編集画面へと移ります。納品書ボタンは、後述します。検索、初期画面は、伝票が多くなってきた時に、日付と得意先で抽出出来るようにしています。
	伝票入力画面「fo伝票入力」のデザインを見てください。単票入力になっています。下に、サブフォームが貼ってあります。日付とか、得意先の情報をメインのフォームで登録して、明細データを、下のサブフォームで入力します。サブフォームは大変便利な機能です。別のフォームですから、レコードソースも別になりますので、サブフォームを使えば、１つのフォームでいろんなテーブルのデータを編集する事ができます。・伝票入力の流れ「新規登録」の場合は、「to請求明細」に空白行を２０行作り、それをレコードソースにして、編集し、登録ボタンが押されたら、入力された行数だけ「ta請求」と「ta請求明細」にデータが追加されます。「編集」の場合は、「to請求明細」に明細データがコピーされて、２０行に足りない行数だけ空白行を作り、それをレコードソースにして、編集し、登録ボタンが押されたら、「ta請求」と「ta請求明細」に入力された行数だけ追加されます。その後、元の「ta請求」と「ta請求明細」が削除されます。
	新規登録の前処理伝票一覧表で、[新規登録]ボタンがクリックされると、マクロ「ma伝票」の「新規入力」が呼び出されます。「ma伝票」のデザインを見てください。まず、削除クエリー「quto削除請求」と「quto削除請求明細」で、作業テーブルを空にします。次にモジュール「den_1()」が呼び出されます。「to請求明細」に２０行の空データを作ります。モジュール「Module」の「den_1()」を説明します Public Function den_1() 　1　Dim dbs As Database 　2　Dim rst_1 As Recordset 　3　Dim i As Integer 　4　Set dbs = CurrentDb 　5　Set rst_1 = dbs.OpenRecordset("to請求明細", dbOpenTable) 　6　　i = 1 　7　　Do Until i = gmax + 1 　8　　　　rst_1.AddNew 　9　　　　rst_1!行番号 = i 10　　　　rst_1!商品番号 = "" 11　　　　rst_1!商品名 = "" 12　　　　rst_1!数量 = 0 13　　　　rst_1!単位 = "" 14　　　　rst_1!単価 = 0 15　　　　rst_1!金額 = 0 16　　　　rst_1!消費税 = 0 17　　　　rst_1!明細摘要 = "" 18　　　　rst_1.Update 19　　　　i = i + 1 20　　Loop 21　　rst_1.Close 22　　inpmode = 0 End Function １～３行目は、変数の宣言です。３行目のiには１～２０までの行番号が入ります。４，５行目はテーブルを空けるためのお決まりの形です６行目で、iの初期値を１にしています。７行目のgmaxは、モジュールの先頭でプログラム全体から参照できる変数として宣言しています。その値は、「fo伝票一覧」の「読み込み時」に２０を代入しています。 Do Until i = gmax + 1は iの値が２０＋１、すなわち２１になるまで、２０行目のLoopまでの処理を繰り返すという命令です。２０で通過して、１９行目で２１になった時に、２１行目に進みます。８～１８行目では、数値項目には、ゼロを文字列項目には、""（ダブルクォーテーション２つで空のデータ）を代入しています。１９行目で１レコード追加しています。２０行目で、iを１つ増やしています。９行目の行番号だけは、１～２０の数字が入ります。２２行目で入力モードを新規の０にしています。その後、「fo伝票入力」を開いて、コントロールを[請求日]に移動して、新規の伝票入力の状態になります。
	編集の前処理伝票一覧表で、[編集]ボタンがクリックされると、マクロ「ma伝票」の「編集」が呼び出されます。「ma伝票」のデザインを見てください。まず、削除クエリー「quto削除請求」と「quto削除請求明細」で、作業テーブルを空にします。次に、「quto追加請求」と「quto追加請求明細」で、一覧表で選ばれた、入力済みの「ta請求」と「ta請求明細」のデータを作業テーブルへコピーします。次にモジュール「den_4()」が呼び出されます。「to請求明細」が２０行のデータになるように、足りない行数の空データを追加します。モジュール「Module」の「den_4()」を説明します Public Function den_4() 　1　Dim dbs As Database 　2　Dim rst_1 As Recordset 　3　Dim lastgy As Integer 　4　Dim t As Integer 　5　Set dbs = CurrentDb 　6　Set rst_1 = dbs.OpenRecordset("to請求明細", dbOpenTable) 　7　　t = 0 　8　　rst_1.Index = "行番号" 　9　　rst_1.MoveLast 10　　lastgy = rst_1!行番号 11　　t = lastgy + 1 12　　　Do Until t = gmax + 1 13　　　　rst_1.AddNew 14　　　　rst_1!行番号 = t 15　　　　rst_1!商品番号 = "" 16　　　　rst_1!商品名 = "" 17　　　　rst_1!数量 = 0 18　　　　rst_1!単位 = "" 19　　　　rst_1!単価 = 0 20　　　　rst_1!金額 = 0 21　　　　rst_1!消費税 = 0 22　　　　rst_1!明細摘要 = "" 23　　　　rst_1.Update 24　　　　t = t + 1 25　　　Loop 26　　rst_1.Close 27　　inpmode = 1 End Function １～４行目は、変数の宣言です。３行目のlastgyは入力済みデータの行数です。４行目のtは空白行の行番号の数値が入ります。５，６行目はテーブルを空けるためのお決まりの形です７行目は、tの変数をゼロで初期化しています。８行目は、開くテーブルのインデックスを指定しています。「to請求明細」のデザインで、インデックスを表示してみてください、そこに登録されているインデックス名が、ここで使用できます。９行目で、行番号をインデックスとした最後のレコードに移動しています。１０行目で、最後の行番号をlastgyに代入します。１１行目からは、新規の時と同じようにして、残りの２０行の空データを追加しています。２７行目で入力モードを編集の１にしています。その後、「fo伝票入力」を開いて、編集入力の状態になります。
	伝票登録時の処理伝票入力で[登録]ボタンが押されると、作業テーブルから「ta請求」と「ta請求明細」にデータを登録する処理をします。「ma伝票」のデザインを見てください。「新規登録」と「編集登録」があります。違いは、編集登録の場合は、元のデータの削除処理が余分にあるだけです。 ①閉じる（伝票入力フォームを閉じます） ②クエリーを開く（「qu請求追加」） ③プロシージャの実行（den_2()の実行） ④プロシージャの実行（den_3()の実行） ⑤クエリーを開く（「qu請求明細追加」） ⑥クエリーを開く（「qu請求明細削除」）･･･編集登録のみ ⑦クエリーを開く（「qu請求削除」）･･･編集登録のみ ⑧プロシージャの実行（den_5()の実行） ⑨全レコードの表示順番に説明します。 ①でまず、「fo伝票入力」を閉じます。 ②で「to請求」から「ta請求」にデータを追加します。 ③のden_2の内容は、次のようになっています。 Public Function den_2() 　1　Dim dbs As Database 　2　Dim rst_1 As Recordset 　3　Dim rst_2 As Recordset 　4　Set dbs = CurrentDb 　5　Set rst_1 = dbs.OpenRecordset("qu請求最後", dbOpenDynaset) 　6　Set rst_2 = dbs.OpenRecordset("ta会社情報", dbOpenDynaset) 　7　　rst_1.MoveFirst 　8　　denid = rst_1!ID 　9　　denban = rst_1!伝票番号 10　　If inpmode = 0 Then 11　　rst_2.Edit 12　　rst_2!伝票番号 = denban + 1 13　　rst_2.Update 14　　End If 15　rst_1.Close 16　rst_2.Close End Function １～３行目は、変数の宣言です。４～６行目はお決まりの形です。クエリーの場合は、dbOpenDynasetです。 dbOpenDynasetの場合は、インデックスの指定はありません、クエリーで順番をつけておきます。「qu請求最後」はIDの降順に並べてあります「ta会社情報」はリンクテーブルなので, dbOpenTableで開くことはできません。７行目で一番最初のレコードに移動しています。ここの一番最初のデータは、IDの最大値ですから、先程「qu請求追加」で登録されたレコードのはずです。８行目でモジュールの先頭で宣言している、変数denidにID番号を代入します。９行目では、同じくdenbanに伝票番号を代入しています。１０～１４行目は、新規登録の場合には、伝票番号に１をプラスして、会社情報の次回の伝票番号として、「ta会社情報」のレコードを更新しています。「ts会社情報」はレコードが１つしかないので、編集（Edit）で上書き（Update）すれば、書き換えられます。 ④のden_3の内容は、次のようになっています。 Public Function den_3() 　1　Dim dbs As Database 　2　Dim rst_1 As Recordset, rst_2 As Recordset 　3　Dim gyou As Integer 　4　Dim i As Integer 　5　DoCmd.OpenQuery "quto削除請求明細登録" 　6　Set dbs = CurrentDb 　7　Set rst_1 = dbs.OpenRecordset("to請求明細", dbOpenTable) 　8　Set rst_2 = dbs.OpenRecordset("to請求明細登録", dbOpenTable) 　9　　rst_1.Index = "行番号" 10　　rst_1.MoveLast 11　　Do Until rst_1.BOF 12　　　If (IsNull(rst_1!商品番号) Or rst_1!商品番号 = "") And (IsNull(rst_1!商品名) Or rst_1!商品名 = "") And rst_1!数量 = 0 And rst_1!単価 = 0 And rst_1!金額 = 0 Then 13　　　　rst_1.MovePrevious 14　　　Else 15　　　　gyou = rst_1!行番号 16　　　　Exit Do 17　　　End If 18　　Loop 19　rst_1.MoveFirst 20　For i = 1 To gyou 21　rst_2.AddNew 22　rst_2!伝番ID = denid 23　rst_2!行番号 = rst_1!行番号 24　rst_2!商品番号 = rst_1!商品番号 25　rst_2!商品名 = rst_1!商品名 26　rst_2!数量 = rst_1!数量 27　rst_2!単位 = rst_1!単位 28　rst_2!単価 = rst_1!単価 29　rst_2!金額 = rst_1!金額 30　rst_2!消費税 = rst_1!消費税 31　rst_2!明細摘要 = rst_1!明細摘要 32　rst_2.Update 33　rst_1.MoveNext 34　Next i 35　rst_1.Close 36　rst_2.Close End Function １～４行目は、変数の宣言です。５行目では、登録するための作業テーブル「to請求明細登録」の全レコードを削除する削除クエリーを実行しています。「to請求明細登録」を通さないで、直接「ta請求明細」に書くこともできますが、ここでは作業テーブルをまず作って、追加クエリーで登録しています。６～８行目はお決まりの形です。９～１８行目は、何行伝票入力されたかを調べています。９行目で、インデックスを行番号にしています。１０行目で、行番号の最後のレコードに移動しています。１１行目は、レコードの先頭になるまで、１７行目までの処理を繰り返すということになります。実際は２０行目から下に下がって見ていくことになります。１２行目の条件式は、何も入力されていない場合は、１３行目に行って、１つ前のレコードに移動します。もしデータが入力されていれば、１５行目に行って、gyouに行番号を代入して、１６行目で、ループ（繰り返しの構文）から抜けます。 Exit Doは先頭の１行目まで移動しないで、ループから抜けるという命令です。１９行目からは、１行目から今見つけた最後の行までの、明細データを「to請求明細登録」に行数分だけコピー（追加）しています。 ⑤では、作業テーブル「to請求明細登録」を「ta請求明細」に追加クエリーで追加しています。 ⑥と⑦は編集登録の場合のみです。呼び出す前のデータを削除しています。明細から先に削除しないと、リレーションのエラーが出て、削除できません。 ⑧のden_5の内容は、次のようになっています。 Public Function den_5() Form_fo伝票一覧.RecordSource = "qu伝票一覧" End Function データに変更がありましたし、検索等でレコードソースが変わっているかもしれませんので、最初のレコードソースに戻しておきます。 ⑨で全レコードの表示で、全てのレコードを表示しておきます