Q&A
前の質問は解決したのですか？
前の質問でもそうですけど、請求番号はどのように割り振るのか不明なので明確には回答できません
そもそも明細に更新すべきものではありません。
抽出したクエリのレコードに番号を与えたいです。
あるクエリから5/1という請求日で抽出した結果、以下のレコードがあったとします。
Q_クエリ01
[請求日] [受注NO] [請求番号]
5/1 102
5/1 102
5/1 102
5/1 203
5/1 203
この空欄になっている請求番号に番号を与えたいです。
さらに条件として受注NOごとに同じ数字を与えたいです。
理想として
[請求日] [受注NO] [請求番号]
5/1 102 11
5/1 102 11
5/1 102 11
5/1 203 12
5/1 203 12
のようにしたいです。
現状は更新クエリを使い、
フィールド ：[請求番号]
テーブル ：Q_クエリ01
レコードの更新：Nz([請求番号],DMax("請求番号","T_受注")+1)
としましたが実行すると[請求番号]が全て11になってしまい[受注No]ごとに違う数字を与えることができません。
今の自分の力ではここが精一杯です。
分かりづらくて申し訳ありません。なにかいいアイデアがありましたら是非教えて下さい。
受注番号でSELECTできるなら受注番号でUPDATEもできるはずですけど。。。
更新クエリでする場合、DMax("請求番号","T_受注") は最初の1回のみしか実行されないので、
全部おなじ値になります。[請求日]+[受注NO]で絞り込んで実行するということを繰り返すことになります。
この手の更新は、VBAでレコードセットを開いてレコード移動しながら更新するほうが早いしシンプルです。
そもそも[請求日]+[受注NO]毎にそのような連番が必要な場面が想像つきません。何に必要なのですか。
回答1件
0
思いつくのは。。。
1. Q_クエリ01で抽出した結果(受注NOフィールドを昇順にしたもの)をRecordsetにセットする
2. 先頭のレコードに「Nz([請求番号],DMax("請求番号","T_受注")+1) 」をセット
3. 次のレコードをみて、受注NOが変わっていたら、②の請求番号＋1をセット
とすればいいのではないでしょうか？
いずれにしてもコーディングをする必要があると思います。
投稿2019/06/02 11:25
総合スコア50
あなたの回答
tips
プレビュー
