すでに入力されているレコードをコピーし、発行日と請求NOだけ変更しようとしたのですが、
どのような方法でコピーしましたか?
コピーしたデータは、請求NOを変更しようとすると
サブフォームの請求内容が消えてしまい、結果、再度入力が必要になってしまいました。
サブフォームが表示されている状態から請求Noの入力によりサブフォームが消えるという状況から判断するとコピーはされていなくて、表示しているデータの請求Noの修正を行っていることになり、該当する明細が無いので、表示が消える状況だと思われます。
この状況は、テーブルAとテーブルBの請求Noのリンクが切れている状態だと思いますので、データは確認されて下さい。
参照作成を行いたい場合、テーブルAとテーブルB両方のコピーを行います。
具体的にはコピー元の請求Noを条件にして、ID以外のコピーしたい項目を追加します。
※その際、請求Noは新しいものである必要があります。
追記
概要
コピーボタンで、表示している請求データと請求明細データをコピーを行う。
1.コピー元は画面上の請求NOを用いる。
2.追加はクエリーで行う。
2.1.コピー元条件は画面の請求NOを使用する。
2.2.コピー先の請求NOはテーブルAの最大値+1
3.コピー完了後に、画面上の請求NOにテーブルAの請求NOの最大値を設定し、コピー先を表示する。
※以下画面や項目の名称を以下と仮定しているので、実際の名称に適宜合わせて下さい。
請求データ入力画面=F請求データ入力
請求データ入力画面の請求NO=コンボ_請求NO
クエリー
コピーする項目は想定して設定しているので、請求NO以外は過不足があれば変更して下さい。
※IDは追加しないこと。
クエリー名:Q_請求データ追加
SQL
1INSERT INTO テーブルA ( 請求NO, 取引先コード, 部門, 業務件名 )
2SELECT (SELECT Max(請求NO) FROM テーブルA)+1 , 取引先コード, 部門, 業務件名
3FROM テーブルA
4WHERE 請求NO=[Forms]![F_請求データ入力]![コンボ_請求NO];
クエリー名:Q_請求明細追加
SQL
1INSERT INTO テーブルB ( 請求NO, 内容, 数量, 単価, 備考 )
2SELECT (SELECT Max(請求NO) FROM テーブルA)+1 , 内容, 数量, 単価, 備考
3FROM テーブルB
4WHERE 請求NO=[Forms]![F_請求データ入力]![コンボ_請求NO];
・作成タブ⇒クエリデザイン(テーブルの表示は何も選択せず閉じる)⇒右クリックでSQLビューを選択
この状態で上記のSQLを元に変更(実際のテーブル名や請求NOの画面上での名前など)したものを貼り付けて、
クエリーに名前を付けて保存してください。
※修正後にエラーが無ければ、デザインに戻すことができます。
コード
コピーボタンのクリック時イベントに割り当てられているコードを以下に差し替えし、テーブル名や請求NOの名前を実際のものに変更して下さい。
※マクロの呼出はではなくイベントプロシージャに変更して下さい。マクロ自体の変更は不要です。
VBA
1On Error GoTo Err_コピー_Click
2 DoCmd.SetWarnings False 'メッセージの表示 無効
3
4 DoCmd.OpenQuery "Q_請求明細コピー"
5 DoCmd.OpenQuery "Q_請求データコピー"
6
7 DoCmd.SetWarnings True 'メッセージの表示 有効
8 Me.Requery '再表示
9 Me.Recordset.FindFirst "請求NO=" & DMax("請求NO", "テーブルA") 'コピー先の請求NOへ移動
10Exit_コピー_Click:
11 Exit Sub
12Err_コピー_Click:
13 MsgBox Err.Description
14 Resume Exit_コピー_Click
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/09/14 07:38
2017/09/14 07:55
2017/09/14 07:57
2017/09/14 08:53
2017/09/15 01:07
2017/09/15 01:29
2017/09/15 02:12 編集
2017/09/15 02:49
2017/09/15 02:59
2017/09/15 06:40
2017/09/19 00:25
2017/09/19 00:47 編集
2017/09/25 07:57
2017/09/25 08:55
2017/09/26 07:10
2017/09/26 08:35 編集
2017/09/26 08:52
2017/09/26 09:00
2017/09/26 09:45
2017/09/27 01:26
2017/09/27 01:56 編集
2017/09/27 05:54 編集
2017/09/27 05:55
2017/09/27 06:06
2017/09/27 06:17 編集
2017/09/27 06:17
2017/09/27 06:24
2017/09/27 06:38
2017/09/27 06:39
2017/09/27 06:41
2017/09/27 06:52
2017/09/27 07:22 編集
2017/09/27 08:29
2017/09/27 08:36 編集
2017/09/27 08:41 編集
2017/09/27 08:43
2017/09/27 09:10 編集
2017/09/28 04:50